diff options
Diffstat (limited to '.emacs.d')
| -rw-r--r-- | .emacs.d/lisp/bandali-essentials.el | 53 |
1 files changed, 49 insertions, 4 deletions
diff --git a/.emacs.d/lisp/bandali-essentials.el b/.emacs.d/lisp/bandali-essentials.el index ff32cc9..18593f0 100644 --- a/.emacs.d/lisp/bandali-essentials.el +++ b/.emacs.d/lisp/bandali-essentials.el @@ -37,7 +37,8 @@ read-buffer-completion-ignore-case t enable-recursive-minibuffers t delete-by-moving-to-trash t - resize-mini-windows t + max-mini-window-height 0.20 + ;; resize-mini-windows t message-log-max 20000 mode-line-compact t ;; mouse-autoselect-window t @@ -198,6 +199,10 @@ ;; vc-git-show-stash 0 vc-git-print-log-follow t)) +(with-eval-after-load 'vc-hooks + (setopt + vc-use-incoming-outgoing-prefixes t)) + (with-eval-after-load 'ediff (setopt ediff-window-setup-function #'ediff-setup-windows-plain @@ -377,10 +382,52 @@ (car args)) (cdr args))))) +;; (with-eval-after-load 'icomplete +;; ;; (b/keymap-set minibuffer-local-completion-map +;; ;; "M-TAB" #'minibuffer-force-complete) + +;; (setq icomplete-on-del-error-function #'abort-recursive-edit) + +;; (defun b/icomplete-fido-backward-updir () +;; "Delete char before or go up directory, like `ido-mode'." +;; (interactive) +;; (if (and (eq (char-before) ?/) +;; (eq (icomplete--category) 'file)) +;; (save-excursion +;; (goto-char (1- (point))) +;; (when (search-backward "/" (point-min) t) +;; (delete-region (1+ (point)) (point-max)))) +;; (condition-case nil +;; (call-interactively #'delete-backward-char) +;; (error +;; (when icomplete-on-del-error-function +;; (funcall icomplete-on-del-error-function)))))) + +;; (let ((m icomplete-fido-mode-map)) +;; (b/keymap-set m "DEL" #'b/icomplete-fido-backward-updir) +;; (b/keymap-set m "RET" #'icomplete-fido-exit) +;; (b/keymap-set m "C-m" #'icomplete-fido-exit))) +;; (add-hook 'after-init-hook #'fido-vertical-mode) + +;; (defun b/icomplete--fido-mode-setup () +;; "Customizations to `fido-mode''s minibuffer." +;; (when (and icomplete-mode (icomplete-simple-completing-p)) +;; (setq-local +;; ;; icomplete-compute-delay 0.1 +;; ;; icomplete-hide-common-prefix t +;; ;; icomplete-separator " ยท " +;; completion-styles '(basic substring partial-completion flex)))) +;; (add-hook 'minibuffer-setup-hook #'b/icomplete--fido-mode-setup 1) + (with-eval-after-load 'vertico (setopt vertico-cycle t) - ;; (b/keymap-set vertico-map "TAB" #'minibuffer-force-complete) + (let ((m vertico-map)) + ;; (b/keymap-set m "TAB" #'minibuffer-force-complete) + (b/keymap-set m "RET" #'vertico-directory-enter) + (b/keymap-set m "DEL" #'vertico-directory-delete-char) + (b/keymap-set m "M-DEL" #'vertico-directory-delete-word)) + ;; (add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy) (require 'orderless) (setopt completion-styles @@ -411,8 +458,6 @@ 'consult-mode-histories '(vc-git-log-edit-mode . log-edit-comment-ring))) (b/keymap-global-set "C-c b" #'consult-buffer) -(b/keymap-global-set "C-c o" #'consult-outline) -(b/keymap-global-set "C-c f r" #'consult-find) (b/keymap-global-set "C-c h i" #'consult-history) (b/keymap-global-set "C-c i m" #'consult-imenu) (b/keymap-global-set "C-c s s" #'consult-line) |