summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnosis.el5
1 files changed, 5 insertions, 0 deletions
diff --git a/gnosis.el b/gnosis.el
index 2313584..589ed27 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -358,6 +358,11 @@ Compare 2 strings, ignoring case and whitespace."
(modified-str2 (downcase (replace-regexp-in-string "\\s-" "" str2))))
(string= modified-str1 modified-str2)))
+(defun gnosis-unique-tags ()
+ "Return a list of unique strings for tags in gnosis-db."
+ (cl-loop for tags in (emacsql gnosis-db [:select tags :from notes])
+ nconc tags into all-tags
+ finally return (delete-dups all-tags)))
;; Review
;;;;;;;;;;
(defun gnosis-review--algorithm (id success)