From e58dcbe479bbf6e85c1cf516a8f1c3f96c1900ff Mon Sep 17 00:00:00 2001 From: hellerve Date: Sun, 9 Feb 2020 23:45:49 +0100 Subject: [PATCH] redis: add autodocs --- redis.carp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/redis.carp b/redis.carp index d289d36..2ef389a 100644 --- a/redis.carp +++ b/redis.carp @@ -139,6 +139,12 @@ (defmacro defredis [cmd :rest args] (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)))