;; display time in modeline
(defface egoge-display-time
  '((((type x w32 mac))
	 ;; #060525 is the background colour of my default face.
	 (:foreground "#060525" :inherit bold))
	(((type tty))
	 (:foreground "blue")))
   "Face used to display the time in the mode line.")
;; This causes the current time in the mode line to be displayed in
;; `egoge-display-time-face' to make it stand out visually.
(setq display-time-string-forms
	  '((propertize (concat " " 24-hours ":" minutes " ")
					'face 'egoge-display-time)))
(display-time-mode 1)

(provide 'o-modeline)