color header based on priority/tags rather than level

color header based on priority/tags rather than level

[David Rees]

Is there way to set the color/face of a header line based on 
priority/tags rather than level? Maybe a way of setting a hook method 
that takes header line info and returns color/face info?

I've found that I can use org-priority-face to color the priority cookie 
and I can use org-agenda-fontify-priorities to apply color to the agenda 
line, but I want to color the header line in the original buffer.

FYI, Here is a link to old post on this, but it ended just with solution 
for agenda lines 
http://article.gmane.org/gmane.emacs.orgmode/17143/match=color+entire+header

Re: color header based on priority/tags rather than level

[Sebastien Vauban]

David Rees wrote:
> Is there way to set the color/face of a header line based on priority/tags
> rather than level? Maybe a way of setting a hook method that takes header line
> info and returns color/face info?
>
> I've found that I can use org-priority-face to color the priority cookie and
> I can use org-agenda-fontify-priorities to apply color to the agenda line, but
> I want to color the header line in the original buffer.
>
> FYI, Here is a link to old post on this, but it ended just with solution for
> agenda lines
> http://article.gmane.org/gmane.emacs.orgmode/17143/match=color+entire+header

Once again, not what you're looking for, but John Wiegley once shared
his code to highlight agenda lines depending of a tag (home, work,
etc.).

Though, can't find it anymore...

Best regards,
  Seb

-- 
Sebastien Vauban

Re: color header based on priority/tags rather than level

[Bastien]

"Sebastien Vauban" <sva-news-D0wtAvR13HarG/iDocfnWg@public.gmane.org>
writes:

> Once again, not what you're looking for, but John Wiegley once shared
> his code to highlight agenda lines depending of a tag (home, work,
> etc.).

(font-lock-add-keywords 'org-mode
  '(("^.*:write:.*$" . font-lock-keyword-face)))

will use `font-lock-keyword-face' for headings tagged with ":write:"
in org-mode.

The following snippet can be used for boldifying ":write:"-tagged
lines in the agenda:

(setq org-agenda-face-for-tagged-lines
   '(("write" . bold)))

(defun org-agenda-fontify-tagged-line ()
  "Use `org-agenda-face-for-tagged-lines' to fontify lines with certain tags."
  (goto-char (point-min))
  (let (tags)
    (while (progn (forward-line 1) (not (eobp)))
      (if (setq tags (get-text-property (point) 'tags))
	  (mapcar
	   (lambda (pair)
	     (if (member (car pair) tags)
		 (add-text-properties (point-at-bol) (point-at-eol) `(face ,(cdr pair)))))
	   org-agenda-face-for-tagged-lines)))))

(add-hook 'org-agenda-finalize-hook 'org-agenda-fontify-tagged-line)

HTH,

-- 
 Bastien