Configure view mode

1 files changed, 25 insertions, 0 deletions

diff --git a/emacs-config.org b/emacs-config.org
index b6f8aa3..aa689a7 100644
--- a/emacs-config.org
+++ b/emacs-config.org
@@ -1444,6 +1444,31 @@ Enable eglot for certain modes.
   (add-hook 'c++-mode-hook #'eglot-ensure)
 #+end_src
 
+** View Mode
+
+Simplify navigation when using view mode.
+#+begin_src elisp
+  (setq-default view-read-only t)
+
+  (with-eval-after-load 'view
+      (keymap-set view-mode-map "p" #'previous-line)       ; replaces #'View-search-last-regexp-backward
+      (keymap-set view-mode-map "n" #'next-line)           ; replaces #'View-search-last-regexp-forward
+      (keymap-set view-mode-map "f" #'forward-word)
+      (keymap-set view-mode-map "b" #'backward-word)
+      (keymap-set view-mode-map "m" #'back-to-indentation) ; replaces #'point-to-register
+      (keymap-set view-mode-map "a" #'move-beginning-of-line)
+      (keymap-set view-mode-map "e" #'move-end-of-line)    ; replaces #'view-exit
+      (keymap-set view-mode-map "o" #'other-window)        ; replaces #'View-scroll-to-buffer-end
+      (keymap-set view-mode-map "i" #'View-exit)
+      )
+
+  ;; make sure the cursor is changed visually
+  (setq-default cursor-type 'bar)
+  (add-hook 'view-mode-hook
+            (lambda ()
+              (setq-default cursor-type (if view-mode 'box 'bar))))
+#+end_src
+
 * Global Keybindings
 Unlock previously unusable keybinding.
 #+begin_src elisp