diff options
Diffstat (limited to '.config/emacs/modules/bd--minibuffer.el')
| -rw-r--r-- | .config/emacs/modules/bd--minibuffer.el | 32 |
1 files changed, 21 insertions, 11 deletions
diff --git a/.config/emacs/modules/bd--minibuffer.el b/.config/emacs/modules/bd--minibuffer.el index d42c81e..2e67ca7 100644 --- a/.config/emacs/modules/bd--minibuffer.el +++ b/.config/emacs/modules/bd--minibuffer.el @@ -6,12 +6,22 @@ (require 'f) -(use-package selector - :demand t - :bind (("M-x" . 'selector-M-x)) +(use-package icomplete :custom (completing-read-function #'completing-read-default) (read-file-name-function #'read-file-name-default) + (completion-styles '(basic + substring + initials + flex)) + (completions-max-height '30) + :config + (icomplete-vertical-mode)) + +(use-package selector + :demand t + :bind (("M-x" . 'selector-M-x)) + :config (defvar bd/navigate-recent-display-number 6 "The number of recent buffers that show up in bd/navigate.") (defvar bd/blacklisted-buffer-regexp-list @@ -55,16 +65,16 @@ selection commands.") (buffer-local-value 'major-mode (get-buffer buf)) '(dired-mode))) - (defun bd/buffer-erc-p (buf) - "Return non-nil if BUF is an `erc-mode' buffer." + (defun bd/buffer-irc-p (buf) + "Return non-nil if BUF is an `irc-mode' buffer." (member (buffer-local-value 'major-mode (get-buffer buf)) - '(erc-mode))) + '(rcirc-mode erc-mode))) (defun bd/buffer-blacklisted-p (buf) "Return non-nil if BUF is blacklisted." (cl-reduce (lambda (x y) (or x y)) (mapcar (lambda (r) (string-match r buf)) - bd/blacklisted-buffer-regexp-list))) + bd/blacklisted-buffer-regexp-list))) (defun bd/buffer-ordinary-p (buf) "Return non-nil if BUF does not fit into known categories." @@ -73,7 +83,7 @@ selection commands.") (bd/buffer-prog-p buf) (bd/buffer-scratch-p buf) (bd/buffer-dired-p buf) - (bd/buffer-erc-p buf)))) + (bd/buffer-irc-p buf)))) (defun bd/buffer-list () "Return a list of non-blacklisted buffers." @@ -118,7 +128,7 @@ selection commands.") (bd/selector-buffer-type "Source" #'bd/buffer-prog-p) (bd/selector-buffer-type "Scratch" #'bd/buffer-scratch-p) (bd/selector-buffer-type "Directories" #'bd/buffer-dired-p) - (bd/selector-buffer-type "IRC" #'bd/buffer-erc-p) + (bd/selector-buffer-type "IRC" #'bd/buffer-irc-p) (bd/selector-buffer-type "Ordinary" #'bd/buffer-ordinary-p) (bd/selector-project-files) (bd/selector-bookmarks) @@ -129,8 +139,8 @@ selection commands.") (defun bd/get-directory-dwim () "Returns the directory you always wanted." (or (when (project-current) - (project-root (project-current))) ;; git - (locate-dominating-file "." "Makefile") ;; make + (project-root (project-current))) ;; git + (locate-dominating-file "." "Makefile") ;; make (locate-dominating-file "." "manifest.scm") ;; guix default-directory)) |