diff options
| author | Thanos Apollo <[email protected]> | 2024-12-20 02:50:37 +0200 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2024-12-20 02:50:37 +0200 |
| commit | c10591738cd98a8a123f6a47071dd8b75bad0b0a (patch) | |
| tree | 95ae348c8d59c2cb392e6874e9d3d056fc28c535 | |
| parent | 3c4afccd10755e426124929efae364ca018fa084 (diff) | |
[Feature] org-gnosis-find-by-tag: Select node under tag.
* Search for nodes under selected.
| -rw-r--r-- | org-gnosis.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/org-gnosis.el b/org-gnosis.el index 42b35c6..810e42c 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. |