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.el39
1 files changed, 20 insertions, 19 deletions
diff --git a/init.el b/init.el index 9e6f79f..24d71ed 100644 --- a/init.el +++ b/init.el
@@ -66,7 +66,7 @@
66;; Flash the mode line 66;; Flash the mode line
67(defun flash-mode-line () 67(defun flash-mode-line ()
68 "Flash the modeline as a bell." 68 "Flash the modeline as a bell."
69 (when (eq acdw/system :home) 69 (when (acdw/system :home)
70 (beep)) 70 (beep))
71 (invert-face 'mode-line) 71 (invert-face 'mode-line)
72 (run-with-timer 0.1 nil #'invert-face 'mode-line)) 72 (run-with-timer 0.1 nil #'invert-face 'mode-line))
@@ -103,7 +103,7 @@
103 'browse-url-default-browser) 103 'browse-url-default-browser)
104 browse-url-new-window-flag t 104 browse-url-new-window-flag t
105 browse-url-firefox-new-window-is-tab t) 105 browse-url-firefox-new-window-is-tab t)
106 (when (eq acdw/system :work) 106 (when (acdw/system :work)
107 (add-to-list 'exec-path "C:/Program Files/Mozilla Firefox"))) 107 (add-to-list 'exec-path "C:/Program Files/Mozilla Firefox")))
108 108
109(setup buffers 109(setup buffers
@@ -162,14 +162,14 @@
162 162
163 (:global "C-x C-j" dired-jump) 163 (:global "C-x C-j" dired-jump)
164 164
165 (pcase acdw/system 165 (acdw/system
166 (:work (:straight w32-browser) 166 (:work (:straight w32-browser)
167 (autoload 'dired-w32-browser "w32-browser") 167 (autoload 'dired-w32-browser "w32-browser")
168 (:bind "RET" dired-w32-browser)) 168 (:bind "RET" dired-w32-browser))
169 (:home (:straight dired-open) 169 (:home (:straight dired-open)
170 (require 'dired-open) 170 (require 'dired-open)
171 (:bind "RET" dired-find-alternate-file) 171 (:bind "RET" dired-find-alternate-file)
172 (:option (prepend dired-open-functions) #'dired-open-xdg))) 172 (:option (prepend dired-open-functions) #'dired-open-xdg)))
173 173
174 (:when-loaded 174 (:when-loaded
175 (:straight dired-subtree) 175 (:straight dired-subtree)
@@ -251,11 +251,11 @@
251 (set-terminal-coding-system 'utf-8-unix) 251 (set-terminal-coding-system 'utf-8-unix)
252 (set-keyboard-coding-system 'utf-8-unix) 252 (set-keyboard-coding-system 'utf-8-unix)
253 253
254 (pcase acdw/system 254 (acdw/system
255 (:work (set-clipboard-coding-system 'utf-16-le) 255 (:work (set-clipboard-coding-system 'utf-16-le)
256 (set-selection-coding-system 'utf-16-le)) 256 (set-selection-coding-system 'utf-16-le))
257 (_ (set-selection-coding-system 'utf-8) 257 (_ (set-selection-coding-system 'utf-8)
258 (set-clipboard-coding-system 'utf-8)))) 258 (set-clipboard-coding-system 'utf-8))))
259 259
260(setup eshell 260(setup eshell
261 (:option eshell-directory-name (acdw/dir "eshell/" t) 261 (:option eshell-directory-name (acdw/dir "eshell/" t)
@@ -469,7 +469,7 @@
469 469
470(setup saveplace 470(setup saveplace
471 (:option save-place-file (acdw/dir "places.el") 471 (:option save-place-file (acdw/dir "places.el")
472 save-place-forget-unreadable-files (eq acdw/system :home)) 472 save-place-forget-unreadable-files (acdw/system :home))
473 473
474 (save-place-mode +1)) 474 (save-place-mode +1))
475 475
@@ -617,7 +617,8 @@
617 617
618 ;; Use a dumb formatter on modes that `apheleia' doesn't work for. 618 ;; Use a dumb formatter on modes that `apheleia' doesn't work for.
619 (hook-defun dumb-auto-format before-save-hook 619 (hook-defun dumb-auto-format before-save-hook
620 (setq stupid-modes '(makefile-mode)) 620 (setq stupid-modes '(makefile-mode
621 org-mode))
621 ;; If there's no apheleia formatter for the mode, just indent the buffer. 622 ;; If there's no apheleia formatter for the mode, just indent the buffer.
622 (unless (or (apply #'derived-mode-p stupid-modes) 623 (unless (or (apply #'derived-mode-p stupid-modes)
623 (and (fboundp 'apheleia--get-formatter-command) 624 (and (fboundp 'apheleia--get-formatter-command)
@@ -1039,7 +1040,7 @@ if ripgrep is installed, otherwise `consult-grep'."
1039 (:option undo-fu-session-incompatible-files '("/COMMIT_EDITMSG\\'" 1040 (:option undo-fu-session-incompatible-files '("/COMMIT_EDITMSG\\'"
1040 "/git-rebase-todo\\'") 1041 "/git-rebase-todo\\'")
1041 undo-fu-session-directory (acdw/dir "undo/" t) 1042 undo-fu-session-directory (acdw/dir "undo/" t)
1042 undo-fu-session-compression (eq acdw/system :home)) 1043 undo-fu-session-compression (acdw/system :home))
1043 1044
1044 (global-undo-fu-session-mode +1)) 1045 (global-undo-fu-session-mode +1))
1045 1046
@@ -1113,7 +1114,7 @@ call `zzz-to-char'."
1113;;; System-dependent 1114;;; System-dependent
1114 1115
1115;;;; Home 1116;;;; Home
1116(when (eq acdw/system :home) 1117(when (acdw/system :home)
1117 1118
1118 (setup (:straight pkgbuild-mode)) 1119 (setup (:straight pkgbuild-mode))
1119 1120