emacs: exwm: add smooth-scrolling with C-p and C-n when in zathura
authorAmin Bandali <bandali@gnu.org>
Fri, 6 Sep 2019 22:06:55 +0000 (18:06 -0400)
committerAmin Bandali <bandali@gnu.org>
Fri, 6 Sep 2019 22:07:27 +0000 (18:07 -0400)
.emacs.d/init.el

index e132088..0f080b6 100644 (file)
@@ -718,16 +718,20 @@ around if needed."
   (exwm-manage-finish . (lambda ()
                           (when exwm-class-name
                             (cond
   (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])
                              ((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
 
 (use-feature exwm-randr
   :demand