carpentry/redis
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

redis: update for new carp

Browse Source
This commit is contained in:
Veit Heller
2020-04-21 10:50:28 +02:00
parent fdbb64e59a
commit 6b464c9d91
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
redis.carp
View File

@@ -150,17 +150,18 @@ For variable port numbers please check out [`open-on`](#open-on).")
(cons (list 'to-redis (car args)) (rconv- (cdr args)))))
(defmacro defredis [cmd :rest args]
(list 'defmodule 'Redis
(list 'doc cmd (String.join [
"is a wrapper around the `" (rtreat- (Symbol.str cmd)) "` Redis command.
(eval
(list 'defmodule 'Redis
(list 'doc cmd (String.join [
"is a wrapper around the `" (rtreat- (Symbol.str cmd)) "` Redis command.
It takes the same arguments as the [Redis command](https://redis.io/commands/"
(Symbol.str cmd) ")."
]))
(list 'defn cmd (cadr (collect-into (cons 'r args) array))
(list 'do
(list 'Redis.send 'r (list 'copy (rtreat- (Symbol.str cmd))) (list 'ref (rconv- args)))
'(Redis.read r)))))
]))
(list 'defn cmd (cadr (collect-into (cons 'r args) array))
(list 'do
(list 'Redis.send 'r (list 'copy (rtreat- (Symbol.str cmd))) (list 'ref (rconv- args)))
'(Redis.read r))))))
; these commands were scraped from redis.io on the 9th of Feb 2020