jjanzen/website
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

insert file contents

Browse source
This commit is contained in:
Jacob Janzen 2024-04-15 19:41:34 -05:00
parent 9d2401402d
commit a2f8f6e35d
1 changed files with 16 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
publish.el
View file

@ -35,36 +35,22 @@
(defun format-posts-rss-feed-entry (entry _style project)
(cond ((not (directory-name-p entry))
(let* ((file (org-publish--expand-file-name entry project))
(title (org-publish-find-title entry project))
(date (format-time-string "%Y-%m-%d" (org-publish-find-date entry project)))
(link (concat (file-name-sans-extension entry) ".html")))
(with-temp-buffer
(insert (format "* [[file:blog/%s][%s]]\n" file title))
(org-set-property "RSS_PERMALINK" link)
(org-set-property "PUBDATE" date)
(insert-file-contents file)
(buffer-string))))
((eq style 'tree)
;; Return only last subdir.
(file-name-nondirectory (directory-file-name entry)))
(t entry)))
;; (let* (
;; (title (org-publish-find-title entry project))
;; (link (concat (file-name-sans-extension entry) ".html"))
;; (pubdate (format-time-string (car org-time-stamp-formats)
;; (org-publish-find-date entry project))))
;; (message pubdate)
;; (format "%s
;;:properties:
;;:rss_permalink: blog/%s
;;:pubdate: %s
;;:author: Jacob Janzen
;;:end:\n"
;; title
;; link
;; pubdate)))
(let* (
(title (org-publish-find-title entry project))
(link (concat (file-name-sans-extension entry) ".html"))
(pubdate (format-time-string (car org-time-stamp-formats)
(org-publish-find-date entry project))))
(message pubdate)
(format "%s
:properties:
:rss_permalink: blog/%s
:pubdate: %s
:author: Jacob Janzen
:end:\n%s"
title
link
pubdate
(insert-file-contents file))))
(defun publish-posts-rss-feed (plist filename dir)
(if (equal "rss.org" (file-name-nondirectory filename))