insert file contents

1 files changed, 5 insertions, 1 deletions

diff --git a/publish.el b/publish.el
index 1037f5c..94c6a32 100644
--- a/publish.el
+++ b/publish.el
@@ -33,6 +33,10 @@
    "#+TITLE: " title "\n\n"
    (org-list-to-subtree list)))
 
+(defun get-file-contents (filename)
+  (with-temp-buffer
+    (insert-file-contents filename)
+    (buffer-string)))
 
 (defun format-posts-rss-feed-entry (entry _style project)
   (let* (
@@ -51,7 +55,7 @@
             title
             link
             pubdate
-            file)))
+            (get-file-contents file))))
 
 (defun publish-posts-rss-feed (plist filename dir)
   (if (equal "rss.org" (file-name-nondirectory filename))