Re: Minibuffer tray to display current time and date

[jorge.alfaro-murillo@yale.edu (Jorge A. Alfaro-Murillo)]

Emanuel Berg writes:

> Stefan Monnier <monnier@iro.umontreal.ca> writes: 
> 
>>    M-: (with-current-buffer " *Minibuf-0*" (insert 
>> "I'm Idle!")) RET 
> 
> So then it should be as simple as: 
> 
>     (with-current-buffer " *Minibuf-0*" 
>       (insert (format-time-string "%H:%M")))

You should also delete the content of the mini-buffer before 
inserting. 
 
> Do you then use the idle-timer or how do you update it so it 
> won't freeze time and make everything stop around you?

This works:

#+BEGIN_SRC emacs-lisp
  (run-at-time nil 60
               (lambda ()
               	 (with-current-buffer " *Minibuf-0*"
                   (erase-buffer)
                   (insert (format-time-string "%H:%M")))))
#+END_SRC

Or you could have it on the right bottom:

#+BEGIN_SRC emacs-lisp
  (run-at-time
   nil 60
   (lambda ()
     (with-current-buffer " *Minibuf-0*"
       (erase-buffer)
       (dotimes (spaces (- (frame-width) 5))
         (insert " "))
       (insert (format-time-string "%H:%M")))))
#+END_SRC

Best,
-- 
Jorge.