branch: externals/org-gnosis
commit c10591738cd98a8a123f6a47071dd8b75bad0b0a
Author: Thanos Apollo <pub...@thanosapollo.org>
Commit: Thanos Apollo <pub...@thanosapollo.org>
[Feature] org-gnosis-find-by-tag: Select node under tag.
* Search for nodes under selected.
---
org-gnosis.el | 12 ++++++++++++
1 file changed, 12 insertions(+)
diff --git a/org-gnosis.el b/org-gnosis.el
index 42b35c625d..810e42cc9b 100644
--- a/org-gnosis.el
+++ b/org-gnosis.el
@@ -357,6 +357,18 @@ DIRECTORY."
(ignore-errors (org-id-goto id))
(org-gnosis-mode)))))
+;;;###autoload
+(defun org-gnosis-find-by-tag (&optional tag)
+ "Find node under TAG."
+ (let* ((tag (or tag (funcall org-gnosis-completing-read-func
+ "Select tag: "
+ (org-gnosis-select 'tag 'tags '1=1 t))))
+ (node
+ (funcall org-gnosis-completing-read-func
+ "Select node: "
+ (org-gnosis-select 'title 'nodes `(like tags ',(format
"%%\"%s\"%%" tag))))))
+ (org-gnosis-find node)))
+
(defun org-gnosis-select-template (&optional templates)
"Select journal template from TEMPLATES.
