From 776cfd788ed89a4705155fa077f2d8dd21ae50e2 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 21 Nov 2020 21:45:30 +0000
Subject: jao-ednc: simple register of per-app notification handlers
---
misc/jao-ednc.el | 32 ++++++++++++++++++++++++--------
1 file changed, 24 insertions(+), 8 deletions(-)
(limited to 'misc')
diff --git a/misc/jao-ednc.el b/misc/jao-ednc.el
index 6a28658..48223d8 100644
--- a/misc/jao-ednc.el
+++ b/misc/jao-ednc.el
@@ -47,15 +47,31 @@
(let ((no (length (ednc-notifications))))
(if (> no 0) (format jao-ednc--count-format no) "")))
-(defun jao-ednc--on-notify (old new)
- (when old
+(defvar jao-ednc--handlers ())
+
+(defun jao-ednc-add-handler (app handler)
+ (add-to-list 'jao-ednc--handlers (cons app handler)))
+
+(defun jao-ednc--default-handler (notification newp)
+ (if newp
+ (progn
+ (tracking-add-buffer (get-buffer ednc-log-name) '(jao-ednc-tracking))
+ (setq jao-ednc--last-notification notification)
+ (jao-minibuffer-push-notification '(:eval (jao-ednc--format-last))))
(tracking-remove-buffer (get-buffer ednc-log-name))
(setq jao-ednc--last-notification nil)
- (jao-minibuffer-pop-notification))
- (when new
- (tracking-add-buffer (get-buffer ednc-log-name))
- (setq jao-ednc--last-notification new)
- (jao-minibuffer-push-notification '(:eval (jao-ednc--format-last)))))
+ (jao-minibuffer-pop-notification)))
+
+(defun jao-ednc--handler (notification)
+ (alist-get (ednc-notification-app-name notification)
+ jao-ednc--handlers
+ #'jao-ednc--default-handler
+ nil
+ 'string=))
+
+(defun jao-ednc--on-notify (old new)
+ (when old (funcall (jao-ednc--handler old) old nil))
+ (when new (funcall (jao-ednc--handler new) new t)))
;;;###autoload
(defun jao-ednc-setup ()
@@ -64,7 +80,7 @@
(add-to-list 'tracking-faces-priorities 'jao-ednc-tracking)
(when (listp tracking-shorten-modes)
(add-to-list 'tracking-shorten-modes 'ednc-view-mode)))
- (jao-minibuffer-add-variable '(jao-ednc--count) t)
+ ;; (jao-minibuffer-add-variable '(jao-ednc--count) t)
(add-hook 'ednc-notification-presentation-functions #'jao-ednc--on-notify)
(ednc-mode))
--
cgit v1.2.3