diff options
Diffstat (limited to 'init.el')
-rw-r--r-- | init.el | 51 |
1 files changed, 20 insertions, 31 deletions
diff --git a/init.el b/init.el index 6940b6c..c4d8664 100644 --- a/init.el +++ b/init.el | |||
@@ -199,7 +199,7 @@ | |||
199 | (icomplete-with-buffer-completion-tables t) | 199 | (icomplete-with-buffer-completion-tables t) |
200 | (icomplete-in-buffer t))) | 200 | (icomplete-in-buffer t))) |
201 | (acdw/pkg orderless | 201 | (acdw/pkg orderless |
202 | :now ((acdw/set '((completion-styles (orderless)))))) | 202 | :set '((completion-styles (orderless)))) |
203 | (acdw/pkg icomplete-vertical | 203 | (acdw/pkg icomplete-vertical |
204 | :binds (("<down>" icomplete-forward-completions | 204 | :binds (("<down>" icomplete-forward-completions |
205 | :map icomplete-minibuffer-map) | 205 | :map icomplete-minibuffer-map) |
@@ -247,15 +247,15 @@ | |||
247 | ("M-y" consult-yank-pop) | 247 | ("M-y" consult-yank-pop) |
248 | ("<f1> a" consult-apropos) | 248 | ("<f1> a" consult-apropos) |
249 | ("C-h a" consult-apropos)) | 249 | ("C-h a" consult-apropos)) |
250 | :now ((autoload 'consult-register-preview "consult") | 250 | :now ((autoload 'consult-register-preview "consult")) |
251 | (acdw/set '((register-preview-delay 0) | 251 | :set '((register-preview-delay 0) |
252 | (register-preview-function #'consult-register-preview))))) | 252 | (register-preview-function #'consult-register-preview))) |
253 | 253 | ||
254 | ;; Marginalia | 254 | ;; Marginalia |
255 | (acdw/pkg marginalia | 255 | (acdw/pkg marginalia |
256 | :now ((acdw/set '((marginalia-annotators (marginalia-annotators-heavy | 256 | :set '((marginalia-annotators (marginalia-annotators-heavy |
257 | marginalia-annotators-light)))) | 257 | marginalia-annotators-light))) |
258 | (marginalia-mode +1))) | 258 | :now ((marginalia-mode +1))) |
259 | 259 | ||
260 | ;; Imenu | 260 | ;; Imenu |
261 | (when (require 'imenu) | 261 | (when (require 'imenu) |
@@ -268,36 +268,25 @@ | |||
268 | :binds (("C-/" undo-fu-only-undo) | 268 | :binds (("C-/" undo-fu-only-undo) |
269 | ("C-?" undo-fu-only-redo))) | 269 | ("C-?" undo-fu-only-redo))) |
270 | (acdw/pkg undo-fu-session | 270 | (acdw/pkg undo-fu-session |
271 | :now ((acdw/set `((undo-fu-session-incompatible-files ("/COMMIT_EDITMSG\\'" | 271 | :set `((undo-fu-session-incompatible-files ("/COMMIT_EDITMSG\\'" |
272 | "/git-rebase-todo\\'")) | 272 | "/git-rebase-todo\\'")) |
273 | (undo-fu-session-directory ,(acdw/in-dir "undo/" t))))) | 273 | (undo-fu-session-directory ,(acdw/in-dir "undo/" t))) |
274 | :then ((global-undo-fu-session-mode +1))) | 274 | :then ((global-undo-fu-session-mode +1))) |
275 | 275 | ||
276 | ;; Modus themes | 276 | ;; Modus themes |
277 | (acdw/pkg (modus-themes | 277 | (acdw/pkg (modus-themes |
278 | :host gitlab | 278 | :host gitlab |
279 | :repo "protesilaos/modus-themes") | 279 | :repo "protesilaos/modus-themes") |
280 | :now ((acdw/set `((modus-themes-slanted-constructs t) | 280 | :set `((modus-themes-slanted-constructs t) |
281 | (modus-themes-bold-constructs t) | 281 | (modus-themes-bold-constructs t) |
282 | (modus-themes-region 'bg-only) | 282 | (modus-themes-region 'bg-only) |
283 | (modus-themes-org-blocks 'grayscale) | 283 | (modus-themes-org-blocks 'grayscale) |
284 | (modus-themes-headings ((1 . section) | 284 | (modus-themes-headings ((1 . section) |
285 | (t . no-color))) | 285 | (t . no-color))) |
286 | (modus-themes-scale-headings nil) | 286 | (modus-themes-scale-headings nil) |
287 | (modus-themes-mode-line nil))) | 287 | (modus-themes-mode-line nil)) |
288 | (acdw/sunrise-sunset #'modus-themes-load-operandi | 288 | :now ((acdw/sunrise-sunset #'modus-themes-load-operandi |
289 | #'modus-themes-load-vivendi)) | 289 | #'modus-themes-load-vivendi))) |
290 | :then | ||
291 | ((dolist (face '(modus-theme-heading-1 | ||
292 | modus-theme-heading-2 | ||
293 | modus-theme-heading-3 | ||
294 | modus-theme-heading-4 | ||
295 | modus-theme-heading-5 | ||
296 | modus-theme-heading-6 | ||
297 | modus-theme-heading-7 | ||
298 | modus-theme-heading-8)) | ||
299 | (acdw/set-face face | ||
300 | `((t (:inherit (fixed-pitch bold)))))))) | ||
301 | 290 | ||
302 | ;;; Mode line | 291 | ;;; Mode line |
303 | 292 | ||