Re: [Orgmode] Code snippet for bolding or italicizing A/C priority strings

[John Wiegley]

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