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