emacs.d/config/init-test-minibufer.el

   1
   2 (progn
   3   (defvar current-time-string "")
   4   (run-with-timer
   5    1 1
   6    (lambda ()
   7      (let ((message-log-max nil))
   8        (unless (minibuffer-window-active-p (minibuffer-window))
   9          (when (member (current-message)
  10                        (list current-time-string nil))
  11            (message "%s" (setq current-time-string
  12                                (current-time-string)))))))))
  13 [nil 21872 33554 386400 1 (lambda nil (let (...) (if ... nil ...))) nil nil 0]
  14
  15
  16
  17
  18     (with-current-buffer " *Minibuf-0*"
  19       (insert (format-time-string "%H:%M")))
  20
  21  (run-at-time
  22   nil 60
  23   (lambda ()
  24     (with-current-buffer " *Minibuf-0*"
  25       (erase-buffer)
  26       (dotimes (spaces (- (frame-width) 8))
  27         (insert " "))
  28       (insert (format-time-string "%H:%M")))))
  29