diff options
-rw-r--r-- | lisp/+emacs.el | 26 |
1 files changed, 19 insertions, 7 deletions
diff --git a/lisp/+emacs.el b/lisp/+emacs.el index ecdfeaa..312657e 100644 --- a/lisp/+emacs.el +++ b/lisp/+emacs.el | |||
@@ -25,6 +25,7 @@ Do this only if the buffer is not visiting a file." | |||
25 | (let ((buffer-file-name (buffer-name buf))) | 25 | (let ((buffer-file-name (buffer-name buf))) |
26 | (set-auto-mode)))) | 26 | (set-auto-mode)))) |
27 | 27 | ||
28 | |||
28 | ;;; General settings | 29 | ;;; General settings |
29 | 30 | ||
30 | (setq-default | 31 | (setq-default |
@@ -139,6 +140,7 @@ Do this only if the buffer is not visiting a file." | |||
139 | (when (version< emacs-version "28") | 140 | (when (version< emacs-version "28") |
140 | (fset 'yes-or-no-p 'y-or-n-p)) | 141 | (fset 'yes-or-no-p 'y-or-n-p)) |
141 | 142 | ||
143 | |||
142 | ;;; Encodings | 144 | ;;; Encodings |
143 | 145 | ||
144 | (setq-default locale-coding-system 'utf-8-unix | 146 | (setq-default locale-coding-system 'utf-8-unix |
@@ -166,6 +168,7 @@ Do this only if the buffer is not visiting a file." | |||
166 | (set-selection-coding-system 'utf-8) | 168 | (set-selection-coding-system 'utf-8) |
167 | (set-clipboard-coding-system 'utf-8))) | 169 | (set-clipboard-coding-system 'utf-8))) |
168 | 170 | ||
171 | |||
169 | ;;; Modes | 172 | ;;; Modes |
170 | 173 | ||
171 | (dolist (enable-mode '(global-auto-revert-mode | 174 | (dolist (enable-mode '(global-auto-revert-mode |
@@ -189,11 +192,13 @@ Do this only if the buffer is not visiting a file." | |||
189 | (when (fboundp disable-mode) | 192 | (when (fboundp disable-mode) |
190 | (funcall disable-mode -1))) | 193 | (funcall disable-mode -1))) |
191 | 194 | ||
195 | |||
192 | ;;; Hooks | 196 | ;;; Hooks |
193 | 197 | ||
194 | (add-hook 'after-save-hook 'executable-make-buffer-file-executable-if-script-p) | 198 | (add-hook 'after-save-hook 'executable-make-buffer-file-executable-if-script-p) |
195 | (add-hook 'minibuffer-setup-hook 'cursor-intangible-mode) | 199 | (add-hook 'minibuffer-setup-hook 'cursor-intangible-mode) |
196 | 200 | ||
201 | |||
197 | ;;; Better-default functions ... | 202 | ;;; Better-default functions ... |
198 | 203 | ||
199 | (defun +cycle-spacing (&optional n preserve-nl-back mode) | 204 | (defun +cycle-spacing (&optional n preserve-nl-back mode) |
@@ -238,6 +243,7 @@ backward. It defaults to `backward-kill-word'." | |||
238 | (advice-add #'yank :after #'+yank@indent) | 243 | (advice-add #'yank :after #'+yank@indent) |
239 | (advice-add #'yank-pop :after #'+yank@indent) | 244 | (advice-add #'yank-pop :after #'+yank@indent) |
240 | 245 | ||
246 | |||
241 | ;;; Bindings | 247 | ;;; Bindings |
242 | 248 | ||
243 | ;; I need to place these bindings under `+key-mode-map' so that they aren't | 249 | ;; I need to place these bindings under `+key-mode-map' so that they aren't |
@@ -255,6 +261,7 @@ backward. It defaults to `backward-kill-word'." | |||
255 | ("C-M-r" . isearch-backward))) | 261 | ("C-M-r" . isearch-backward))) |
256 | (define-key +key-mode-map (kbd (car binding)) (cdr binding))) | 262 | (define-key +key-mode-map (kbd (car binding)) (cdr binding))) |
257 | 263 | ||
264 | |||
258 | ;;; Required libraries | 265 | ;;; Required libraries |
259 | 266 | ||
260 | (when (require 'uniquify nil :noerror) | 267 | (when (require 'uniquify nil :noerror) |
@@ -276,13 +283,6 @@ backward. It defaults to `backward-kill-word'." | |||
276 | (add-to-list 'recentf-exclude .etc) | 283 | (add-to-list 'recentf-exclude .etc) |
277 | (recentf-mode +1)) | 284 | (recentf-mode +1)) |
278 | 285 | ||
279 | (when (require 'repeat nil :noerror) | ||
280 | (setq-default repeat-exit-key "g" | ||
281 | repeat-exit-timeout 5) | ||
282 | (when (fboundp 'repeat-mode) | ||
283 | ;; `repeat-mode' is defined in repeat.el, which is an older library. | ||
284 | (repeat-mode +1))) | ||
285 | |||
286 | (when (require 'savehist nil :noerror) | 286 | (when (require 'savehist nil :noerror) |
287 | (setq-default history-length t | 287 | (setq-default history-length t |
288 | history-delete-duplicates t | 288 | history-delete-duplicates t |
@@ -309,5 +309,17 @@ backward. It defaults to `backward-kill-word'." | |||
309 | ;; (add-to-list 'tramp-default-proxies-alist | 309 | ;; (add-to-list 'tramp-default-proxies-alist |
310 | ;; '((regexp-quote (system-name)) nil nil))) | 310 | ;; '((regexp-quote (system-name)) nil nil))) |
311 | 311 | ||
312 | |||
313 | ;;; Newer features | ||
314 | ;; These aren't in older version of Emacs, but they're so nice. | ||
315 | |||
316 | (when (fboundp 'repeat-mode) | ||
317 | (setq-default repeat-exit-key "g" | ||
318 | repeat-exit-timeout 5) | ||
319 | (repeat-mode +1)) | ||
320 | |||
321 | (when (fboundp 'pixel-scroll-precision-mode) | ||
322 | (pixel-scroll-precision-mode +1)) | ||
323 | |||
312 | (provide '+emacs) | 324 | (provide '+emacs) |
313 | ;;; +emacs.el ends here | 325 | ;;; +emacs.el ends here |