xkcd.clj

(defn xkcd-cmd
  "xkcd # fetch current xkcd comic"
  {:yb/cat #{:fun :img}}
  [_]
  ((juxt :title :img :alt) (get-json endpoint)))
  
(defn xkcd-idx-cmd
  "xkcd <index> # fetch xkcd number <index>"
  {:yb/cat #{:fun :img}}
  [{index :match}]
  ;; TODO fetch https://xkcd.com/<index>/info.0.json
  )
  
(cmd-hook #"xkcd"
          #"\d+" xkcd-idx-cmd
          _ xkcd-cmd)

Maybe extract (juxt :title :img :alt) to a format helper to be shared across both xkcd-cmd and xkcd-idx-cmd.