diff options
Diffstat (limited to '.config/emacs/modules/bd--minibuffer.el')
| -rw-r--r-- | .config/emacs/modules/bd--minibuffer.el | 49 |
1 files changed, 1 insertions, 48 deletions
diff --git a/.config/emacs/modules/bd--minibuffer.el b/.config/emacs/modules/bd--minibuffer.el index 2e67ca7..5acd186 100644 --- a/.config/emacs/modules/bd--minibuffer.el +++ b/.config/emacs/modules/bd--minibuffer.el @@ -41,50 +41,11 @@ "Buffers that should not show up in buffer-related selection commands.") - (defun bd/buffer-exwm-p (buf) - "Return non-nil if BUF is an `exwm-mode' buffer." - (member - (buffer-local-value 'major-mode (get-buffer buf)) - '(exwm-mode))) - - (defun bd/buffer-scratch-p (buf) - "Return non-nil if BUF is a scratch buffer." - (buffer-local-value 'scratch-buffer (get-buffer buf))) - - (defun bd/buffer-text-p (buf) - "Return non-nil if BUF derives from `text-mode'." - (provided-mode-derived-p (buffer-local-value 'major-mode (get-buffer buf)) 'text-mode)) - - (defun bd/buffer-prog-p (buf) - "Return non-nil if BUF derives from `prog-mode'." - (provided-mode-derived-p (buffer-local-value 'major-mode (get-buffer buf)) 'prog-mode)) - - (defun bd/buffer-dired-p (buf) - "Return non-nil if BUF is a `dired-mode' buffer." - (member - (buffer-local-value 'major-mode (get-buffer buf)) - '(dired-mode))) - - (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)) - '(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))) - (defun bd/buffer-ordinary-p (buf) - "Return non-nil if BUF does not fit into known categories." - (not (or (bd/buffer-exwm-p buf) - (bd/buffer-text-p buf) - (bd/buffer-prog-p buf) - (bd/buffer-scratch-p buf) - (bd/buffer-dired-p buf) - (bd/buffer-irc-p buf)))) - (defun bd/buffer-list () "Return a list of non-blacklisted buffers." (cl-remove-if #'bd/buffer-blacklisted-p (mapcar 'buffer-name (buffer-list)))) @@ -136,14 +97,6 @@ selection commands.") (selector-recentf-source)))) (keymap-global-set "C-x b" 'bd/navigate) - (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 - (locate-dominating-file "." "manifest.scm") ;; guix - default-directory)) - (defun bd/selector-rg () "Sources for lines found via grep (or a clone)." (interactive) @@ -171,4 +124,4 @@ selection commands.") (provide 'bd--minibuffer) -;;; bd-minibuffer ends here +;;; bd--minibuffer.el ends here |