From 9d72db848b9bcdd734df7f0df053925ead23abf5 Mon Sep 17 00:00:00 2001 From: Jacob Janzen Date: Mon, 15 Apr 2024 19:52:32 -0500 Subject: insert file contents --- publish.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'publish.el') 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)) -- cgit v1.2.3