Merge remote-tracking branch 'origin/master'

For desktop

1 files changed, 67 insertions, 0 deletions

diff --git a/Emacs/.config/emacs/elisp/search.el b/Emacs/.config/emacs/elisp/search.el
new file mode 100644
index 0000000..8988572
--- /dev/null
+++ b/Emacs/.config/emacs/elisp/search.el
@@ -0,0 +1,67 @@
+;;; search.el --- Search a list of git directories at once!  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2024  Aryadev Chavali
+
+;; Author: Aryadev Chavali <aryadev@aryadevchavali.com>
+;; Keywords:
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License Version
+;; 2 as published by the Free Software Foundation.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Given a list of git source directories, provide a completing-read
+;; interface which will narrow and give you a file.
+
+;;; Code:
+
+(defvar +search/directories
+  '("~/Dotfiles/" "~/Text/" "~/.local/src/dwm/" "~/.local/src/dwmblocks/" "~/.local/src/st/")
+  "List of directories to get candidates from.")
+
+(defun +search/get-candidates (directory)
+  "Get files from DIRECTORY using counsel-git-cands.
+Returns a list of files with the directory preprended to them."
+  (let* ((default-directory directory)
+         (names (split-string
+                 (shell-command-to-string "git ls-files -z --full-name --")
+                 "\0")))
+    (mapcar #'(lambda (name)
+           (concat directory name))
+       names)))
+
+(defun +search/get-all-candidates ()
+  (cl-reduce
+   #'(lambda (x y) (append x y))
+   (mapcar #'(lambda (directory)
+          (+search/get-candidates (expand-file-name directory)))
+      +search/directories)))
+
+(defun +search/find-file ()
+  (interactive)
+  (find-file
+   (completing-read "Find file: "
+                    (+search/get-all-candidates)
+                    nil
+                    t)))
+
+(defun +search/search-all ()
+  (interactive)
+  (let ((term (read-string "Search for: ")))
+    (grep (format "grep --color=auto -nH --null -e \"%s\" -- %s"
+                  term
+                  (cl-reduce #'(lambda (x y) (concat x " " y))
+                             (mapcar #'(lambda (x) (concat "\"" x "\""))
+                                (cl-remove-if #'directory-name-p (+search/get-all-candidates))))))))
+
+(provide 'search)
+;;; search.el ends here