From eb25fa1a21e193173d2512777b002d06d4ab2cb9 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Thu, 28 Dec 2023 07:38:11 +0200
Subject: gnosis-select-by-tag: Update error checking

error if not listp input-tags
---
 gnosis.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gnosis.el b/gnosis.el
index b22144c..202bff9 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -391,6 +391,8 @@ Compare 2 strings, ignoring case and whitespace."
 
 (defun gnosis-select-by-tag (input-tags)
   "Return note id for every note with INPUT-TAGS."
+  (unless (listp input-tags)
+    (error "`input-tags' need to be a list"))
   (cl-loop for (id tags) in (emacsql gnosis-db [:select [id tags] :from notes])
            when (cl-every (lambda (tag) (member tag tags)) input-tags)
            collect id))
-- 
cgit v1.2.3