about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el34
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"))