Fontification in Org tables

Fontification in Org tables

[François Pinard]

Hi, Org people.

Let me report an old problem of mine about missing fontification in Org
tables.  In my .emacs file, I have:


(defun fp-fontify-fixme ()
  (font-lock-add-keywords
   nil '(("\\<FIXME\\>" 0 font-lock-warning-face t))))

(let ((hooks '(c-mode-common-hook change-log-mode-hook
               cperl-mode-hook css-mode-hook emacs-lisp-mode-hook
               html-mode-hook latex-mode-hook lisp-mode-hook
               makefile-mode-hook message-mode-hook org-mode-hook
               php-mode-hook python-mode-hook sh-mode-hook
               shell-mode-hook ssh-config-mode-hook)))
  (while hooks
    (add-hook (car hooks) 'fp-fontify-fixme)
    (setq hooks (cdr hooks))))


This works nicely in Org file, /except/ within Org tables.  Would
someone be kind enough to give me a magical recipe to solve it? :-)

François

Re: Fontification in Org tables

[Bastien]

Hi François,

François Pinard <pinard@iro.umontreal.ca> writes:

> (defun fp-fontify-fixme ()
>   (font-lock-add-keywords
>    nil '(("\\<FIXME\\>" 0 font-lock-warning-face t))))

Use this instead:

(defun fp-fontify-fixme ()
  (font-lock-add-keywords
   nil '(("\\<FIXME\\>" 0 font-lock-warning-face t)) t))

HTH,

-- 
 Bastien

Re: Fontification in Org tables

[Jambunathan K]

François Pinard <pinard@iro.umontreal.ca> writes:

> Hi, Org people.
>
> Let me report an old problem of mine about missing fontification in Org
> tables.  In my .emacs file, I have:
>
>
> (defun fp-fontify-fixme ()
>   (font-lock-add-keywords
>    nil '(("\\<FIXME\\>" 0 font-lock-warning-face t))))
>
> (let ((hooks '(c-mode-common-hook change-log-mode-hook
>                cperl-mode-hook css-mode-hook emacs-lisp-mode-hook
>                html-mode-hook latex-mode-hook lisp-mode-hook
>                makefile-mode-hook message-mode-hook org-mode-hook
>                php-mode-hook python-mode-hook sh-mode-hook
>                shell-mode-hook ssh-config-mode-hook)))
>   (while hooks
>     (add-hook (car hooks) 'fp-fontify-fixme)
>     (setq hooks (cdr hooks))))
>
>
> This works nicely in Org file, /except/ within Org tables.  Would
> someone be kind enough to give me a magical recipe to solve it? :-)

1. Visit Org file

        C-x C-f file.org RET

2. Turn on Hi-lock mode

        M-x hi-lock-mode RET

3. Highlight FIXME lines

        C-x w h FIXME RET

4. Save highlighted regexps right in to the buffer

        C-x w b 

        ,----
        | # Hi-lock: (("FIXME" (0 (quote hi-lock-1) t)))
        `----

5. Revisit the Org file

        C-x C-v file.org

6. Turn on Hi-lock mode

        M-x hi-lock-mode RET

7. Highlight custom regexps

        C-x w i

> François
>
>
>
>
>
>

-- 

Re: Fontification in Org tables

[François Pinard]

Bastien <bzg@altern.org> writes:

> (defun fp-fontify-fixme ()
>   (font-lock-add-keywords
>    nil '(("\\<FIXME\\>" 0 font-lock-warning-face t)) t))

> HTH,

IDHITAL = it did help indeed, thanks a lot! :-)

I had more fontification to do in some tables, and succeeded because of
your good hint.  Joy! :-)

François

Re: Fontification in Org tables

[François Pinard]

Jambunathan K <kjambunathan@gmail.com> writes:

> 2. Turn on Hi-lock mode

Wow, Jambunathan, thanks as well!  I was not aware of this mode, which
announces to be useful and handsome, especially when some often visited
files would benefit from some very specific highlighting.  How nice!

François