Emacs, Dunst: Replace Dunst with EDNC

1 files changed, 37 insertions, 1 deletions

diff --git a/common/.emacs.d/init.el b/common/.emacs.d/init.el
index 13189d1..0a17db2 100644
--- a/common/.emacs.d/init.el
+++ b/common/.emacs.d/init.el
@@ -3930,6 +3930,32 @@ instead."
     (interactive)
     (spawn-term default-directory)))
 
+(use-package ednc-popup
+  :if (group-enabled-p 'exwm)
+  :vc (:url "https://codeberg.org/akib/emacs-ednc-popup")
+  :ensure t
+  :init
+  (defun my/ednc-popup-clear-one ()
+    (interactive)
+    (require 'ednc)
+    (ednc-popup--hide
+     (car ednc-popup--active-notifications)))
+  (defun my/ednc-popup-clear-all ()
+    (interactive)
+    (require 'ednc)
+    (ednc-popup--hide-all)))
+
+(use-package ednc
+  :if (group-enabled-p 'exwm)
+  :ensure t
+  :diminish
+  :init
+  (ednc-mode 1)
+  :config
+  (add-hook
+   'ednc-notification-presentation-functions
+   #'ednc-popup-presentation-function))
+
 (use-package exwm
   :if (group-enabled-p 'exwm)
   :ensure t
@@ -3991,6 +4017,12 @@ instead."
   (define-rrr wallpapers "dired-wallpapers" "\\*wallpapers\\*")
   (defalias 'walls 'wallpapers)
 
+  (defun notifications ()
+    (interactive)
+    (run-raise-remove
+     nil "\\*ednc-log\\*"
+     (lambda (_) (switch-to-buffer "*ednc-log*"))))
+
   (defun email ()
     (interactive)
     (run-raise-remove (lambda ()
@@ -4262,7 +4294,11 @@ instead."
      ("s-x B 1" barrier-on)
      ("s-x B 0" barrier-off)
 
-     ("s-h" exwm-workspace-switch)))
+     ("s-h" exwm-workspace-switch)
+
+     ("s-`" my/ednc-popup-clear-one)
+     ("C-s-`" my/ednc-popup-clear-all)
+     ("s-~" notifications)))
 
   (define-keymap
     :keymap exwm-mode-map