different rss-entry-func

1 files changed, 30 insertions, 15 deletions

diff --git a/publish.el b/publish.el
index c665a5b..b2ed82e 100644
--- a/publish.el
+++ b/publish.el
@@ -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))