Propagate data for xkcd command

src/yetibot/commands/xkcd.clj

@@ -25,29 +25,33 @@
   [json]
   ((juxt :title :img :alt) json))
 
-(defn xkcd-cmd
+(defn xkcd-cmdb
   "xkcd # fetch current xkcd comic"
   {:yb/cat #{:fun :img}}
   [_]
   (let [json (get-json (endpoint))]
     (reset! todays-comic-number (:num json))
-    (format-xkcd-response json)))
+    {:result/value (format-xkcd-response json)
+     :result/data json}))
 
 (defn xkcd-idx-cmd
   "xkcd <index> # fetch xkcd number <index>"
   {:yb/cat #{:fun :img}}
   [{index :match}]
-  (format-xkcd-response
-    (try
-      (get-json (endpoint index))
-    (catch Exception _ 
-      (get-json (endpoint 1969))))))
+  (let [json (try
+               (get-json (endpoint index))
+               (catch Exception _ 
+                 (get-json (endpoint 1969))))]
+    {:result/value (format-xkcd-response json)
+     :result/data json}))
 
 (defn xkcd-rnd-cmd
   "xkcd random # fetch random xkcd comic"
   {:yb/cat #{:fun :img}}
   [_]
-  (format-xkcd-response (get-json (endpoint (random-comic-num)))))
+  (let [json (get-json (endpoint (random-comic-num)))]
+    {:result/value (format-xkcd-response json)
+     :result/data json}))
 
 (cmd-hook #"xkcd"
           #"\d+" xkcd-idx-cmd