From c22409d05c32bee7a4376d4d3cecab798d74b282 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 14 Dec 2023 20:53:59 +0200 Subject: gnosis-get: change to cl-defun & set defaults value for where --- gnosis.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gnosis.el b/gnosis.el index 2a71646..451eeca 100644 --- a/gnosis.el +++ b/gnosis.el @@ -90,7 +90,7 @@ Example: (gnosis-update 'notes '(= main \"NEW VALUE\") '(= id 12))" (emacsql gnosis-db `[:update ,table :set ,value :where ,where])) -(defun gnosis-get (value table &optional restrictions) +(cl-defun gnosis-get (value table &optional (restrictions '1=1)) "Get VALUE from TABLE, optionally with where RESTRICTIONS." (caar (gnosis--select value table restrictions))) -- cgit v1.2.3