refactor: make use of +hook-once!

abougouffa · Apr 18, 2023 · 43b12bb · 43b12bb
1 parent 4a08072
commit 43b12bb
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 16 deletions.
diff --git a/modules/extras/me-mu4e-ui.el b/modules/extras/me-mu4e-ui.el
@@ -242,13 +242,9 @@ will also be the width of all other printable characters."
 (defun +mu4e-ui-setup ()
   (if (display-graphic-p)
       (+mu4e--ui-setup)
-    (add-hook
-     'server-after-make-frame-hook
-     (defun +mu4e-ui--setup-once-h ()
-       (when (display-graphic-p)
-         (+mu4e--ui-setup)
-         (remove-hook 'server-after-make-frame-hook
-                      #'+mu4e--ui-setup-once-h))))))
+    (+hook-once! server-after-make-frame-hook
+      (when (display-graphic-p)
+        (+mu4e--ui-setup)))))
 
 
 (provide 'me-mu4e-ui)

diff --git a/modules/me-daemon.el b/modules/me-daemon.el
@@ -40,15 +40,11 @@
  (defun +daemon--reload-theme-h ()
    (load-theme minemacs-theme t)))
 
-(add-hook
- 'server-after-make-frame-hook
- (defun +daemon--reload-battery-mode-once-h ()
-   (when (and (display-graphic-p)
-              (bound-and-true-p display-battery-mode))
-     (display-battery-mode -1)
-     (display-battery-mode 1)
-     (remove-hook 'server-after-make-frame-hook
-                  #'+daemon--reload-battery-mode-once-h))))
+(+hook-once! server-after-make-frame-hook
+  (when (and (display-graphic-p)
+             (bound-and-true-p display-battery-mode))
+    (display-battery-mode -1)
+    (display-battery-mode 1)))
 
 
 (provide 'me-daemon)