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

Prune `alert' code, it's broken anyway

Browse Source
This commit is contained in:
MitchMarq42 2023-04-07 09:14:24 -08:00
parent 433d33ccc8
commit d2074d5334
1 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
notibox.el
View File

@ -4,7 +4,7 @@
;; Author: mitch <mitch@mitchmarq42.xyz> ;; Author: mitch <mitch@mitchmarq42.xyz>
;; Keywords:frames,convenience,help ;; Keywords:frames,convenience,help
;; Package-Requires: ((alert) (posframe)) ;; Package-Requires: ((posframe))
;; This file is NOT part of GNU Emacs ;; This file is NOT part of GNU Emacs
@ -28,7 +28,6 @@
;;; Code: ;;; Code:
(require 'posframe) (require 'posframe)
(require 'alert)
(defvar notibox-width 40) ; characters (defvar notibox-width 40) ; characters
(defvar notibox-height 4) ; characters (defvar notibox-height 4) ; characters
@ -84,18 +83,12 @@
(defun notibox--hide (frame) (defun notibox--hide (frame)
(posframe-hide "*notibox*")) (posframe-hide "*notibox*"))
(defun notibox-alert-clear (info) (defun notibox-delete (frame)
;; TODO: if parent, hide all. Otherwise just the one.
(notibox--hide (car notibox-current-posframes)) (notibox--hide (car notibox-current-posframes))
(pop notibox-current-posframes)) (pop notibox-current-posframes))
(alert-define-style 'notibox
:title "NotiBox"
:notifier #'notibox-alert
:remover #'notibox-alert-clear)
(setq alert-default-style 'notibox)
;; (alert "messaig" :title "tital")
;; (notibox-alert '(:title "five" :message "six"))
;; (notibox--hide 'anything) ;; (notibox--hide 'anything)
(provide 'notibox) (provide 'notibox)