[elpa] externals/denote 7fab21926d 183/355: Process 'find' output in denote-retrieve

[ELPA Syncer]

branch: externals/denote
commit 7fab21926ddbbd427559e5de9699bc362ce89c16
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Process 'find' output in denote-retrieve
---
 denote-retrieve.el | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/denote-retrieve.el b/denote-retrieve.el
index d4d0615937..5a05dc234f 100644
--- a/denote-retrieve.el
+++ b/denote-retrieve.el
@@ -74,5 +74,33 @@ FILE is a note in the variable `denote-directory'."
   "Prompt for regular file in variable `denote-directory'."
   (read-file-name "Select note: " (denote-directory) nil t nil 
#'file-regular-p))
 
+(defun denote-retrieve--files-in-output (files)
+  "Return list of FILES from `find' output."
+  (delq nil (mapcar (lambda (f)
+                      (when (file-regular-p f) f))
+                    files)))
+
+(defun denote-retrieve--proces-grep (identifier)
+  "Process lines matching IDENTIFIER and return list of files."
+  (let* ((default-directory (denote-directory))
+         (file (file-name-nondirectory (buffer-file-name))))
+    (denote-retrieve--files-in-output
+     (process-lines
+      "find"
+      default-directory
+      "-type" "f"
+      "!" "-name" file
+      "-maxdepth" "1"
+      "-exec"
+      grep-program
+      "--color=never"
+      "-m"
+      "1"
+      "-e"
+      identifier
+      "{}"
+      ";"
+      "-print"))))
+
 (provide 'denote-retrieve)
 ;;; denote-retrieve.el ends here