Browse Source

Use bfs if available

master
10sr 5 years ago
parent
commit
8384a1431b
Signed by: 10sr GPG Key ID: C384BB17CBB19347
1 changed files with 11 additions and 7 deletions
  1. +11
    -7
      emacs.el

+ 11
- 7
emacs.el View File

@@ -739,14 +739,18 @@ found, otherwise returns nil."
;; (set-variable 'fzf/executable "sk")
;; (set-variable 'fzf/args "--color bw --print-query")
;; Modified from hardcoded default to include directories, hidden files, and root directory
(let ((defcmd (concat "set -o pipefail; "
"command find -L . "
"\\( -fstype 'sysfs' -o -fstype 'devfs' -o -fstype 'devtmpfs' -o -fstype 'proc' \\) -prune "
"-o -print 2> /dev/null "
"| "
"sed -e 's|^\\./||'")))
(let* ((find (if (executable-find "bfs")
;; Breadth-first find https://github.com/tavianator/bfs
"bfs"
"find"))
(defcmd (concat "set -o pipefail; "
"command " find " -L . "
"\\( -fstype 'sysfs' -o -fstype 'devfs' -o -fstype 'devtmpfs' -o -fstype 'proc' \\) -prune "
"-o -print 2> /dev/null "
"| "
"sed -e 's|^\\./||'")))
(setenv "FZF_DEFAULT_COMMAND" defcmd))
;; (define-key ctl-x-map (kbd "C-f") 'fzf)
(define-key ctl-x-map (kbd "C-f") 'fzf)
)

(when (safe-require-or-eval 'recently)


Loading…
Cancel
Save