From 9486ccc512074011a1407dd384cab73bd6911996 Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Wed, 13 Mar 2019 14:43:40 +0900
Subject: [PATCH] Add quoted

---
 emacs.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/emacs.el b/emacs.el
index ba88439..f3622bb 100644
--- a/emacs.el
+++ b/emacs.el
@@ -732,8 +732,14 @@ found, otherwise returns nil."
 ;; file handling
 
 ;; Cannot goto directory from fzf
-;; (when (autoload-eval-lazily 'fzf)
-;;   (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-"))
+     (shell-command-to-string defcmd))
+   (define-key ctl-x-map (kbd "C-f") 'fzf))
 
 (when (safe-require-or-eval 'recently)
   (recently-mode 1))