mir/notibox
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add rudimentary (broken) timeout functionality

Browse Source
This commit is contained in:
MitchMarq42 2023-04-07 09:15:33 -08:00
parent 995d47b080
commit 2a1b5cf708
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
notibox.el
View File

@ -62,7 +62,7 @@
;; (notibox--prepare-buffer "test" "this better work gadangit") ;; (notibox--prepare-buffer "test" "this better work gadangit")
(defvar notibox-current-posframes nil) (defvar notibox-current-posframes nil)
(defun notibox--show () (defun notibox--show (&optional timeout)
"Show the notibox currently prepared, with optional TIMEOUT." "Show the notibox currently prepared, with optional TIMEOUT."
(add-to-list 'notibox-current-posframes (add-to-list 'notibox-current-posframes
(posframe-show (get-buffer-create "*notibox*") (posframe-show (get-buffer-create "*notibox*")
@ -72,14 +72,16 @@
:min-width notibox-width :min-width notibox-width
:min-height notibox-height :min-height notibox-height
:border-width 2 :border-width 2
:border-color notibox-border-color)) :border-color notibox-border-color
) :timeout timeout))
nil)
(defun notibox-alert (info) (defun notibox-alert (info)
(let* ((message (plist-get info :message)) (let* ((message (plist-get info :message))
(title (plist-get info :title))) (title (plist-get info :title))
(timeout (plist-get info :persistent)))
(notibox--prepare-buffer title message) (notibox--prepare-buffer title message)
(notibox--show))) (notibox--show (unless timeout alert-fade-time))))
(defun notibox--hide (frame) (defun notibox--hide (frame)
(posframe-hide "*notibox*")) (posframe-hide "*notibox*"))