diff options
Diffstat (limited to 'build-site.el')
| -rw-r--r-- | build-site.el | 28 |
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!") |