From 7abb751eb3d9213ba690ed4ae6b0dbbc099d8e46 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 22 Sep 2026 00:06:29 -0400 Subject: Update --- src/wasp-db.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'src/wasp-db.el') diff --git a/src/wasp-db.el b/src/wasp-db.el index 0311860b..da4c5c05 100644 --- a/src/wasp-db.el +++ b/src/wasp-db.el @@ -185,6 +185,14 @@ Afterward call K." (w/db-cmd `("LPUSH" ,key ,@vals) (lambda (_) nil)) (error "Redis key must be a string"))) +(defun w/db-llen (key k) + "Get the length of list KEY from Redis and pass to K." + (w/db-cmd `("LLEN" ,key) k)) + +(defun w/db-lindex (key idx k) + "Get the value at IDX in list KEY from Redis and pass to K." + (w/db-cmd `("LINDEX" ,key ,(format "%s" idx)) k)) + (defun w/db-sadd (key &rest vals) "Add VALS to the set at KEY in Redis." (if (stringp key) -- cgit v1.3.1