pulsar

2 files changed, 36 insertions, 3 deletions

diff --git a/init.org b/init.org
index 6a16f01..e455e2c 100644
--- a/init.org
+++ b/init.org
@@ -473,7 +473,6 @@
         (setq jao-transparent-only-bg t jao-frames-default-alpha 88)
         (jao-set-transparency)
         (x-change-window-property "_XMONAD_TRAYPAD" "" nil nil nil nil 0)
-        (jao-trayer)
         (jao-trisect t))
     #+end_src
 *** xmonad
@@ -918,7 +917,6 @@
         (setq dired-recursive-deletes 'top
               dired-recursive-copies 'top
               dired-listing-switches "-alhF --group-directories-first"
-              dired-free-space-args "-Ph"
               ls-lisp-dirs-first t
               dired-dwim-target t
               dired-kill-when-opening-new-dired-buffer t
@@ -1113,6 +1111,39 @@
     #+begin_src emacs-lisp
       (setq buffer-quit-function (lambda () t))
     #+end_src
+*** pulsar
+    #+begin_src emacs-lisp
+      (use-package pulsar
+        :ensure t
+        :init (pulsar-setup)
+        :custom ((pulsar-pulse-functions
+                  '(recenter-top-bottom
+                    move-to-window-line-top-bottom
+                    reposition-window
+                    other-window
+                    delete-window
+                    delete-other-windows
+                    forward-page
+                    backward-page
+                    scroll-up-command
+                    scroll-down-command
+                    org-next-visible-heading
+                    org-previous-visible-heading
+                    org-forward-heading-same-level
+                    org-backward-heading-same-level
+                    outline-backward-same-level
+                    outline-forward-same-level
+                    outline-next-visible-heading
+                    outline-previous-visible-heading
+                    outline-up-heading))
+                 (pulsar-pulse t)
+                 (pulsar-delay 0.5)
+                 (pulsar-iterations 10)
+                 (pulsar-face 'pulsar-generic)
+                 (pulsar-highlight-face 'pulsar-face))
+        :hook ((jao-afio-switch . pulsar-pulse-line)))
+
+    #+end_src
 * Windows
 *** Scrolling
     #+begin_src emacs-lisp
diff --git a/lib/themes/jao-themes.el b/lib/themes/jao-themes.el
index 4f11ba4..ea0acf8 100644
--- a/lib/themes/jao-themes.el
+++ b/lib/themes/jao-themes.el
@@ -978,7 +978,8 @@
           `((powerline-active1 (~ mode-line))
             (powerline-active2 (~ mode-line-inactive))
             (powerline-inactive1 (~ mode-line-inactive))
-            (powerline-inactive2 (~ mode-line)))
+            (powerline-inactive2 (~ mode-line))
+            (pulsar-generic (p hilite)))
           `((query-replace bf (p hilite)))
           `((rcirc-bright-nick (p hilite))
             (rcirc-my-nick (p warning))
@@ -1010,6 +1011,7 @@
             (shortdoc-heading (p outline-1) nul)
             (shortdoc-section (p outline-2))
             (shortdoc-separator (p dimm) st ex)
+            (shr-code (p hilite))
             (shr-h1 (p outline-1))
             (shr-h2 (p outline-2))
             (shr-h3 (p outline-3))