Mercurial > emacs
comparison lisp/time.el @ 27239:c681a4318a92
(display-time-string-forms): Make the Mail string active.
(display-time-update): Provide help-echo for load average.
author | Dave Love <fx@gnu.org> |
---|---|
date | Fri, 07 Jan 2000 14:19:23 +0000 |
parents | 464b296e0b87 |
children | 66e75f4824c8 |
comparison
equal
deleted
inserted
replaced
27238:bfb9906d58b5 | 27239:c681a4318a92 |
---|---|
1 ;;; time.el --- display time and load in mode line of Emacs. | 1 ;;; time.el --- display time and load in mode line of Emacs. |
2 | 2 |
3 ;; Copyright (C) 1985, 86, 87, 93, 94, 1996 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1985, 86, 87, 93, 94, 96, 2000 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Maintainer: FSF | 5 ;; Maintainer: FSF |
6 | 6 |
7 ;; This file is part of GNU Emacs. | 7 ;; This file is part of GNU Emacs. |
8 | 8 |
140 :type '(choice (const :tag "Default" nil) | 140 :type '(choice (const :tag "Default" nil) |
141 string) | 141 string) |
142 :group 'display-time) | 142 :group 'display-time) |
143 | 143 |
144 (defcustom display-time-string-forms | 144 (defcustom display-time-string-forms |
145 '((if (and (not display-time-format) display-time-day-and-date) | 145 `((if (and (not display-time-format) display-time-day-and-date) |
146 (format-time-string "%a %b %e " now) | 146 (format-time-string "%a %b %e " now) |
147 "") | 147 "") |
148 (format-time-string (or display-time-format | 148 (format-time-string (or display-time-format |
149 (if display-time-24hr-format "%H:%M" "%-I:%M%p")) | 149 (if display-time-24hr-format "%H:%M" "%-I:%M%p")) |
150 now) | 150 now) |
151 load | 151 load |
152 (if mail " Mail" "")) | 152 (if mail ,(propertize " Mail" |
153 'help-echo "mouse-2: Read mail" | |
154 'local-map (make-mode-line-mouse2-map | |
155 (lambda (e) | |
156 (interactive "e") | |
157 (funcall read-mail-command)))) | |
158 "")) | |
153 "*A list of expressions governing display of the time in the mode line. | 159 "*A list of expressions governing display of the time in the mode line. |
154 For most purposes, you can control the time format using `display-time-format' | 160 For most purposes, you can control the time format using `display-time-format' |
155 which is a more standard interface. | 161 which is a more standard interface. |
156 | 162 |
157 This expression is a list of expressions that can involve the keywords | 163 This expression is a list of expressions that can involve the keywords |
202 (defun display-time-update () | 208 (defun display-time-update () |
203 (let* ((now (current-time)) | 209 (let* ((now (current-time)) |
204 (time (current-time-string now)) | 210 (time (current-time-string now)) |
205 (load (condition-case () | 211 (load (condition-case () |
206 (if (zerop (car (load-average))) "" | 212 (if (zerop (car (load-average))) "" |
213 ;; The load average number is myterious, so | |
214 ;; propvide some help. | |
207 (let ((str (format " %03d" (car (load-average))))) | 215 (let ((str (format " %03d" (car (load-average))))) |
208 (concat (substring str 0 -2) "." (substring str -2)))) | 216 (propertize |
217 (concat (substring str 0 -2) "." (substring str -2)) | |
218 'help-echo "Load average"))) | |
209 (error ""))) | 219 (error ""))) |
210 (mail-spool-file (or display-time-mail-file | 220 (mail-spool-file (or display-time-mail-file |
211 (getenv "MAIL") | 221 (getenv "MAIL") |
212 (concat rmail-spool-directory | 222 (concat rmail-spool-directory |
213 (user-login-name)))) | 223 (user-login-name)))) |