From e308c35620d5092ee7727bbb491d5caa11c6e9bc Mon Sep 17 00:00:00 2001 From: gered Date: Sun, 26 May 2013 17:30:40 -0400 Subject: [PATCH] add route/view for viewing posts by tag --- src/blarg/routes/posts.clj | 6 ++++++ src/blarg/views/templates/posts/listbytag.html | 16 ++++++++++++++++ 2 files changed, 22 insertions(+) create mode 100644 src/blarg/views/templates/posts/listbytag.html diff --git a/src/blarg/routes/posts.clj b/src/blarg/routes/posts.clj index 0056e66..379a674 100644 --- a/src/blarg/routes/posts.clj +++ b/src/blarg/routes/posts.clj @@ -50,6 +50,11 @@ :atfirstpage (= currentpage 0) :inlist true}))) +(defn list-by-tag [tag] + (layout/render + "posts/listbytag.html" {:posts (posts/list-posts-by-tag (auth/logged-in?) tag) + :tag tag})) + (defn show-post-page [year month day slug] (let [date (str year "-" month "-" day) post (posts/get-post-by-date-slug date slug)] @@ -111,6 +116,7 @@ ["/:year/:month/:day/:slug" :year #"[0-9]{4}" :month #"[0-9]{1,2}" :day #"[0-9]{1,2}" :slug #"(.*)"] [year month day slug] (show-post-page year month day slug)) + (GET "/tag/:tag" [tag] (list-by-tag tag)) (restricted GET "/newpost" [] (new-post-page)) (restricted POST "/newpost" [title tags body] (handle-new-post title tags body)) (restricted GET "/editpost/:id" [id] (edit-post-page id)) diff --git a/src/blarg/views/templates/posts/listbytag.html b/src/blarg/views/templates/posts/listbytag.html new file mode 100644 index 0000000..6ba4613 --- /dev/null +++ b/src/blarg/views/templates/posts/listbytag.html @@ -0,0 +1,16 @@ +{% extends "blarg/views/templates/base.html" %} + +{% block content %} + + + +{% for post in posts %} +
+
+ +
+{% endfor %} + +{% endblock %}