meissa/cryogen-core
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
cryogen-core/src/cryogen_core/rss.clj

37 lines
1.3 KiB
Clojure
Raw Normal View History

Renamed to cryogen-core
2014-12-05 15:56:40 +00:00
(ns cryogen-core.rss
Initial commit
2014-12-04 16:38:48 +00:00
(:require [clj-rss.core :as rss]
add Blog/Page/Post/Tag uri customisation add :tag-root-uri :page-root-uri :post-root-uri parsing replace {entity}-root with {entity}-root-uri parameters to set uri fix root-path call fix root-path function params order (worked erlier because of keyword<->map transposition) fix keyword :{entity}-root-uri to :{entity}-root transformation misprint: congig -> config add function to compose file path add create-file function add function to compose a path handle empty blog-path using path function fix filename for preview
2015-11-08 13:33:07 +00:00
[text-decoration.core :refer :all]
[cryogen-core.io :refer [create-file path]])
Initial commit
2014-12-04 16:38:48 +00:00
(:import java.util.Date))
Clear reflection warnings
2015-09-14 10:06:35 +00:00
(defn posts-to-items [^String site-url posts]
Initial commit
2014-12-04 16:38:48 +00:00
(map
Add author and (short) description for RSS
2016-02-09 02:01:10 +00:00
(fn [{:keys [uri title content date enclosure author description]}]
Add enclosure tag to facilitate Podcasting with Cryogen Add an enclosure tag to a post's metadata to let a podcast client to deliver your audio content. It should look like this: :enclosure [{:url "<full-url>"}] Without the brackets, you end up with NullPointerExceptions, so make sure you have that. The URL should be the full location of where the audio file is hosted (not relative), so for example: :enclosure [{:url "http://www.example.com/01_episode_IV.mp3"}] I created a bunch of markdown files with just the enclosure and info about the audiobook with the following bash snippet: find -L books -type f -iname "*mp3" | sort | while read mp3; do name=$(basename $mp3 .mp3); book=$(basename "$(dirname $mp3)"); echo "{:title \"$name\"\n:layout :post\n:tags [\"audiobooks\" \"$book\"]\n:enclosure [{:url \"http://clashthebunny.mason.ch/blog/$mp3\"}]}\n $book - $name\n==================" > md/posts/"$(date "+%Y-$name").md"; done Each book was in it's own subdirectory of books: books/Dracula/1-01-Chapter1_part01.mp3 books/Dracula/1-02-Chapter1_part02.mp3 books/Dracula/2-01-Chapter2_part01.mp3 Note that the above script requires the prefix of the episode to be "date-like". It should be fairly easy to work out a way to get your podcast up and running. Add the book names to your rss-filters array, e.g.: ["Dracula" "Pride & Prejudice"] Most podcasting clients support authentication, so just password protect those directories and you should be good to go, even if you are hosting copyrighted content.
2015-09-03 16:27:55 +00:00
(let [link (str (if (.endsWith site-url "/") (apply str (butlast site-url)) site-url) uri)
enclosure (if (nil? enclosure) "" enclosure)]
Initial commit
2014-12-04 16:38:48 +00:00
{:guid link
:link link
:title title
Add author and (short) description for RSS
2016-02-09 02:01:10 +00:00
:description (or description content)
:author author
Add enclosure tag to facilitate Podcasting with Cryogen Add an enclosure tag to a post's metadata to let a podcast client to deliver your audio content. It should look like this: :enclosure [{:url "<full-url>"}] Without the brackets, you end up with NullPointerExceptions, so make sure you have that. The URL should be the full location of where the audio file is hosted (not relative), so for example: :enclosure [{:url "http://www.example.com/01_episode_IV.mp3"}] I created a bunch of markdown files with just the enclosure and info about the audiobook with the following bash snippet: find -L books -type f -iname "*mp3" | sort | while read mp3; do name=$(basename $mp3 .mp3); book=$(basename "$(dirname $mp3)"); echo "{:title \"$name\"\n:layout :post\n:tags [\"audiobooks\" \"$book\"]\n:enclosure [{:url \"http://clashthebunny.mason.ch/blog/$mp3\"}]}\n $book - $name\n==================" > md/posts/"$(date "+%Y-$name").md"; done Each book was in it's own subdirectory of books: books/Dracula/1-01-Chapter1_part01.mp3 books/Dracula/1-02-Chapter1_part02.mp3 books/Dracula/2-01-Chapter2_part01.mp3 Note that the above script requires the prefix of the episode to be "date-like". It should be fairly easy to work out a way to get your podcast up and running. Add the book names to your rss-filters array, e.g.: ["Dracula" "Pride & Prejudice"] Most podcasting clients support authentication, so just password protect those directories and you should be good to go, even if you are hosting copyrighted content.
2015-09-03 16:27:55 +00:00
:enclosure enclosure
Modification to allow the generated rss xml to pass xsd validation. 1) Removed the <author> tag from each <item>. The presence of this tag is ok here but the xsd requires that the content include a valid email address, not just the name string coming from the site config (Forms that pass validation are "test@xyz.com" or "test@xyz.com (Test McTester)" ). And who would want to advertise their real email like that? :) 2) Removed the <author> tag from the <channel>. <author> isn't a valid child element of a channel. There is a child element called <webMaster> that is a close analogue but it also requires content as above.
2015-03-11 01:29:04 +00:00
:pubDate date}))
Initial commit
2014-12-04 16:38:48 +00:00
posts))
(defn make-channel [config posts]
(apply
(partial rss/channel-xml
false
{:title (:site-title config)
:link (:site-url config)
:description (:description config)
Modification to allow the generated rss xml to pass xsd validation. 1) Removed the <author> tag from each <item>. The presence of this tag is ok here but the xsd requires that the content include a valid email address, not just the name string coming from the site config (Forms that pass validation are "test@xyz.com" or "test@xyz.com (Test McTester)" ). And who would want to advertise their real email like that? :) 2) Removed the <author> tag from the <channel>. <author> isn't a valid child element of a channel. There is a child element called <webMaster> that is a close analogue but it also requires content as above.
2015-03-11 01:29:04 +00:00
:lastBuildDate (Date.)})
(posts-to-items (:site-url config) posts)))
Added curated RSS generation based on :rss-filters in the config
2015-01-04 01:36:30 +00:00
add Blog/Page/Post/Tag uri customisation add :tag-root-uri :page-root-uri :post-root-uri parsing replace {entity}-root with {entity}-root-uri parameters to set uri fix root-path call fix root-path function params order (worked erlier because of keyword<->map transposition) fix keyword :{entity}-root-uri to :{entity}-root transformation misprint: congig -> config add function to compose file path add create-file function add function to compose a path handle empty blog-path using path function fix filename for preview
2015-11-08 13:33:07 +00:00
(defn make-filtered-channels [{:keys [rss-filters blog-prefix] :as config} posts-by-tag]
Added curated RSS generation based on :rss-filters in the config
2015-01-04 01:36:30 +00:00
(doseq [filter rss-filters]
add Blog/Page/Post/Tag uri customisation add :tag-root-uri :page-root-uri :post-root-uri parsing replace {entity}-root with {entity}-root-uri parameters to set uri fix root-path call fix root-path function params order (worked erlier because of keyword<->map transposition) fix keyword :{entity}-root-uri to :{entity}-root transformation misprint: congig -> config add function to compose file path add create-file function add function to compose a path handle empty blog-path using path function fix filename for preview
2015-11-08 13:33:07 +00:00
(let [uri (path "/" blog-prefix (str (name filter) ".xml"))]
Added curated RSS generation based on :rss-filters in the config
2015-01-04 01:36:30 +00:00
(println "\t-->" (cyan uri))
add Blog/Page/Post/Tag uri customisation add :tag-root-uri :page-root-uri :post-root-uri parsing replace {entity}-root with {entity}-root-uri parameters to set uri fix root-path call fix root-path function params order (worked erlier because of keyword<->map transposition) fix keyword :{entity}-root-uri to :{entity}-root transformation misprint: congig -> config add function to compose file path add create-file function add function to compose a path handle empty blog-path using path function fix filename for preview
2015-11-08 13:33:07 +00:00
(create-file uri (make-channel config (get posts-by-tag filter))))))
Reference in a new issue Copy permalink