Преглед на файлове

Do not set global FZF_DEFAULT_COMMAND

master
10sr преди 4 години
родител
ревизия
e410a20ab4
Подписан от: 10sr GPG ключ ID: C384BB17CBB19347
променени са 1 файла, в които са добавени 31 реда и са изтрити 26 реда
  1. +31
    -26
      emacs.el

+ 31
- 26
emacs.el Целия файл

@@ -942,31 +942,34 @@ Otherwize hook it."
;; - parent directory (..)
;; ripgrep cannot list directories...
;; (setenv "FZF_DEFAULT_COMMAND" "rg --files --hidden --follow --glob '!.git/*' --no-ignore")
(let* ((find (if (executable-find "bfs")
;; Breadth-first find https://github.com/tavianator/bfs
"bfs"
;; Use gfind if available?
"find"))
(findcmd (concat "set -eu; set -o pipefail; "
"echo .; "
"echo ..; "
"command " find " -L . "
"-mindepth 1 "
"\\( -fstype 'sysfs' -o -fstype 'devfs' -o -fstype 'devtmpfs' -o -fstype 'proc' \\) -prune "
"-o -print "
"2> /dev/null "
"| "
"cut -b3-"))
(fdcmd (concat "set -eu; set -o pipefail; "
"echo .; "
"echo ..; "
"command fd "
"--follow --hidden --no-ignore "
"--color always "
"2>/dev/null")))
(if (executable-find "fd")
(setenv "FZF_DEFAULT_COMMAND" fdcmd)
(setenv "FZF_DEFAULT_COMMAND" findcmd)))
(defvar my-fzf-default-command nil
"My fzf FZF_DEFAULT_COMMAND.")
(set-variable 'my-fzf-default-command
(let* ((find (if (executable-find "bfs")
;; Breadth-first find https://github.com/tavianator/bfs
"bfs"
;; Use gfind if available?
"find"))
(findcmd (concat "set -eu; set -o pipefail; "
"echo .; "
"echo ..; "
"command " find " -L . "
"-mindepth 1 "
"\\( -fstype 'sysfs' -o -fstype 'devfs' -o -fstype 'devtmpfs' -o -fstype 'proc' \\) -prune "
"-o -print "
"2> /dev/null "
"| "
"cut -b3-"))
(fdcmd (concat "set -eu; set -o pipefail; "
"echo .; "
"echo ..; "
"command fd "
"--follow --hidden --no-ignore "
"--color always "
"2>/dev/null")))
(if (executable-find "fd")
fdcmd
findcmd)))
(set-variable 'fzf/window-height 45)
(set-variable 'fzf/args "--print-query --ansi --color='bg+:-1' --inline-info --cycle")
;; (set-variable 'fzf/args "--print-query --ansi --inline-info --cycle")
@@ -980,7 +983,9 @@ Otherwize hook it."
(if (and (executable-find "fzf")
(fboundp 'fzf)
(not (file-remote-p default-directory)))
(fzf)
(let ((process-environment (cl-copy-list process-environment)))
(setenv "FZF_DEFAULT_COMMAND" my-fzf-default-command)
(fzf))
(call-interactively 'find-file)))
(define-key ctl-x-map "f" 'my-fzf-or-find-file)



Зареждане…
Отказ
Запис