diff options
| -rw-r--r-- | emacs-config.org | 25 |
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 |