From c6d04c20512cd44d2fc3d724b4e8a388964194ad Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Mon, 4 Mar 2024 09:21:54 +0200
Subject: gnosis-edit-update-note: Add assert for options

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

diff --git a/gnosis.el b/gnosis.el
index bb7b6d6..cac46fb 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1359,6 +1359,7 @@ SUSPEND: Suspend note, 0 for unsuspend, 1 for suspend"
 	     "Extra-notes must be a string, or nil")
   (cl-assert (listp tags) nil "Tags must be a list of strings")
   (cl-assert (and (listp ef) (length= ef 3)) nil "ef must be a list of 3 floats")
+  (cl-assert (stringp options) nil "Options must be a string")
   ;; Construct the update clause for the emacsql update statement.
   (cl-loop for (field . value) in
            `((main . ,main)
-- 
cgit v1.2.3