meissa/cryogen-core
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Merge pull request #23 from ericsomdahl/master

Browse source 
Modification to allow the generated rss xml to pass xsd validation.
This commit is contained in:
Carmen La 2015-03-13 01:15:57 -04:00
commit 5ffd30895f
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/cryogen_core/rss.clj
View file

@ -5,7 +5,7 @@
(:import java.util.Date))
(defn posts-to-items [site-url author posts]
(defn posts-to-items [site-url posts]
(map
(fn [{:keys [uri title content date]}]
(let [link (str (if (.endsWith site-url "/") (apply str (butlast site-url)) site-url) uri)]
@ -13,8 +13,7 @@
:link link
:title title
:description content
:pubDate date
:author author}))
:pubDate date}))
posts))
(defn make-channel [config posts]
@ -24,12 +23,11 @@
{:title (:site-title config)
:link (:site-url config)
:description (:description config)
:lastBuildDate (Date.)
:author (:author config)})
(posts-to-items (:site-url config) (:author config) posts)))
:lastBuildDate (Date.)})
(posts-to-items (:site-url config) posts)))
(defn make-filtered-channels [public {:keys [rss-filters blog-prefix] :as config} posts-by-tag]
(doseq [filter rss-filters]
(let [uri (str public blog-prefix "/" (name filter) ".xml")]
(println "\t-->" (cyan uri))
(spit uri (make-channel config (get posts-by-tag filter))))))
(spit uri (make-channel config (get posts-by-tag filter))))))