From 46830cd7db46a1e4d00ccea0d8533742e7f124cc Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Tue, 22 Jun 2010 18:19:27 -0400 Subject: Added /memes route --- src/site.clj | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'src') diff --git a/src/site.clj b/src/site.clj index df47e5b..752b568 100644 --- a/src/site.clj +++ b/src/site.clj @@ -1030,6 +1030,11 @@ FROM users u [200 err] (do-upload-avatar session image))))) +(defn serve-meme [session meme] + (if-let [st (fetch-template meme session)] + (.toString st) + (unknown-page))) + ;; Compojure Routes (defn serve-static [dir path] @@ -1103,6 +1108,9 @@ FROM users u (GET "/cmd/ghettosearch/:searchterm" (json-ghetto-search (undecoded-url-piece (request-url request) 2))) (GET "/search" (serve-template "search_files" session)) + ;; Memes + (GET "/memes/:m" (serve-meme session (params :m))) + ;; Footer pages (GET "/about_us" (serve-template "about_us" session)) (GET "/goodies" (serve-template "goodies" session)) -- cgit v1.2.3-70-g09d2