Diary font-lock problem

Diary font-lock problem

[Stephen Berman]

[-- Attachment #1: Type: text/plain, Size: 486 bytes --]

I would like to have diary entries of the form

Thu, Apr 5, 2007 Today's entry

in which the string "Thu, Apr 5, 2007" has diary face.  This
fontification is not provided by the default diary setup, but I had
hoped and expected to get it by customizing diary-date-forms
appropriately.  However, after making what I think is the necessary
customization, I still don't get the fontification I want.  I can
reproduce the problem with emacs -Q:

1. Let ~/.emacs consist only of this sexp:


[-- Attachment #2: ~/.emacs --]
[-- Type: text/plain, Size: 257 bytes --]

(custom-set-variables
  '(diary-date-forms (quote ((month "/" day "[^/0-9]") (month "/" day "/" year "[^0-9]") (monthname " *" day "[^,0-9]") (monthname " *" day ", *" year "[^0-9]") (dayname "\\W") (dayname ", *" monthname " *" day ", *" year "[^0-9]")))))

[-- Attachment #3: Type: text/plain, Size: 209 bytes --]


2. emacs -Q

3. M-x calendar

4. In the calendar type `s' to show the whole diary, then in the diary
buffer type the above entry.  Only "Thu," has diary face.

If I eval diary-font-lock-keywords I get this:


[-- Attachment #4: diary-font-lock-keywords --]
[-- Type: text/plain, Size: 1698 bytes --]

(("^&?\\(\\([0-9]+\\|\\*\\)/\\([0-9]+\\|\\*\\)[^/0-9]\\)" 1 diary-face) ("^&?\\(\\([0-9]+\\|\\*\\)/\\([0-9]+\\|\\*\\)/-?\\([0-9]+\\|\\*\\)[^0-9]\\)" 1 diary-face) ("^&?\\(\\(A\\(?:pr\\(?:\\.\\|il\\)?\\|ug\\(?:\\.\\|ust\\)?\\)\\|Dec\\(?:\\.\\|ember\\)?\\|Feb\\(?:\\.\\|ruary\\)?\\|J\\(?:an\\(?:\\.\\|uary\\)?\\|u\\(?:l[.y]\\|n[.e]\\|[ln]\\)\\)\\|Ma\\(?:r\\(?:\\.\\|ch\\)\\|y\\.\\|[ry]\\)\\|Nov\\(?:\\.\\|ember\\)?\\|Oct\\(?:\\.\\|ober\\)?\\|Sep\\(?:\\.\\|tember\\)?\\|\\*\\) *\\([0-9]+\\|\\*\\)[^,0-9]\\)" 1 diary-face) ("^&?\\(\\(A\\(?:pr\\(?:\\.\\|il\\)?\\|ug\\(?:\\.\\|ust\\)?\\)\\|Dec\\(?:\\.\\|ember\\)?\\|Feb\\(?:\\.\\|ruary\\)?\\|J\\(?:an\\(?:\\.\\|uary\\)?\\|u\\(?:l[.y]\\|n[.e]\\|[ln]\\)\\)\\|Ma\\(?:r\\(?:\\.\\|ch\\)\\|y\\.\\|[ry]\\)\\|Nov\\(?:\\.\\|ember\\)?\\|Oct\\(?:\\.\\|ober\\)?\\|Sep\\(?:\\.\\|tember\\)?\\|\\*\\) *\\([0-9]+\\|\\*\\), *-?\\([0-9]+\\|\\*\\)[^0-9]\\)" 1 diary-face) ("^&?\\(\\(Fri\\(?:\\.\\|day\\)?\\|Mon\\(?:\\.\\|day\\)?\\|S\\(?:at\\(?:\\.\\|urday\\)?\\|un\\(?:\\.\\|day\\)?\\)\\|T\\(?:hu\\(?:\\.\\|rsday\\)?\\|ue\\(?:\\.\\|sday\\)?\\)\\|Wed\\(?:\\.\\|nesday\\)?\\)\\W\\)" 1 diary-face) ("^&?\\(\\(Fri\\(?:\\.\\|day\\)?\\|Mon\\(?:\\.\\|day\\)?\\|S\\(?:at\\(?:\\.\\|urday\\)?\\|un\\(?:\\.\\|day\\)?\\)\\|T\\(?:hu\\(?:\\.\\|rsday\\)?\\|ue\\(?:\\.\\|sday\\)?\\)\\|Wed\\(?:\\.\\|nesday\\)?\\), *\\(A\\(?:pr\\(?:\\.\\|il\\)?\\|ug\\(?:\\.\\|ust\\)?\\)\\|Dec\\(?:\\.\\|ember\\)?\\|Feb\\(?:\\.\\|ruary\\)?\\|J\\(?:an\\(?:\\.\\|uary\\)?\\|u\\(?:l[.y]\\|n[.e]\\|[ln]\\)\\)\\|Ma\\(?:r\\(?:\\.\\|ch\\)\\|y\\.\\|[ry]\\)\\|Nov\\(?:\\.\\|ember\\)?\\|Oct\\(?:\\.\\|ober\\)?\\|Sep\\(?:\\.\\|tember\\)?\\|\\*\\) *\\([0-9]+\\|\\*\\), *-?\\([0-9]+\\|\\*\\)[^0-9]\\)" 1 diary-face) ...)

[-- Attachment #5: Type: text/plain, Size: 172 bytes --]


The sexp immediately preceding `...' contains the result of the
customization I made above, and the regexp it contains is
string-match'd by the above diary entry string:


[-- Attachment #6: string-match --]
[-- Type: text/plain, Size: 613 bytes --]

(string-match "^&?\\(\\(Fri\\(?:\\.\\|day\\)?\\|Mon\\(?:\\.\\|day\\)?\\|S\\(?:at\\(?:\\.\\|urday\\)?\\|un\\(?:\\.\\|day\\)?\\)\\|T\\(?:hu\\(?:\\.\\|rsday\\)?\\|ue\\(?:\\.\\|sday\\)?\\)\\|Wed\\(?:\\.\\|nesday\\)?\\), *\\(A\\(?:pr\\(?:\\.\\|il\\)?\\|ug\\(?:\\.\\|ust\\)?\\)\\|Dec\\(?:\\.\\|ember\\)?\\|Feb\\(?:\\.\\|ruary\\)?\\|J\\(?:an\\(?:\\.\\|uary\\)?\\|u\\(?:l[.y]\\|n[.e]\\|[ln]\\)\\)\\|Ma\\(?:r\\(?:\\.\\|ch\\)\\|y\\.\\|[ry]\\)\\|Nov\\(?:\\.\\|ember\\)?\\|Oct\\(?:\\.\\|ober\\)?\\|Sep\\(?:\\.\\|tember\\)?\\|\\*\\) *\\([0-9]+\\|\\*\\), *-?\\([0-9]+\\|\\*\\)[^0-9]\\)" "Thu, Apr 5, 2007 Today's entry")
  => 0

[-- Attachment #7: Type: text/plain, Size: 237 bytes --]


Therefore, I assume my customization is what I want and I would expect
the entire date string to have diary face.  Should I be doing
something else to get the fontification I want (and if so, what) or is
there a bug here?

Steve Berman

[-- Attachment #8: Type: text/plain, Size: 152 bytes --]

_______________________________________________
help-gnu-emacs mailing list
help-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/help-gnu-emacs

Re: Diary font-lock problem

[Glenn Morris]

Stephen Berman wrote:

> Thu, Apr 5, 2007 Today's entry
>
> in which the string "Thu, Apr 5, 2007" has diary face.

> 1. Let ~/.emacs consist only of this sexp:

You've written this:

(setq diary-date-forms
      '((month "/" day "[^/0-9]")
        (month "/" day "/" year "[^0-9]")
        (monthname " *" day "[^,0-9]")
        (monthname " *" day ", *" year "[^0-9]")
        (dayname "\\W")
        (dayname ", *" monthname " *" day ", *" year "[^0-9]")))

where the last line is the pattern you added.

The string "Thu, Apr 5, 2007" also matches the pattern in the previous
line, ie (dayname "\\W"). This pattern gets applied before yours does.
So move your pattern earlier in the diary-date-forms list (at the
start is probably best).

Re: Diary font-lock problem

[Glenn Morris]

Glenn Morris wrote:

> The string "Thu, Apr 5, 2007" also matches the pattern in the previous
> line, ie (dayname "\\W"). This pattern gets applied before yours does.

In other words, you've fallen afoul of the comment in the doc string
of diary-date-forms about making sure your patterns are mutually
exclusive.

Re: Diary font-lock problem

[Stephen Berman]

On Thu, 05 Apr 2007 21:15:05 -0700 Glenn Morris <rgm+news@stanford.edu> wrote:

> Glenn Morris wrote:
>
>> The string "Thu, Apr 5, 2007" also matches the pattern in the previous
>> line, ie (dayname "\\W"). This pattern gets applied before yours does.
>
> In other words, you've fallen afoul of the comment in the doc string
> of diary-date-forms about making sure your patterns are mutually
> exclusive.

Thanks, and sorry for not being careful enough to recognize the error
in my customization as well as in reading the docstring.

Steve Berman