[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Orgmode] Code snippet for bolding or italicizing A/C priority strin
From: |
John Wiegley |
Subject: |
Re: [Orgmode] Code snippet for bolding or italicizing A/C priority strings |
Date: |
Wed, 10 Oct 2007 04:37:52 -0400 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.1 (darwin) |
John Wiegley <address@hidden> writes:
> This code snippet will modify your agenda buffer upon creation so that the
> string [#A] is bolded, and [#C] is italicized. It keeps whatever color it
> had, it's just now strong or weak based on priority.
Actually, I'm finding I like having the whole title bolded or italicized, just
like Gnus does:
(defun org-fontify-priorities ()
(interactive)
(save-excursion
(let ((inhibit-read-only t))
(goto-char (point-min))
(while (re-search-forward "\\[#\\([A-C]\\)\\]" nil t)
(let ((priority (match-string 1)))
(cond ((string= priority "A")
(overlay-put (make-overlay (match-beginning 0)
;;(match-end 0)
(line-end-position))
'face 'bold))
((string= priority "C")
(overlay-put (make-overlay (match-beginning 0)
;;(match-end 0)
(line-end-position))
'face 'italic))))))))
(add-hook 'org-finalize-agenda-hook 'org-fontify-priorities)
John