summary refs log tree commit diff stats
path: root/init.el
diff options
context:
space:
mode:
Diffstat (limited to 'init.el')
-rw-r--r--init.el37
1 files changed, 6 insertions, 31 deletions
diff --git a/init.el b/init.el index db5f512..a234d4e 100644 --- a/init.el +++ b/init.el
@@ -43,14 +43,13 @@
43 read-file-name-completion-ignore-case t) 43 read-file-name-completion-ignore-case t)
44 ;; Bindings 44 ;; Bindings
45 (:global "C-x C-k" #'kill-current-buffer 45 (:global "C-x C-k" #'kill-current-buffer
46 "C-x 4 n" #'clone-buffer 46 "C-M--" #'+goto-matching-paren
47 "C-c v" #'visible-mode 47 "C-c v" #'visible-mode
48 "C-M-;" #'+lisp-comment-or-uncomment-sexp 48 "C-M-;" #'+lisp-comment-or-uncomment-sexp
49 "C-x C-o" #'+switch-to-last-buffer 49 "C-x C-o" #'+switch-to-last-buffer
50 "C-x o" #'+switch-to-last-buffer 50 "C-x o" #'+switch-to-last-buffer
51 "C-x C-l" #'+open-paragraph ; original: downcase-region 51 "C-x C-l" #'+open-paragraph ; original: downcase-region
52 "C-w" #'+kill-word-backward-or-region 52 "C-w" #'+kill-word-backward-or-region
53 "C-x C-m" #'execute-extended-command ; original: coding systems
54 "C-<backspace>" #'+backward-kill-word 53 "C-<backspace>" #'+backward-kill-word
55 "C-x TAB" #'+indent-rigidly 54 "C-x TAB" #'+indent-rigidly
56 "<f7>" #'flyspell-mode 55 "<f7>" #'flyspell-mode
@@ -60,8 +59,8 @@
60 ;; Disable bindings 59 ;; Disable bindings
61 (:global "M-j" nil 60 (:global "M-j" nil
62 "<Scroll_Lock>" nil) 61 "<Scroll_Lock>" nil)
63 (:+leader "C-t d" #'toggle-debug-on-error 62 (:+leader "C-d e" #'toggle-debug-on-error
64 "C-t q" #'toggle-debug-on-quit) 63 "C-d q" #'toggle-debug-on-quit)
65 ;; C-h deletes backward - see https://idiomdrottning.org/bad-emacs-defaults 64 ;; C-h deletes backward - see https://idiomdrottning.org/bad-emacs-defaults
66 (global-set-key (kbd "C-h") 'delete-backward-char) 65 (global-set-key (kbd "C-h") 'delete-backward-char)
67 (keyboard-translate ?\C-h ?\C-?) 66 (keyboard-translate ?\C-h ?\C-?)
@@ -131,31 +130,6 @@
131 (global-goto-address-mode) 130 (global-goto-address-mode)
132 (add-hook 'after-change-major-mode-hook #'goto-address-mode))) 131 (add-hook 'after-change-major-mode-hook #'goto-address-mode)))
133 132
134(setup (:require hide-cursor-mode) ; In lisp/
135 (:hook-into view-mode
136 Info-mode
137 Man-mode
138 help-mode
139 helpful-mode
140 notmuch-show-mode
141 magit-log-mode
142 vc-log-mode
143 nov-mode
144 elfeed-show-mode
145 reading-mode)
146 (:bind-into (view
147 Info
148 help-mode
149 helpful
150 notmuch-show
151 magit-log
152 nov
153 elfeed-show
154 reading)
155 "<f7>" #'hide-cursor-mode)
156 (:with-mode Man-mode
157 (:bind "<f7>" #'hide-cursor-mode)))
158
159(setup (:require pulse) 133(setup (:require pulse)
160 (:also-load +pulse) 134 (:also-load +pulse)
161 (:option pulse-flag nil 135 (:option pulse-flag nil
@@ -258,7 +232,7 @@
258 (list 232 (list
259 (cons (rx bos (or "gemini:" "gopher:")) #'elpher-browse-url-elpher) 233 (cons (rx bos (or "gemini:" "gopher:")) #'elpher-browse-url-elpher)
260 (cons (rx ; images 234 (cons (rx ; images
261 "." (or "jpeg" "jpg" "png" "bmp") eos) 235 "." (or "jpeg" "jpg" "png" "bmp" "webp") eos)
262 (lambda (&rest args) 236 (lambda (&rest args)
263 (apply 237 (apply
264 (cond ((executable-find "mpv") #'+browse-image-with-mpv) 238 (cond ((executable-find "mpv") #'+browse-image-with-mpv)
@@ -513,7 +487,8 @@
513 (+kmacro-block-undo-mode +1))) 487 (+kmacro-block-undo-mode +1)))
514 488
515(setup midnight 489(setup midnight
516 (midnight-mode +1)) 490 (midnight-mode +1)
491 (add-hook 'midnight-hook #'recentf-cleanup))
517 492
518(setup minibuffer 493(setup minibuffer
519 (:require +minibuffer) 494 (:require +minibuffer)