From fd4e8fc58d6093fa155fe28ca059656bb6bb93e4 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 25 Mar 2022 03:18:29 +0000
Subject: pulsar-mode

---
 init.org | 48 +++++++++++++++++++++++++-----------------------
 1 file changed, 25 insertions(+), 23 deletions(-)

(limited to 'init.org')

diff --git a/init.org b/init.org
index 2c3b050..f163425 100644
--- a/init.org
+++ b/init.org
@@ -1115,7 +1115,7 @@
     #+begin_src emacs-lisp
       (use-package pulsar
         :ensure t
-        :init (pulsar-setup)
+        :diminish
         :custom ((pulsar-pulse-functions
                   '(recenter-top-bottom
                     move-to-window-line-top-bottom
@@ -1137,12 +1137,14 @@
                     outline-previous-visible-heading
                     outline-up-heading))
                  (pulsar-pulse t)
-                 (pulsar-delay 0.5)
+                 (pulsar-delay 0.1)
                  (pulsar-iterations 10)
-                 (pulsar-face 'pulsar-generic)
+                 (pulsar-face 'pulsar-yellow)
                  (pulsar-highlight-face 'pulsar-face))
         :hook ((jao-afio-switch . pulsar-pulse-line)))
 
+      (pulsar-global-mode)
+
     #+end_src
 * Windows
 *** Scrolling
@@ -1728,26 +1730,26 @@
                     ("k" . doc-view-previous-line-or-previous-page)
                     ("K" . doc-view-scroll-down-or-previous-page)))
 
-      (use-package pdf-tools
-        :ensure t
-        :demand t
-        :init
-        (add-hook 'after-init-hook
-                  (lambda ()
-                    (setq pdf-view-midnight-colors
-                          (cons (frame-parameter nil 'foreground-color)
-                                (frame-parameter nil 'background-color)))))
-        :config
-        (pdf-tools-install)
-
-        :diminish ((pdf-view-midnight-minor-mode . ""))
-
-        :bind (:map pdf-view-mode-map
-                    (("C-c C-d" . pdf-view-midnight-minor-mode)
-                     ("j" . pdf-view-next-line-or-next-page)
-                     ("J" . pdf-view-scroll-up-or-next-page)
-                     ("k" . pdf-view-previous-line-or-previous-page)
-                     ("K" . pdf-view-scroll-down-or-previous-page))))
+      ;; (use-package pdf-tools
+      ;;   :ensure t
+      ;;   :demand t
+      ;;   :init
+      ;;   (add-hook 'after-init-hook
+      ;;             (lambda ()
+      ;;               (setq pdf-view-midnight-colors
+      ;;                     (cons (frame-parameter nil 'foreground-color)
+      ;;                           (frame-parameter nil 'background-color)))))
+      ;;   :config
+      ;;   (pdf-tools-install)
+
+      ;;   :diminish ((pdf-view-midnight-minor-mode . ""))
+
+      ;;   :bind (:map pdf-view-mode-map
+      ;;               (("C-c C-d" . pdf-view-midnight-minor-mode)
+      ;;                ("j" . pdf-view-next-line-or-next-page)
+      ;;                ("J" . pdf-view-scroll-up-or-next-page)
+      ;;                ("k" . pdf-view-previous-line-or-previous-page)
+      ;;                ("K" . pdf-view-scroll-down-or-previous-page))))
 
       (use-package saveplace-pdf-view
         :ensure t
-- 
cgit v1.2.3