From d2074d53341650eb227ce2c1aaeb56c77d2654f8 Mon Sep 17 00:00:00 2001 From: MitchMarq42 Date: Fri, 7 Apr 2023 09:14:24 -0800 Subject: [PATCH] Prune `alert' code, it's broken anyway --- notibox.el | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) diff --git a/notibox.el b/notibox.el index cd4c126..5d1fff5 100644 --- a/notibox.el +++ b/notibox.el @@ -4,7 +4,7 @@ ;; Author: mitch ;; Keywords:frames,convenience,help -;; Package-Requires: ((alert) (posframe)) +;; Package-Requires: ((posframe)) ;; This file is NOT part of GNU Emacs @@ -28,7 +28,6 @@ ;;; Code: (require 'posframe) -(require 'alert) (defvar notibox-width 40) ; characters (defvar notibox-height 4) ; characters @@ -84,18 +83,12 @@ (defun notibox--hide (frame) (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)) (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) (provide 'notibox)