emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Two little changes in faces
@ 2009-05-22  7:43 Dmitri Minaev
  2009-05-22  8:07 ` Carsten Dominik
  0 siblings, 1 reply; 2+ messages in thread
From: Dmitri Minaev @ 2009-05-22  7:43 UTC (permalink / raw)
  To: org-mode

[-- Attachment #1: Type: text/plain, Size: 585 bytes --]

Hello,

First, attached is a tiny patch that adds a new face,
org-agenda-date-today, to highlight the current day in the
weekly/monthly agenda. I sometimes get lost in the days of week, so
this one helps me a lot :).

Second, I would propose to change the default org-agenda-done face to
include :strike-through, to distinguish these items from
org-scheduled-today. Single DONE, IMHO, doesn't make the difference
obvious enough. Besides, strike-through works better in
black-and-white printouts.


-- 
With best regards,
Dmitri Minaev

Russian history blog: http://minaev.blogspot.com

[-- Attachment #2: today.diff --]
[-- Type: text/x-diff, Size: 1812 bytes --]

diff -cr lisp/org-agenda.el /home/minaev/.el/org/org-agenda.el
*** lisp/org-agenda.el	2009-04-22 09:42:54.000000000 +0500
--- /home/minaev/.el/org/org-agenda.el	2009-05-22 12:16:13.000000000 +0500
***************
*** 2798,2804 ****
  				 'org-agenda-date))
  	    (put-text-property s (1- (point)) 'org-date-line t)
  	    (put-text-property s (1- (point)) 'org-day-cnt day-cnt)
! 	    (if todayp (put-text-property s (1- (point)) 'org-today t))
  	    (if rtnall (insert
  			(org-finalize-agenda-entries
  			 (org-agenda-add-time-grid-maybe
--- 2798,2806 ----
  				 'org-agenda-date))
  	    (put-text-property s (1- (point)) 'org-date-line t)
  	    (put-text-property s (1- (point)) 'org-day-cnt day-cnt)
! 	    (when todayp 
! 	      (put-text-property s (1- (point)) 'org-today t)
! 	      (put-text-property s (1- (point)) 'face 'org-agenda-date-today))
  	    (if rtnall (insert
  			(org-finalize-agenda-entries
  			 (org-agenda-add-time-grid-maybe
diff -cr lisp/org-faces.el /home/minaev/.el/org/org-faces.el
*** lisp/org-faces.el	2009-04-22 09:42:54.000000000 +0500
--- /home/minaev/.el/org/org-faces.el	2009-05-22 12:17:04.000000000 +0500
***************
*** 461,466 ****
--- 461,473 ----
    (set-face-doc-string 'org-agenda-date
  		       "Face used in agenda for normal days."))
  
+ (unless (facep 'org-agenda-date-today)
+   (copy-face 'org-agenda-date 'org-agenda-date-today)
+   (set-face-doc-string 'org-agenda-date-today
+ 		       "Face used in agenda for today.")
+   (when (fboundp 'set-face-attribute)
+     (set-face-attribute 'org-agenda-date-today nil :weight 'bold :italic 't)))
+ 
  (unless (facep 'org-agenda-date-weekend)
    (copy-face 'org-agenda-date 'org-agenda-date-weekend)
    (set-face-doc-string 'org-agenda-date-weekend
Only in /home/minaev/.el/org: semantic.cache

[-- Attachment #3: Type: text/plain, Size: 204 bytes --]

_______________________________________________
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

^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2009-05-22  8:07 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2009-05-22  7:43 Two little changes in faces Dmitri Minaev
2009-05-22  8:07 ` Carsten Dominik

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).