Sfoglia il codice sorgente

Use bfs if available

master
10sr 5 anni fa
parent
commit
8384a1431b
Firmato da: 10sr ID Chiave GPG: C384BB17CBB19347
1 ha cambiato i file con 11 aggiunte e 7 eliminazioni
  1. +11
    -7
      emacs.el

+ 11
- 7
emacs.el Vedi 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)


Caricamento…
Annulla
Salva