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

Green border and stack priority for the message box

Browse Source
This commit is contained in:
MitchMarq42 2023-08-12 13:46:20 -08:00
parent bdef6c6252
commit 74d7430976
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
notibox.el
View File

@ -144,11 +144,14 @@ If FRAME is the root Emacs window, or some other symbol, hide all notiboxes."
(defun notibox--tail-echoarea () (defun notibox--tail-echoarea ()
"Show `current-message' in the notibox. If that does not exist, probably hide it." "Show `current-message' in the notibox. If that does not exist, probably hide it."
(if (current-message) (if (current-message)
(let ((notibox-border-color "#0faa0f"))
(notibox-alert `( (notibox-alert `(
:title ,(format "%s" (current-buffer)) :title ,(format "%s" (current-buffer))
:message ,(current-message))) :message ,(current-message)
:depth 0)))
(if notibox-current-posframes (if notibox-current-posframes
(notibox-delete 'current)))) (notibox-delete (car notibox-current-posframes))))
)
(defun notibox/setup-timer () (defun notibox/setup-timer ()
"Start running notibox." "Start running notibox."