Re: Minibuffer tray to display current time and date

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

Emanuel Berg writes:

> Jorge A. Alfaro-Murillo writes: 
> 
>>   (run-at-time nil 60 
>>                (lambda () (with-current-buffer " *Minibuf-0*" 
>>                    (erase-buffer) (insert (format-time-string 
>>                    "%H:%M"))))) 
> 
> I think one can afford to be a bit more generous with updates 
> than once every minute, so it will be (more) in synch with the 
> system time.

Optimal would be to run now, and then
(run-at-time NEXT-TIME-MINUTE-CHANGES nil (lambda () (run-at-time 
t 60 ...

but I don't know how to get NEXT-TIME-MINUTE-CHANGES

>>   (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"))))) 
> 
> I need to subtract 6 for it to fit. (The time string itself is 
> five chars.)

It works with 5 for me, the last character is at the last column.

> Possibly, Instead of the `dotimes' loop, examine if 
> `make-string' is more efficient, e.g.: 
> 
>     (make-string 10 ? ) ; 10 spaces

True.

-- 
Jorge.