From 1ea40b35feb7fd710c7621058bb25bd14356e80a Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 3 Mar 2024 02:20:01 +0200 Subject: Add gnosis-assert-int-or-nil --- gnosis.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/gnosis.el b/gnosis.el index dcdb964..6913cdf 100644 --- a/gnosis.el +++ b/gnosis.el @@ -1237,6 +1237,11 @@ Insert deck values `ef-increase', `ef-decrease', `ef-threshold', `failure-factor (insert (format "\n:id %s\n:name \"%s\"\n:ef-increase %s\n:ef-decrease %s\n:ef-threshold %s\n:failure-factor %s" id name ef-increase ef-decrease ef-threshold failure-factor)))) +(defun gnosis-assert-int-or-nil (value description) + "Assert that VALUE is an integer or nil." + (unless (or (null value) (integerp value)) + (error "Invalid value: %s, %s" value description))) + (cl-defun gnosis-edit-save-exit (&optional deck-edit (exit-func 'exit-recursive-edit) &rest args) "Save edits and exit. -- cgit v1.2.3