From cbe95dea5068fa849d3316ce298622fc05725436 Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Fri, 6 Sep 2019 18:06:55 -0400 Subject: emacs: exwm: add smooth-scrolling with C-p and C-n when in zathura --- .emacs.d/init.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) 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 -- cgit v1.2.3-60-g2f50