UpdateHEADmaster

1 files changed, 8 insertions, 0 deletions

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)