소스 검색

Use bfs if available

master
10sr 5 년 전
부모
커밋
8384a1431b
로그인 계정: 10sr GPG 키 ID: C384BB17CBB19347
1개의 변경된 파일11개의 추가작업 그리고 7개의 파일을 삭제
  1. +11
    -7
      emacs.el

+ 11
- 7
emacs.el 파일 보기

@@ -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)


불러오는 중...
취소
저장