From ab028b47d94038526b313231f6d0cd57bb92397f Mon Sep 17 00:00:00 2001 From: 10sr <8.slashes@gmail.com> Date: Sun, 16 Aug 2020 02:38:42 +0900 Subject: [PATCH] add my-fuzzy-finder-dired --- emacs.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/emacs.el b/emacs.el index 3b26e01..43d8106 100644 --- a/emacs.el +++ b/emacs.el @@ -1166,6 +1166,13 @@ THEM are function and its args." (back-to-indentation))))))) (define-key ctl-x-map "S" 'my-fuzzy-finder-ripgrep-lines) +(defun my-fuzzy-finder-dired () + "Fuzzy finder directory." + (interactive) + (fuzzy-finder :input-command "fd --hidden --no-ignore --type directory" + :directory (expand-file-name "~"))) +(define-key ctl-x-map "d" 'my-fuzzy-finder-dired) + ;; (set-variable 'fuzzy-finder-default-command "selecta") ;; (set-variable 'fuzzy-finder-default-command "peco") ;; (set-variable 'fuzzy-finder-default-command "percol") @@ -1664,8 +1671,9 @@ ORIG-FUNC is the target function, and ARGS is the argument when it is called." ;; (when (fboundp 'flycheck-black-check-setup) ;; (flycheck-black-check-setup))) -(when (fboundp 'ilookup-open-word) - (define-key ctl-x-map "d" 'ilookup-open-word)) +;; (when (fboundp 'ilookup-open-word) +;; (define-key ctl-x-map "d" 'ilookup-open-word) +;; ) (set-variable 'ac-ignore-case nil)