From 880a0e14dfb0a26969b66ebe0af79d50e12413c3 Mon Sep 17 00:00:00 2001
From: Lucien Cartier-Tilet <lucien@phundrak.com>
Date: Thu, 10 Dec 2020 08:57:20 +0100
Subject: [PATCH] [Emacs] Remove helm dependency for `find-org-files'

This function is also renamed from `find-org-file' to `find-org-files`
and it became much, much faster.
---
 org/config/emacs.org | 26 ++++++++++++--------------
 1 file changed, 12 insertions(+), 14 deletions(-)

diff --git a/org/config/emacs.org b/org/config/emacs.org
index 1ecc313..db9d19c 100644
--- a/org/config/emacs.org
+++ b/org/config/emacs.org
@@ -1285,22 +1285,20 @@ There are lots of files which I want to be able to quickly open. I used to have
 
 With this established, let’s write some emacs-lisp that will allow me to get a list of all these files and select them through helm. Be aware that I will be using some functions from third party packages, such as [[https://github.com/rejeep/f.el][f.el]] and [[https://github.com/magnars/dash.el][dash]].
 #+BEGIN_SRC emacs-lisp
-  (defun phundrak/find-org-file ()
+  (defun phundrak/find-org-files ()
     "Find all org files in the directories listed in
-  `phundrak/org-directories', then list them in a helm buffer where
-  the user can fuzzy-match one and open it."
+  `phundrak/org-directories', then list them in an ido buffer where
+  the user can match one and open it."
     (interactive)
     (find-file
-     (helm
-      :sources (helm-build-sync-source "org files"
-                 :candidates (-mapcat
-                              (lambda (path)
-                                (f-files path
-                                         (lambda (file) (equal (f-ext file) "org"))
-                                         t))
-                              phundrak/org-directories)
-                 :fuzzy-match t)
-      :buffer "*org files*")))
+     (ido-completing-read
+      "Org File:"
+      (s-split "\n"
+               (mapconcat (lambda (path)
+                            (shell-command-to-string
+                             (format "fd . %s -e org" path)))
+                          phundrak/org-directories
+                          "\n")))))
 #+END_SRC
 
 *** ~phundrak/git-repo-root~
@@ -2996,7 +2994,7 @@ A couple of other useful utilities, sach as opening all marked files, sorting fi
 :END:
 #+BEGIN_SRC emacs-lisp
   (spacemacs/declare-prefix "of" "open org file")
-  (spacemacs/set-leader-keys "of" 'phundrak/find-org-file)
+  (spacemacs/set-leader-keys "of" 'phundrak/find-org-files)
 #+END_SRC
 
 I also have a shortcut for ~helm-locate~ in case I need to find a file that is not in these directories. One advantage of this over ~helm-find~ is that it doesn’t matter from where I call it, it will find any file on my system that matches the query, whereas ~helm-find~ will only search in the current directory and its subdirectories. This time, the declaration is much simpler: