瀏覽代碼

Add fzf configuration

master
10sr 5 年之前
父節點
當前提交
f94b6dc356
簽署人: 10sr GPG Key ID: 7BEC428194130EB2
共有 1 個文件被更改,包括 8 次插入8 次删除
  1. +8
    -8
      emacs.el

+ 8
- 8
emacs.el 查看文件

@@ -732,14 +732,14 @@ found, otherwise returns nil."
;; file handling

;; Cannot goto directory from fzf
'(when (autoload-eval-lazily 'fzf)
;; Too slow!
;; (set-variable 'fzf/executable "sk")
;; (set-variable 'fzf/args "--color bw --print-query")
;; Modified from hardcoded default to include directories
(let ((defcmd "set -o pipefail; command find -L . -mindepth 1 \\( -path '*/\\.*' -o -fstype 'sysfs' -o -fstype 'devfs' -o -fstype 'devtmpfs' -o -fstype 'proc' \\) -prune -o -print 2> /dev/null | cut -b3-"))
(shell-command-to-string defcmd))
(define-key ctl-x-map (kbd "C-f") 'fzf))
(when (autoload-eval-lazily 'fzf)
;; Too slow!
;; (set-variable 'fzf/executable "sk")
;; (set-variable 'fzf/args "--color bw --print-query")
;; Modified from hardcoded default to include directories
(let ((defcmd "set -o pipefail; command find -L . -mindepth 1 \\( -path '*/\\.*' -o -fstype 'sysfs' -o -fstype 'devfs' -o -fstype 'devtmpfs' -o -fstype 'proc' \\) -prune -o -print 2> /dev/null | cut -b3-"))
(setenv "FZF_DEFAULT_COMMAND" defcmd))
(define-key ctl-x-map (kbd "C-f") 'fzf))

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


Loading…
取消
儲存