From 00b875c770db36b260115e79913605d13fdbfaa5 Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Wed, 19 Mar 2025 13:31:30 +0900
Subject: [PATCH] Update

---
 emacs.el | 40 +++++++++++++++++++++-------------------
 1 file changed, 21 insertions(+), 19 deletions(-)

diff --git a/emacs.el b/emacs.el
index 0260556..43b5b35 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1173,24 +1173,26 @@ THEM are function and its args."
 
 ;; fuzzy-finder
 
-(set-variable 'fuzzy-finder-executable "fzf")
-(set-variable 'fuzzy-finder-default-arguments
-              (concat "--ansi "
-                      "--color='bg+:-1' "
-                      "--inline-info "
-                      "--cycle "
-                      "--reverse "
-                      "--multi "
-                      "--print0 "
-                      "--prompt=\"[`pwd`]FZF:> \" "))
-(set-variable 'fuzzy-finder-default-output-delimiter
-              "\0")
-
-(when (executable-find "sk")  ;; skim
-  (set-variable 'fuzzy-finder-executable "sk")
-  (set-variable 'fuzzy-finder-default-arguments "--ansi --inline-info --cycle --multi --reverse --print0 --prompt=\"[`pwd`]SK:> \" ")
-  (set-variable 'fuzzy-finder-default-output-delimiter "\0")
-  )
+(progn
+  (set-variable 'fuzzy-finder-executable "fzf")
+  (set-variable 'fuzzy-finder-default-arguments
+                (concat "--ansi "
+                        "--color='bg+:-1' "
+                        "--inline-info "
+                        "--cycle "
+                        "--reverse "
+                        "--multi "
+                        "--print0 "
+                        "--prompt=\"[`pwd`]FZF: \" "))
+  (set-variable 'fuzzy-finder-default-output-delimiter
+                "\0"))
+
+;; I like fzf because it has --cycle option
+;; (when (executable-find "sk")  ;; skim
+;;   (set-variable 'fuzzy-finder-executable "sk")
+;;   (set-variable 'fuzzy-finder-default-arguments "--ansi --inline-info --cycle --multi --reverse --print0 --prompt=\"[`pwd`]SK: \" ")
+;;   (set-variable 'fuzzy-finder-default-output-delimiter "\0")
+;;   )
 
 (set-variable 'fuzzy-finder-default-input-command
               (let ((find (or (executable-find "bfs")  ;; Breadth-first find https://github.com/tavianator/bfs
@@ -1198,7 +1200,7 @@ THEM are function and its args."
                               "find"))
                     (fd (or (executable-find "fdfind")
                             (executable-find "fd"))))
-                (if fd
+                (if nil ;; fd
                     (concat "set -eu; set -o pipefail; "
                             "echo .; "
                             "echo ..; "