From 6000aaaafe657ffc9765eca080c998e662ba0c50 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 16 Apr 2024 14:00:52 +0300 Subject: Add gnosis-seach-note --- gnosis.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/gnosis.el b/gnosis.el index 61b198a..f9eaecd 100644 --- a/gnosis.el +++ b/gnosis.el @@ -1595,7 +1595,16 @@ to improve readability." (:foreign-key [id] :references notes [id] :on-delete :cascade))) +(defun gnosis-search-note (&optional query) + "Search for note QUERY. + +Return note ids for notes that match QUERY." + (cl-assert (or (stringp query) (eq query nil))) + (let ((query (or query (read-string "Search for note: ")))) + (gnosis-select 'id 'notes `(like main ,(format "%%%s%%" query)) t))) + ;; Dashboard + (defun gnosis-dashboard-output-note (id) "Output contents for note with ID, formatted for gnosis dashboard." (cl-loop for item in (append (gnosis-select '[main options answer tags type] 'notes `(= id ,id) t) -- cgit v1.2.3