From 0ab1087c2974788986523f7bc9274bcd526d5d87 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Wed, 28 Feb 2024 15:06:47 +0200 Subject: Remove gnosis-get-note-tags Use gnosis-get, avoid extra complexity --- gnosis.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/gnosis.el b/gnosis.el index 4d0758b..42d9f18 100644 --- a/gnosis.el +++ b/gnosis.el @@ -227,10 +227,6 @@ Example: "Return caar of VALUE from TABLE, optionally with where RESTRICTIONS." (caar (gnosis-select value table restrictions))) -(defun gnosis-get-note-tags (id) - "Return tags for note ID." - (gnosis-get 'tags 'notes `(= id ,id))) - (defun gnosis--delete (table value) "From TABLE use where to delete VALUE." (emacsql gnosis-db `[:delete :from ,table :where ,value])) @@ -944,7 +940,7 @@ well." (let ((due-notes (gnosis-review-get-due-notes))) (cl-remove-duplicates (cl-mapcan (lambda (note-id) - (gnosis-get-note-tags note-id)) + (gnosis-get 'tags 'notes `(= id ,note-id))) due-notes) :test #'equal))) -- cgit v1.2.3