New face for clock in mode line.

3 files changed, 14 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d9b4ef5..02ec218 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2009-06-06  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org-clock.el (org-clock-update-mode-line): Apply face
+	org-mode-line-clock.
+
+	* org-faces.el (org-mode-line-clock): New face.
+
 2009-06-05  Tassilo Horn  <tassilo@member.fsf.org>
 
 	* org-gnus.el (org-gnus-store-link): Fix bug where
diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index 4825c1a..2377de7 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -349,7 +349,8 @@ If not, show simply the clocked time like 01:50."
 			       'help-echo (concat help-text ": " org-clock-heading))
 	     (org-propertize clock-string 'help-echo help-text)))
 	 'local-map org-clock-mode-line-map
-	 'mouse-face (if (featurep 'xemacs) 'highlight 'mode-line-highlight)))
+	 'mouse-face (if (featurep 'xemacs) 'highlight 'mode-line-highlight)
+	 'face 'org-mode-line-clock))
   (if org-clock-effort (org-clock-notify-once-if-expired))
   (force-mode-line-update))
 
diff --git a/lisp/org-faces.el b/lisp/org-faces.el
index edc6a10..4f1e3a2 100644
--- a/lisp/org-faces.el
+++ b/lisp/org-faces.el
@@ -613,6 +613,11 @@ If it is less than 8, the level-1 face gets re-used for level N+1 etc."
   "Face used to highlight math latex and other special exporter stuff."
   :group 'org-faces)
 
+(unless (facep 'org-mode-line-clock)
+  (copy-face 'modeline 'org-mode-line-clock)
+  (set-face-doc-string 'org-agenda-date
+		       "Face used for clock display in mode line."))
+
 (provide 'org-faces)
 
 ;; arch-tag: 9dab5f91-c4b9-4d6f-bac3-1f6211ad0a04