From cee8aa43f8e1bc4dacec63630051bbc1d4c1d246 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Tue, 2 Apr 2024 16:55:50 +0300
Subject: gnosis-select-by-tag: Use cl-assert

---
 gnosis.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/gnosis.el b/gnosis.el
index 48cc707..d29a16c 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -888,8 +888,7 @@ Optionally, add cusotm PROMPT."
 
 (defun gnosis-select-by-tag (input-tags)
   "Return note ID's for every note with INPUT-TAGS."
-  (unless (listp input-tags)
-    (error "`input-tags' need to be a list"))
+  (cl-assert (listp input-tags) t "Input tags must be a list")
   (cl-loop for (id tags) in (gnosis-select '[id tags] 'notes)
            when (and (cl-every (lambda (tag) (member tag tags)) input-tags)
 		     (not (gnosis-suspended-p id)))
-- 
cgit v1.2.3