set face for added font lock keywords

set face for added font lock keywords

[extronom]

I'm trying to add some new keywords by doing  font-lock-add-keywords
so that a FIXME keyword gets highlighted, which works quite well. When
I try to change the color of the used face it doesn't work and
probably somebody could give me a hint what the problem is here (I'm
still a newbie regarding elisp programming).

Here is a function which is suppose to create a new buffer and add the
appropriated keyword regexp to be highlighted then but the color can't
be changed here it seems why? Maybe I'm missing some basic stuff here?

(defun my-new-buffer-color ()
  (interactive)
  (setq myBuffer (generate-new-buffer "myTemp"))
  (switch-to-buffer myBuffer)

  (lisp-interaction-mode)

  (font-lock-mode 0);; does not seem to help here???

  ;; this is supposed to work but doesn't???
  (set-face-foreground 'font-lock-comment-face "green" )
  (set-variable font-lock-comment-face 'font-lock-comment-face)

  ;; highlight FIXME
  (font-lock-add-keywords nil
    '("\\<FIXME\\>" 1 font-lock-comment-face prepend))

  (insert "this is a FIXME test \n")
)

Thanks for any help / hint.

Br

Re: set face for added font lock keywords

[Suvayu Ali]

On Sun, 9 Jan 2011 07:27:30 -0800 (PST)
extronom <extronom@googlemail.com> wrote:

> I'm trying to add some new keywords by doing  font-lock-add-keywords
> so that a FIXME keyword gets highlighted, which works quite well. When
> I try to change the color of the used face it doesn't work and
> probably somebody could give me a hint what the problem is here

Why don't you use `M-x customize-face' to customise the face you want
to?

That apart, I have a similar setup but all I do is add this hook:

(add-hook 'find-file-hook
	  (lambda ()
	    (font-lock-add-keywords
	     nil '(("\\<\\(FIXME\\):" 1 font-lock-warning-face prepend)))
	    (if (vc-working-revision (buffer-file-name))
		(auto-revert-mode t))
	    ))

Hope this helps.

-- 
Suvayu

Open source is the future. It sets us free.

Re: set face for added font lock keywords

[Suvayu Ali]

On Sun, 9 Jan 2011 21:31:22 -0800
Suvayu Ali <fatkasuvayu+linux@gmail.com> wrote:
> 
> That apart, I have a similar setup but all I do is add this hook:
> 
> (add-hook 'find-file-hook
> 	  (lambda ()
> 	    (font-lock-add-keywords
> 	     nil '(("\\<\\(FIXME\\):" 1 font-lock-warning-face
> prepend))) (if (vc-working-revision (buffer-file-name))
> 		(auto-revert-mode t))
> 	    ))
> 

Sorry, that should have been this:

(add-hook 'find-file-hook
	  (lambda ()
	    (font-lock-add-keywords
	     nil '(("\\<\\(FIXME\\):" 1 font-lock-warning-face prepend)))
	    ))

> Hope this helps.
> 

-- 
Suvayu

Open source is the future. It sets us free.

Re: set face for added font lock keywords

[Teemu Likonen]

* 2011-01-09 07:27 (-0800), extronom@googlemail.com wrote:

> I'm trying to add some new keywords by doing font-lock-add-keywords so
> that a FIXME keyword gets highlighted, which works quite well. When I
> try to change the color of the used face it doesn't work and probably
> somebody could give me a hint what the problem is here (I'm still a
> newbie regarding elisp programming).

I'm the author of wcheck-mode [1], so perhaps quite naturally I would
use it for this task too. Let's create a new language called "fixme" and
choose some face for highlighting:


    ;; Make sure the variable exists.
    (defvar wcheck-language-data nil)

    (push '("fixme"
            (program . (lambda (strings)
                         (when (member "FIXME" strings)
                           (list "FIXME"))))
            (face . highlight))
          wcheck-language-data)


This configuration uses face "highlight" but you can use any face you
want. Change languages with command wcheck-change-language and switch
the mode on and off with command wcheck-mode. See the Emacs wiki page
[1] for more information about wcheck-mode.

---------------
 1. http://www.emacswiki.org/emacs/WcheckMode