home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / me34src.zip / me3 / mutt / builtin / mltime.mut < prev    next >
Text File  |  1995-01-14  |  635b  |  34 lines
  1. ;; mltime.mut : Display the current time in the mode line
  2.  
  3. (include me.mh)
  4.  
  5. (defun
  6.   display-time        ;; toggle modeline clock
  7.   {
  8.     (if (unregister-hook IDLE-HOOK "show-time")
  9.       {
  10.     (modeline-time "")    ;; turning off the clock
  11.     FALSE
  12.       }
  13.       {
  14.     (show-time)        ;; turning on the clock
  15.     (register-hook IDLE-HOOK "show-time")
  16.     TRUE
  17.       })
  18.   }
  19.   show-time
  20.   {
  21.     (small-int month day year hh mm ss)    ;; TimeInfo
  22.     (bool pm)
  23.  
  24.     (read-clock (loc month))
  25.     (if (pm (< 12 hh)) { (-= hh 12)(pm TRUE) })
  26.     (modeline-time
  27.       (concat
  28.     hh
  29.     ":" (if (< mm 10) "0" "") mm
  30. ;    ":" (if (< ss 10) "0" "") ss
  31.     (if pm "p" "a") "m"))
  32.   }
  33. )
  34.