Сообщайте о времени в течение всего часа с помощью всплывающего другого буфера во время встречи. - PullRequest
Новая
       38

Сообщайте о времени в течение всего часа с помощью всплывающего другого буфера во время встречи.

0 голосов
/ 11 марта 2020

Я написал такую ​​функцию, чтобы сообщать о времени за целый час 

(defun announce-time ()
  (message (format "It's %s" (format-time-string "%H:%M" (current-time)))))

(let ((next-hour
        (number-to-string
         (+ (string-to-number
             (format-time-string "%H" (current-time)))
            1))))
  (run-at-time (concat next-hour ":00") 3600 #'announce-time))

Лог c - это получение части «часа» текущего времени и запуск в «час + 1».

Это работает, но беззвучно подсказывает в мини-буфере.

Как заставить его сообщать о времени во всплывающем буфере, как предупреждение о назначении? enter image description here Так что я буду напоминать в явном виде.

...