Code snippet for bolding or italicizing A/C priority strings

Code snippet for bolding or italicizing A/C priority strings

[John Wiegley]

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.

This doesn't change the display all that much, but it's enough to help pick
out the important and unimportant stuff.

Just pop into your .emacs and go!

John

(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))
                              'face 'bold))
                ((string= priority "C")
                 (overlay-put (make-overlay (match-beginning 0)
                                            (match-end 0))
                              'face 'italic))))))))

(add-hook 'org-finalize-agenda-hook 'org-fontify-priorities)

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

[John Wiegley]

John Wiegley <johnw@newartisans.com> 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

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

[Rainer Stengele]

John Wiegley schrieb:
> John Wiegley <johnw@newartisans.com> 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
> 
> 
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
> 

Excellent! I appreciate your function very much!
It helps a lot to get a better overview in the agenda!

rainer

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

[Carsten Dominik]

On Oct 10, 2007, at 10:37, John Wiegley wrote:

> John Wiegley <johnw@newartisans.com> 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:

I have generalized this code to work with modified customized priorities
and to do the right thing when changing the priority from the agenda.
Thi code will be in 5.12.  You can turn it off with
`org-agenda-fonfity-priorities', default will be on.

Thanks, John!

- Carsten