Added :content key to grouped tags in order to fix filtered rss generation

master
lacarmen 10 years ago
parent dc50d12557
commit 9de65df523

@ -1,4 +1,4 @@
(defproject cryogen-core "0.1.18" (defproject cryogen-core "0.1.19"
:description "Cryogen's compiler" :description "Cryogen's compiler"
:url "https://github.com/lacarmen/cryogen-core" :url "https://github.com/lacarmen/cryogen-core"
:license {:name "Eclipse Public License" :license {:name "Eclipse Public License"
@ -9,7 +9,7 @@
[crouton "0.1.2"] [crouton "0.1.2"]
[cheshire "5.4.0"] [cheshire "5.4.0"]
[clj-text-decoration "0.0.3"] [clj-text-decoration "0.0.3"]
[io.aviso/pretty "0.1.13"] [io.aviso/pretty "0.1.14"]
[hiccup "1.0.5"] [hiccup "1.0.5"]
[selmer "0.7.9"] [selmer "0.7.9"]
[pandect "0.5.0"]]) [pandect "0.5.0"]])

@ -138,7 +138,7 @@
"Adds the uri and title of a post to the list of posts under each of its tags" "Adds the uri and title of a post to the list of posts under each of its tags"
[tags post] [tags post]
(reduce (fn [tags tag] (reduce (fn [tags tag]
(update-in tags [tag] (fnil conj []) (select-keys post [:uri :title]))) (update-in tags [tag] (fnil conj []) (select-keys post [:uri :title :content])))
tags (:tags post))) tags (:tags post)))
(defn group-by-tags (defn group-by-tags

Loading…
Cancel
Save