add vi keys for w3m and calendar modes

emacs/.emacs

@@ -26,6 +26,28 @@
   (define-key mode-map (kbd "C-w =") 'balance-windows)
   (define-key mode-map (kbd "C-w |") 'evil-window-set-width))
 
+(defun setup-w3m ()
+  ; https://people.freebsd.org/~kiri/xemacs/repo/packages/xemacs-packages/w3m/w3m/doc/emacs-w3m.pdf
+  (setq w3m-use-tabs t)
+
+  (define-key w3m-mode-map "i" 'w3m-view-this-url)
+  (define-key w3m-mode-map "T" 'w3m-copy-buffer)
+  (define-key w3m-mode-map "D" 'w3m-delete-buffer)
+  (define-key w3m-mode-map "o" 'w3m-goto-url)
+  (define-key w3m-mode-map "O" 'w3m-goto-url-new-session)
+  (define-key w3m-mode-map "H" 'w3m-view-previous-page)
+  (define-key w3m-mode-map "L" 'w3m-view-next-page)
+  (define-key w3m-mode-map "K" 'w3m-previous-buffer)
+  (define-key w3m-mode-map "J" 'w3m-next-buffer)
+  (define-key w3m-mode-map (kbd "yy") 'w3m-print-current-url) ; copy current url
+  (define-key w3m-mode-map (kbd "C-y") 'w3m-scroll-down)
+  (define-key w3m-mode-map (kbd "C-e") 'w3m-scroll-up)
+  (define-key w3m-mode-map (kbd "C-f") 'w3m-scroll-up-or-next-url)
+  (define-key w3m-mode-map (kbd "C-b") 'w3m-scroll-down-or-previous-url)
+
+  (setup-vi-keys-for-splits w3m-mode-map)
+)
+
 ;;; General
 ;
 ;; Don't show welcome screen every time
@@ -59,6 +81,10 @@
 ;(setq split-height-threshold nil)
 ;(setq split-width-threshold 0)
 ;
+;; Set default evil states for a few modes
+(evil-set-initial-state 'package-menu-mode 'normal)
+(evil-set-initial-state 'calendar-mode 'emacs)
+;
 ;; Scroll buffer without moving cursor
 ; https://www.emacswiki.org/emacs/Scrolling#h5o-2
 (defun gcm-scroll-down ()
@@ -213,9 +239,31 @@
   (define-key doc-view-mode-map "J" 'doc-view-next-page)
   (define-key doc-view-mode-map "K" 'doc-view-previous-page)
   (define-key doc-view-mode-map (kbd "C-c C-k") 'doc-view-kill-proc)
+  (define-key doc-view-mode-map "G" 'doc-view-goto-page)
 
   (setup-vi-keys-for-splits doc-view-mode-map))
 
+;; vi keys for package-menu
+(with-eval-after-load 'package
+  (define-key package-menu-mode-map "j" 'evil-next-line)
+  (define-key package-menu-mode-map "k" 'evil-previous-line)
+  (define-key package-menu-mode-map "$" 'evil-end-of-line)
+  (define-key package-menu-mode-map "0" 'evil-digit-argument-or-evil-beginning-of-line)
+  (setup-vi-keys-for-splits package-menu-mode-map))
+
+;; vi keys for emacs-w3m
+(with-eval-after-load 'w3m (setup-w3m))
+
+;; vi keys for calendar
+(with-eval-after-load 'calendar
+  (define-key calendar-mode-map "h" 'calendar-backward-day)
+  (define-key calendar-mode-map "l" 'calendar-forward-day)
+  (define-key calendar-mode-map "k" 'calendar-backward-week)
+  (define-key calendar-mode-map "j" 'calendar-forward-week)
+  (define-key calendar-mode-map "H" 'calendar-backward-month)
+  (define-key calendar-mode-map "L" 'calendar-forward-month)
+  (define-key calendar-mode-map "K" 'calendar-backward-year)
+  (define-key calendar-mode-map "J" 'calendar-forward-year))
 
 ;
 ;; Set agenda files for org-agenda
@@ -235,7 +283,7 @@
 
 ;;; Proof-general mode
 ;
-;; Show goal and in vertical splits
+;; Show goal and response in vertical splits
 (eval-after-load "proof-script"
   '(setq proof-three-window-mode-policy 'hybrid))
 

zathura/zathurarc

@@ -1,16 +1,35 @@
-# https://pwmt.org/projects/zathura/documentation/
+# https://git.pwmt.org/pwmt/zathura/-/blob/develop/doc/man/zathura.1.rst
+# https://github.com/pwmt/zathura/blob/develop/doc/configuration/map.rst#shortcut-functions
 # https://wiki.archlinux.org/title/Zathura
-#
-#set default-bg  \#f0f0d1
+# https://askubuntu.com/questions/472540/is-there-a-pdf-reader-allowing-me-to-change-background-color-of-arxiv-pdfs
+# https://git.sr.ht/~troels/dotfiles/tree/master/.config/zathura/zathurarc
+# https://github.com/YingboMa/config/blob/master/zathurarc
+# https://gist.github.com/michaelmrose/9595075b43f24aa903fa
 
-set sandbox strict
+#set default-bg  \#f0f0d1
+#set sandbox strict
+#set default-fgcolor "#f0f0d1"
 
 set window-title-basename "true"
 set selection-clipboard "clipboard"
 
-# Change some colors
+# Set colors
 set recolor true
 set recolor-keephue
-set recolor-lightcolor "#f1f1d4"
-#set recolor-lightcolor "#f0f0d1"
+set recolor-lightcolor "#f0f0d1"
 set recolor-darkcolor "#000000"
+
+# Duplicate key bindings for scrolling
+map [normal] <C-e> scroll down
+map [normal] <C-y> scroll up
+
+# Don't make it that easy to quit zathura
+unmap q
+unmap [index] q  # I guess default mode is normal mode
+map Q quit
+map [index] Q quit
+
+# Index of document
+#map i toggle_index  # default key is Tab
+
+#map u toggle_inputbar