diff options
| -rw-r--r-- | publish.el | 46 |
1 files changed, 16 insertions, 30 deletions
@@ -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)) |