From 0a0f55eb844f1786dcecd6bc84ab9c76485faf3d Mon Sep 17 00:00:00 2001
From: gered <gered@blarg.ca>
Date: Sun, 6 Apr 2014 17:20:26 -0400
Subject: [PATCH] add resource handler for getting art by name and index

---
 src/toascii/routes/api/art.clj | 37 +++++++++++++++++++++++++++++++++-
 1 file changed, 36 insertions(+), 1 deletion(-)

diff --git a/src/toascii/routes/api/art.clj b/src/toascii/routes/api/art.clj
index 301cea6..9d4e888 100644
--- a/src/toascii/routes/api/art.clj
+++ b/src/toascii/routes/api/art.clj
@@ -2,7 +2,8 @@
   (:require [liberator.core :refer [defresource]]
             [compojure.core :refer [ANY]]
             [toascii.route-utils :refer [register-routes]]
-            [toascii.models.art :as art]))
+            [toascii.models.art :as art]
+            [toascii.util :refer [parse-index]]))
 
 (defresource art-search [q]
   :available-media-types ["application/json"]
@@ -46,6 +47,39 @@
   (fn [ctx]
     (:error ctx)))
 
+(defresource get-art [{:keys [name index format]}]
+  :media-type-available?
+  (fn [ctx]
+    (let [type (condp = format
+                 "html" "text/html"
+                 "text" "text/plain"
+                 "text/plain")]
+      {:representation {:media-type type}}))
+  :malformed?
+  (fn [_]
+    (cond
+      (not (art/valid-name? name)) {:error "Invalid name."}
+      (not (parse-index index))    {:error "Invalid index."}))
+  :exists?
+  (fn [_]
+    (try
+      (if-let [ascii (art/get-index name index)]
+        {:ascii ascii}
+        [false {:error "No art found under that name."}])
+      (catch IndexOutOfBoundsException ex
+        [false {:error "There aren't that many under that name."}])))
+  :handle-ok
+  (fn [ctx]
+    (if (= "text/html" (get-in ctx [:representation :media-type]))
+      (str "<pre>" (:ascii ctx) "</pre>")
+      (:ascii ctx)))
+  :handle-malformed
+  (fn [ctx]
+    (:error ctx))
+  :handle-not-found
+  (fn [ctx]
+    (:error ctx)))
+
 (defresource get-art-count-by [{:keys [name]}]
   :available-media-types ["application/json"]
   :malformed?
@@ -69,5 +103,6 @@
 
 (register-routes api-art-routes
   (ANY "/api/art/:name/count" {params :params} (get-art-count-by params))
+  (ANY "/api/art/:name/:index" {params :params} (get-art params))
   (ANY "/api/art/:name" {params :params} (get-random-art params))
   (ANY "/api/art" {{q :q} :params} (art-search q)))