djm
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add view-mode config

This commit is contained in:
David Morgan 2023-11-11 13:34:29 +00:00
parent f9bedbaff6
commit 3f288c5c2b
Signed by: djm
GPG Key ID: C171251002C200F2
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
.emacs.d/lisp/init-ui.el
View File

@ -20,6 +20,32 @@
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes")
(load-theme 'non-modo t)))
;; http://yummymelon.com/devnull/enhancing-navigation-in-emacs-view-mode.html
(view-mode . (lambda ()
(cond ((derived-mode-p 'org-mode)
(define-key view-mode-map (kbd "p") 'org-previous-visible-heading)
(define-key view-mode-map (kbd "n") 'org-next-visible-heading))
((derived-mode-p 'markdown-mode)
(define-key view-mode-map (kbd "p") 'markdown-outline-previous)
(define-key view-mode-map (kbd "n") 'markdown-outline-next))
((derived-mode-p 'html-mode)
(define-key view-mode-map (kbd "p") 'sgml-skip-tag-backward)
(define-key view-mode-map (kbd "n") 'sgml-skip-tag-forward))
((derived-mode-p 'emacs-lisp-mode)
(define-key view-mode-map (kbd "p") 'backward-sexp)
(define-key view-mode-map (kbd "n") 'forward-sexp))
((derived-mode-p 'clojure-mode)
(define-key view-mode-map (kbd "p") 'backward-sexp)
(define-key view-mode-map (kbd "n") 'forward-sexp))
((derived-mode-p 'makefile-mode)
(define-key view-mode-map (kbd "p") 'makefile-previous-dependency)
(define-key view-mode-map (kbd "n") 'makefile-next-dependency))
((derived-mode-p 'c-mode)
(define-key view-mode-map (kbd "p") 'c-beginning-of-defun)
(define-key view-mode-map (kbd "n") 'c-end-of-defun))
(t
(define-key view-mode-map (kbd "p") 'scroll-down-command)
(define-key view-mode-map (kbd "n") 'scroll-up-command)))))
:config
;; https://github.com/rougier/elegant-emacs/blob/master/sanity.el
(setq inhibit-startup-screen t