optionally tail the echo-area message, and put it on a timer
This commit is contained in:
parent
aa8bc0f5d1
commit
f29a263ba2
13
notibox.el
13
notibox.el
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user