set font for TODO

set font for TODO

[Luca Ferrari]

Hi,
this could be trivial but I cannot find a solution: I'd like to
emphasize some warning/todo words with a special font, so in the
beginning I did:

(custom-set-faces
 '(font-lock-warning-face ((t (:foreground "Yellow" :weight bold  )))) )

(defun fluca1978/fontify-fixme ()
  (font-lock-add-keywords
   nil '(("\\<\\(FIX\\|TODO\\|FIXME\\|HACK\\|REFACTOR\\|XXX\\)[ \t\s\n:]*"
          1 font-lock-warning-face t))))


but of course this has the side effect to fontify also every other
string that emacs applies warning-face to. So how can I isolate my
keyword list from the emacs one?

Thanks,
Luca

Re: set font for TODO

[Tim Visher]

On Mon, Jun 3, 2013 at 2:54 AM, Luca Ferrari <fluca1978@infinito.it> wrote:
> this could be trivial but I cannot find a solution: I'd like to
> emphasize some warning/todo words with a special font, so in the
> beginning I did:
>
> (custom-set-faces
>  '(font-lock-warning-face ((t (:foreground "Yellow" :weight bold  )))) )
>
> (defun fluca1978/fontify-fixme ()
>   (font-lock-add-keywords
>    nil '(("\\<\\(FIX\\|TODO\\|FIXME\\|HACK\\|REFACTOR\\|XXX\\)[ \t\s\n:]*"
>           1 font-lock-warning-face t))))
>
>
> but of course this has the side effect to fontify also every other
> string that emacs applies warning-face to. So how can I isolate my
> keyword list from the emacs one?

You'll probably need to define your own custom face, maybe having it
inherit from font-lock-warning-face, and then have font-lock apply
your new face rather than the old face to your keywords.

--

In Christ,

Timmy V.

http://blog.twonegatives.com/
http://five.sentenc.es/ -- Spend less time on mail

Re: set font for TODO

[Luca Ferrari]

On Mon, Jun 3, 2013 at 2:43 PM, Tim Visher <tim.visher@gmail.com> wrote:

> You'll probably need to define your own custom face, maybe having it
> inherit from font-lock-warning-face, and then have font-lock apply
> your new face rather than the old face to your keywords.
>


I need a little help here, I'm not getting how to do it:

(defface fluca1978-programming-fixme-face
  '((t (:inherit font-lock-warning-face)))
  "Face used to emphasize fixme words" )

(defun fluca1978/fontify-fixme ()
  (font-lock-add-keywords
   nil '(("\\<\\(FIX\\|TODO\\|FIXME\\|HACK\\|REFACTOR\\|XXX\\)[ \t\s\n:]*"
          1 fluca1978-programming-fixme-face t))))

The result is that nothing is emphasized. Moreover if I write, for
instance, FIXME (without the colon) I get the following words
un-fontified, as if the regular expression was wrong. What am I
missing?

Thanks,
Luca

Re: set font for TODO

[Stefan Monnier]

> (defun fluca1978/fontify-fixme ()
>   (font-lock-add-keywords
>    nil '(("\\<\\(FIX\\|TODO\\|FIXME\\|HACK\\|REFACTOR\\|XXX\\)[ \t\s\n:]*"
>           1 fluca1978-programming-fixme-face t))))
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
This part of a font-lock-keyword is supposed to be an expression that,
when evaluated, returns the face to use.  So it will signal an error
"fluca1978-programming-fixme-face is void" because there is no
fluca1978-programming-fixme-face variable.
IOW you need to add a quote in front of it.

> The result is that nothing is emphasized. Moreover if I write, for
> instance, FIXME (without the colon) I get the following words
> un-fontified, as if the regular expression was wrong. What am I
> missing?

When this happens, check your *Messages* buffer.  It will probably
contain the error message.

The best way to debug those things is:

   (setq font-lock-support-mode nil)
   (setq debug-on-error t)

and then try again (turning font-lock-mode off and then back on after
applying the setting).  This will make font-lock happen "synchronously"
rather than via jit-lock, so it will signal errors which debug-on-error
can catch.


        Stefan