diff options
| author | Scott Ostler <scottbot9000@gmail.com> | 2010-06-22 18:19:27 -0400 |
|---|---|---|
| committer | Scott Ostler <scottbot9000@gmail.com> | 2010-06-22 18:19:27 -0400 |
| commit | 46830cd7db46a1e4d00ccea0d8533742e7f124cc (patch) | |
| tree | f0157ec08209d66928795772b3f5845257dd08d7 | |
| parent | 780a55756f51459b301943ad6904aebab1c77374 (diff) | |
Added /memes route
| -rw-r--r-- | docs/reserved_nicks.txt | 1 | ||||
| -rw-r--r-- | src/site.clj | 8 |
2 files changed, 9 insertions, 0 deletions
diff --git a/docs/reserved_nicks.txt b/docs/reserved_nicks.txt index 443cb1c..b57cb8e 100644 --- a/docs/reserved_nicks.txt +++ b/docs/reserved_nicks.txt @@ -44,6 +44,7 @@ live log login logout +memes meetup members mobile 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)) |