refactor: popper-mode.

seagle0128 · Oct 13, 2023 · dbfb2cd · dbfb2cd
1 parent 20144b4
commit dbfb2cd
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/lisp/init-window.el b/lisp/init-window.el
@@ -144,15 +144,17 @@
 
 ;; Enforce rules for popups
 (use-package popper
-  :defines popper-echo-dispatch-actions
-  :autoload popper-group-by-directory
+  :diminish (popper-mode popper-echo-mode)
+  :functions popper-echo-mode
+  :custom
+  (popper-group-function #'popper-group-by-directory)
+  (popper-echo-dispatch-actions t)
   :bind (:map popper-mode-map
-         ("C-h z"     . popper-toggle-latest)
+         ("C-h z"     . popper-toggle)
          ("C-<tab>"   . popper-cycle)
          ("C-M-<tab>" . popper-toggle-type))
   :hook (emacs-startup . popper-mode)
   :init
-  (setq popper-group-function #'popper-group-by-directory)
   (setq popper-reference-buffers
         '("\\*Messages\\*"
           "Output\\*$" "\\*Pp Eval Output\\*$"
@@ -220,8 +222,6 @@
                         (format " %s "
                                 (nerd-icons-octicon "nf-oct-pin" :face face))
                       (propertize " POP" 'face face))))))
-
-  (setq popper-echo-dispatch-actions t)
   :config
   (popper-echo-mode 1)