From: Amin Bandali <bandali@gnu.org>
Date: Fri, 6 Sep 2019 22:06:55 +0000 (-0400)
Subject: emacs: exwm: add smooth-scrolling with C-p and C-n when in zathura
X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/cbe95dea5068fa849d3316ce298622fc05725436?ds=sidebyside;hp=cb058d219446b570acb36284353063ddd5914f3c

emacs: exwm: add smooth-scrolling with C-p and C-n when in zathura
---

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index e132088..0f080b6 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -718,16 +718,20 @@ around if needed."
   (exwm-manage-finish . (lambda ()
                           (when exwm-class-name
                             (cond
-                             ((string= exwm-class-name "URxvt")
-                              (exwm-input-set-local-simulation-keys
-                               '(([?\C-c ?\C-c] . [?\C-c])
-                                 ([?\C-c ?\C-u] . [?\C-u]))))
                              ((string= exwm-class-name "Abrowser")
                               (exwm-input-set-local-simulation-keys
                                `(,@exwm-input-simulation-keys
                                  ([?\C-\S-d] . [?\C-d])
                                  ([?\C-q] . [?\C-w])
-                                 ([?\s-q] . [?\C-q])))))))))
+                                 ([?\s-q] . [?\C-q]))))
+                             ((string= exwm-class-name "URxvt")
+                              (exwm-input-set-local-simulation-keys
+                               '(([?\C-c ?\C-c] . [?\C-c])
+                                 ([?\C-c ?\C-u] . [?\C-u]))))
+                             ((string= exwm-class-name "Zathura")
+                              (exwm-input-set-local-simulation-keys
+                               '(([?\C-p] . [C-up])
+                                 ([?\C-n] . [C-down])))))))))
 
 (use-feature exwm-randr
   :demand