fix rss description tag

1 files changed, 20 insertions, 8 deletions

diff --git a/build-site.el b/build-site.el
index 609949f..d60829a 100644
--- a/build-site.el
+++ b/build-site.el
@@ -20,6 +20,15 @@
 	    entry
 	    filename)))
 
+(defun custom/body-query (html-file &optional url with-toc)
+  (with-temp-buffer
+    (insert-file-contents html-file)
+    (let* ((dom (libxml-parse-html-region (point-min) (point-max)))
+           (meta-tags (dom-by-tag dom 'meta)))
+      (cl-loop for (_meta ((_ . name-value) (_ . content-value))) in meta-tags
+               when (string= name-value "description")
+               return content-value))))
+
 (setq org-publish-project-alist
       (list
        (list "pages"
@@ -55,13 +64,16 @@
 (delete-directory "public" :recursive t)
 
 (org-publish-all t)
-(webfeeder-build
- "rss.xml"
- "./public/blog"
- "https://lemurianmage.srht.site"
- (cddr (delete "index.html" (directory-files "public/blog"))) ; no "." and ".."
- :title "lemurblog"
- :builder 'webfeeder-make-rss
- :build-date 0)
+
+(let ((webfeeder-body-function 'custom/body-query))
+  (webfeeder-build
+   "rss.xml"
+   "./public/blog"
+   "https://lemurianmage.srht.site"
+   (cddr (delete "index.html" (directory-files "public/blog"))) ; no ".", ".." and index
+   :title "lemurblog"
+   :builder 'webfeeder-make-rss
+   :build-date 0))
+
 
 (message "Build done!")