dotfiles-misc/protesilaos.dotfiles
1
0
Fork 0
mirror of https://github.com/protesilaos/dotfiles.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

emacs: implement prot-search-grep-to-dired

Browse source
This commit is contained in:
Protesilaos 2026-08-24 12:17:54 +03:00
parent 49a825ca3e
commit bf391c6eb1
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
2 changed files with 32 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
emacs/.emacs.d/prot-emacs.org
View file

@ -17514,18 +17514,22 @@ and function as links to the context they reference."
prot-search--find-file-names-args
"dired")
;; (defun prot-search-find-grep-file (regexp)
;; "Use find to produce list of files that include REGEXP."
;; (interactive
;; (list
;; (read-regexp "Find and grep for REGEXP: " nil 'prot-search--find-grep-hist)))
;; (let ((files (process-lines "find"
;; "-type" "f"
;; "-exec" "grep" "-nHE" "--color=auto" (format "'%s" regexp) " "
;; "-ls" " "
;; "{};")
;; ))
;; (find-file (completing-read "Find file: "files))))
;; TODO 2026-08-15: I want to revise all of the above functions that
;; involve find/grep. Is `process-lines' the better option?
;;;###autoload
(defun prot-search-grep-to-dired (regexp)
"Produce a Dired buffer with files matching REGEXP.
Recursively search for files from the current directory using the find
program."
(interactive
(list
(read-regexp "Find and grep for REGEXP: " nil 'prot-search--find-grep-hist)))
(let ((files (process-lines "find"
"-type" "f"
"-exec" "grep" "-nHE" "--color=auto" regexp
"-ls" "{}" ";")))
(dired (cons default-directory files))))
(provide 'prot-search)
;;; prot-search.el ends here

28
emacs/.emacs.d/prot-lisp/prot-search.el
View file

@ -504,18 +504,22 @@ and function as links to the context they reference."
prot-search--find-file-names-args
"dired")
;; (defun prot-search-find-grep-file (regexp)
;; "Use find to produce list of files that include REGEXP."
;; (interactive
;; (list
;; (read-regexp "Find and grep for REGEXP: " nil 'prot-search--find-grep-hist)))
;; (let ((files (process-lines "find"
;; "-type" "f"
;; "-exec" "grep" "-nHE" "--color=auto" (format "'%s" regexp) " "
;; "-ls" " "
;; "{};")
;; ))
;; (find-file (completing-read "Find file: "files))))
;; TODO 2026-08-15: I want to revise all of the above functions that
;; involve find/grep. Is `process-lines' the better option?
;;;###autoload
(defun prot-search-grep-to-dired (regexp)
"Produce a Dired buffer with files matching REGEXP.
Recursively search for files from the current directory using the find
program."
(interactive
(list
(read-regexp "Find and grep for REGEXP: " nil 'prot-search--find-grep-hist)))
(let ((files (process-lines "find"
"-type" "f"
"-exec" "grep" "-nHE" "--color=auto" regexp
"-ls" "{}" ";")))
(dired (cons default-directory files))))
(provide 'prot-search)
;;; prot-search.el ends here