gered/blarg
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

update list-posts-archive to make the results easier to work with in a clabango template

Browse source
This commit is contained in:
Gered 2013-05-26 18:44:05 -04:00
parent d9178c25a0
commit 475f3e397d
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/blarg/models/posts.clj
View file

@ -96,10 +96,14 @@
(if-let [posts (->post-list (if-let [posts (->post-list
(couch/with-db posts (couch/with-db posts
(couch/get-view "posts" view-name {:descending true})))] (couch/get-view "posts" view-name {:descending true})))]
(group-by (vals
(fn [p] (group-by
(->nicer-month-year-str (:mmyyyy p))) (fn [p]
posts)))) (:mmyyyy p))
(map
(fn [p]
(assoc p :mmyyyy (->nicer-month-year-str (:mmyyyy p))))
posts))))))
(defn count-posts (defn count-posts
[unpublished?] [unpublished?]