optionally tail the echo-area message, and put it on a timer

This commit is contained in:
MitchMarq42 2023-04-07 09:16:10 -08:00
parent aa8bc0f5d1
commit f29a263ba2

View File

@ -91,8 +91,21 @@
(notibox--hide (car notibox-current-posframes)) (notibox--hide (car notibox-current-posframes))
(pop notibox-current-posframes)) (pop notibox-current-posframes))
(defun notibox--tail-echoarea ()
(if (current-message)
(notibox-alert `(
:title ,(format "%s" (current-buffer))
:message ,(current-message)))
(notibox-delete 'current)))
(defun notibox/setup-timer ()
(interactive)
(run-with-timer 1 0.5 #'notibox--tail-echoarea))
;; (notibox--hide 'anything) ;; (notibox--hide 'anything)
(defun notibox-test-alert ()
(interactive)
(notibox-alert '(:title "five" :message "six")))
(provide 'notibox) (provide 'notibox)
;;; notibox.el ends here ;;; notibox.el ends here