Add blog body in RSS feed

S4G4R · May 28, 2024 · d3ccd11 · d3ccd11
1 parent 753a7c0
commit d3ccd11
Show file tree

Hide file tree

Showing 3 changed files with 36 additions and 2 deletions.
diff --git a/resources/rss-footer.html b/resources/rss-footer.html
@@ -0,0 +1,2 @@
+  </body>
+</html>
diff --git a/resources/rss-header.html b/resources/rss-header.html
@@ -0,0 +1,24 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="UTF-8">
+    <meta name="viewport" content="width=device-width, initial-scale=1.0">
+    <link rel="stylesheet" href="https://cdn.jsdelivr.net/npm/[email protected]/dist/css/bootstrap.min.css" integrity="sha384-rbsA2VBKQhggwzxH7pPCaAqO46MgnOM80zW1RWuH61DGLwZJEdK2Kadq2F9CUG65" crossorigin="anonymous"/>
+    <link rel="stylesheet" href="https://cdn.jsdelivr.net/npm/@picocss/pico@2/css/pico.classless.min.css"/>
+    <link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/highlight.js/11.5.1/styles/default.min.css" integrity="sha512-hasIneQUHlh06VNBe7f6ZcHmeRTLIaQWFd43YriJ0UND19bvYRauxthDg8E4eVNPm9bRUhr5JGeqH7FRFXQu5g==" crossorigin="anonymous" referrerpolicy="no-referrer" />
+    <link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
+    <base target="_blank">
+    <style>
+      body {
+        white-space: pre-wrap;
+      }
+      img {
+        text-align: center;
+      }
+      :root {
+        --pico-font-size: 100%;
+        --pico-typography-spacing-vertical: 0.75rem;
+      }
+    </style>
+  </head>
+  <body>
diff --git a/src/com/sagar/casa/rss.clj b/src/com/sagar/casa/rss.clj
@@ -1,5 +1,6 @@
 (ns com.sagar.casa.rss
   (:require [com.sagar.casa.api.storyblok :as api]
+            [clojure.java.io :as io]
             [clojure.set :refer [rename-keys]]
             [clj-rss.core :as rss]))
 
@@ -8,12 +9,19 @@
   []
   (->> (api/get-story :blogs)
        (map #(select-keys % [:id :title :slug :description
-                             :first-published-at]))
+                             :html-body :first-published-at]))
        (map #(assoc % :link (str "https://sagarvrajalal.com/" (:slug %))))
-       (map #(dissoc % :slug))
+       (map #(assoc % :description (str "<![CDATA["
+                                        (slurp (io/resource "rss-header.html"))
+                                        (:html-body %)
+                                        (slurp (io/resource "rss-footer.html"))
+                                        "]]>")))
        (map #(rename-keys % {:first-published-at :pubDate
                              :id :guid}))
+       (map #(dissoc % :slug :html-body))
        (apply rss/channel-xml
+              false
               {:title "Sagar Vrajalal"
                :description "Sagar's Blog"
                :link "https://sagarvrajalal.com/blog"})))
+