diff options
| -rw-r--r-- | publish.el | 45 |
1 files changed, 30 insertions, 15 deletions
@@ -35,21 +35,36 @@ (defun format-posts-rss-feed-entry (entry _style project) - (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))) + (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))) (defun publish-posts-rss-feed (plist filename dir) (if (equal "rss.org" (file-name-nondirectory filename)) |