diff options
-rw-r--r-- | init.el | 34 |
1 files changed, 18 insertions, 16 deletions
diff --git a/init.el b/init.el index 20010d1..ddf2708 100644 --- a/init.el +++ b/init.el | |||
@@ -541,15 +541,15 @@ like a dumbass." | |||
541 | (defun list-buffers-or-ibuffer (arg) | 541 | (defun list-buffers-or-ibuffer (arg) |
542 | "`list-buffers', or with a prefix arg, `ibuffer'." | 542 | "`list-buffers', or with a prefix arg, `ibuffer'." |
543 | (interactive "P") | 543 | (interactive "P") |
544 | (if arg (ibuffer) (electric-buffer-list nil))))) | 544 | (if arg (ibuffer) (electric-buffer-list nil)))) |
545 | 545 | ||
546 | (add-hook 'ibuffer-mode | 546 | (add-hook 'ibuffer-mode |
547 | (defun ibuffer@filter-to-default () | 547 | (defun ibuffer@filter-to-default () |
548 | (ibuffer-switch-to-saved-filter-groups "default"))) | 548 | (ibuffer-switch-to-saved-filter-groups "default"))) |
549 | 549 | ||
550 | (:also-load ibuf-ext) | 550 | (:also-load ibuf-ext) |
551 | (:option ibuffer-show-empty-filter-groups nil | 551 | (:option ibuffer-show-empty-filter-groups nil |
552 | ibuffer-expert t)) | 552 | ibuffer-expert t)) |
553 | 553 | ||
554 | (setup imenu | 554 | (setup imenu |
555 | (:option imenu-auto-rescan t)) | 555 | (:option imenu-auto-rescan t)) |
@@ -1205,12 +1205,13 @@ successive invocations." | |||
1205 | "<help> k" helpful-key | 1205 | "<help> k" helpful-key |
1206 | "<help> o" helpful-symbol | 1206 | "<help> o" helpful-symbol |
1207 | "C-c C-d" helpful-at-point) | 1207 | "C-c C-d" helpful-at-point) |
1208 | (define-key helpful-mode-map "q" | 1208 | (with-eval-after-load 'helpful |
1209 | (defun helpful-mode|quit () | 1209 | (define-key helpful-mode-map "q" |
1210 | (interactive) | 1210 | (defun helpful-mode|quit () |
1211 | (bury-buffer) | 1211 | (interactive) |
1212 | (unless (window-parameter (frame-selected-window) 'no-other-window) | 1212 | (bury-buffer) |
1213 | (delete-window))))) | 1213 | (unless (window-parameter (frame-selected-window) 'no-other-window) |
1214 | (delete-window)))))) | ||
1214 | 1215 | ||
1215 | (setup (:straight iscroll) | 1216 | (setup (:straight iscroll) |
1216 | (:hook-into text-mode)) | 1217 | (:hook-into text-mode)) |
@@ -1556,8 +1557,9 @@ successive invocations." | |||
1556 | (if (string-match-p "/." (minibuffer-contents)) | 1557 | (if (string-match-p "/." (minibuffer-contents)) |
1557 | (zap-up-to-char (- arg) ?/) | 1558 | (zap-up-to-char (- arg) ?/) |
1558 | (backward-kill-word arg))) | 1559 | (backward-kill-word arg))) |
1559 | 1560 | ||
1560 | (define-key vertico-map (kbd "<C-backspace>") #'up-directory) | 1561 | (with-eval-after-load 'vertico |
1562 | (define-key vertico-map (kbd "<C-backspace>") #'up-directory)) | ||
1561 | 1563 | ||
1562 | (if (boundp 'comp-deferred-compilation-deny-list) | 1564 | (if (boundp 'comp-deferred-compilation-deny-list) |
1563 | (add-to-list 'comp-deferred-compilation-deny-list "vertico")) | 1565 | (add-to-list 'comp-deferred-compilation-deny-list "vertico")) |