diff --git a/src/cryogen_core/compiler.clj b/src/cryogen_core/compiler.clj index 06e867c..426b011 100644 --- a/src/cryogen_core/compiler.clj +++ b/src/cryogen_core/compiler.clj @@ -143,7 +143,7 @@ "Adds the uri and title of a post to the list of posts under each of its tags" [tags post] (reduce (fn [tags tag] - (update-in tags [tag] (fnil conj []) (select-keys post [:uri :title :content :date]))) + (update-in tags [tag] (fnil conj []) (select-keys post [:uri :title :content :date :enclosure]))) tags (:tags post))) (defn group-by-tags diff --git a/src/cryogen_core/rss.clj b/src/cryogen_core/rss.clj index 8aa6e44..38c8ec8 100644 --- a/src/cryogen_core/rss.clj +++ b/src/cryogen_core/rss.clj @@ -1,18 +1,19 @@ (ns cryogen-core.rss (:require [clj-rss.core :as rss] - [clojure.xml :refer [emit]] [text-decoration.core :refer :all]) (:import java.util.Date)) (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)] + (fn [{:keys [uri title content date enclosure]}] + (let [link (str (if (.endsWith site-url "/") (apply str (butlast site-url)) site-url) uri) + enclosure (if (nil? enclosure) "" enclosure)] {:guid link :link link :title title :description content + :enclosure enclosure :pubDate date})) posts))