Nog steeds 2 rss.org bestanden...

diff --git a/maak-website.el b/maak-website.el
index 4cc1f9a954695752d7baa112c542563bdf62b373..b5c88263380a8f36c29fd1017efb18ba82d48877 100644 (file)
--- a/maak-website.el
+++ b/maak-website.el
@@ -1,5 +1,5 @@
 (require 'ox-publish)
 (require 'ox-publish)

-;(require 'ox-rss)
+(require 'ox-rss)

 (load "~/.emacs.d/lisp/mustache-html.el")
 
 (setq org-html-doctype "html5")
 (load "~/.emacs.d/lisp/mustache-html.el")
 
 (setq org-html-doctype "html5")


@@ -120,7 +120,7 @@ Either the section between #+BEGIN_PREVIEW and +#END_PREVIEW is used, or the fir
 (defun my-blog-sitemap (title list)
   "Generate the sitemap landing page for my blog."
   (my-plain-publish-sitemap-default title list) ; Create additional sitemap
 (defun my-blog-sitemap (title list)
   "Generate the sitemap landing page for my blog."
   (my-plain-publish-sitemap-default title list) ; Create additional sitemap

-  ;(my-blog-publish-rss-sitemap title list) ; Create RSS sitemap
+  (my-blog-publish-rss-sitemap title list) ; Create RSS sitemap

   (with-temp-buffer
     ;; mangle the parsed list given to us into a plain lisp list of files
     (let* ((filenames (my-blog-parse-sitemap-list list))
   (with-temp-buffer
     ;; mangle the parsed list given to us into a plain lisp list of files
     (let* ((filenames (my-blog-parse-sitemap-list list))


@@ -186,28 +186,30 @@ representation for the files to include, as returned by
 `org-list-to-lisp'."
   (with-temp-buffer
     (message "Creating RSS index.")
 `org-list-to-lisp'."
   (with-temp-buffer
     (message "Creating RSS index.")

+    (org-mode)

     (let* ((filenames (my-blog-parse-sitemap-list list))
            (project-plist (assoc "posts" org-publish-project-alist))
           ;;(articles (my-blog-sort-article-list filenames project-plist))
           )
     (let* ((filenames (my-blog-parse-sitemap-list list))
            (project-plist (assoc "posts" org-publish-project-alist))
           ;;(articles (my-blog-sort-article-list filenames project-plist))
           )

-      (org-mode)

       (insert "#+AUTHOR: Frederik Vanrenterghem\n")
       (dolist (file filenames)
        (unless (eq (file-name-base file) "rss.org")
       (insert "#+AUTHOR: Frederik Vanrenterghem\n")
       (dolist (file filenames)
        (unless (eq (file-name-base file) "rss.org")

+         (message "Processing %s for RSS index." file)

          (let* ((abspath (file-name-concat "/home/frederik/websites/stage.vanrenterghem.biz/source/posts" file))
                 (relpath (file-relative-name abspath "/home/frederik/websites/stage.vanrenterghem.biz/source/"))
                 (title (org-publish-find-title file project-plist))
                 (date (format-time-string (car org-time-stamp-custom-formats) (org-publish-find-date file project-plist)))
                 (rss-permalink (file-name-sans-extension relpath))
                 (preview (my-blog-get-preview abspath)))
          (let* ((abspath (file-name-concat "/home/frederik/websites/stage.vanrenterghem.biz/source/posts" file))
                 (relpath (file-relative-name abspath "/home/frederik/websites/stage.vanrenterghem.biz/source/"))
                 (title (org-publish-find-title file project-plist))
                 (date (format-time-string (car org-time-stamp-custom-formats) (org-publish-find-date file project-plist)))
                 (rss-permalink (file-name-sans-extension relpath))
                 (preview (my-blog-get-preview abspath)))

-           (insert (concat "* [[file:" relpath "][" title "]]\n"))
+           (insert (concat "* [[file:" relpath "][" title "]]"))

            (org-set-property "RSS_PERMALINK" rss-permalink)
            (org-set-property "PUBDATE" date)
            (org-set-property "RSS_TITLE" title)
            (org-set-property "RSS_PERMALINK" rss-permalink)
            (org-set-property "PUBDATE" date)
            (org-set-property "RSS_TITLE" title)

-           (insert preview))))
+           (insert preview)
+           (insert "\n"))))

       (goto-char (point-min))
       (goto-char (point-min))

-      (insert "#+OPTIONS: ^:nil\n")
-      (write-file "~/websites/stage.vanrenterghem.biz/source/posts/rss.org"))))
+      (insert "#+OPTIONS: ^:nil\n"))
+    (write-file "~/websites/stage.vanrenterghem.biz/source/posts/rss.org")))

 
 
 (defun my-blog-cleanup-sitemaps (plist)
 
 
 (defun my-blog-cleanup-sitemaps (plist)


@@ -309,3 +311,5 @@ representation for the files to include, as returned by
          :table-of-contents nil)
        
         ("website" :components ("posts" "rss" "tags" "landing" "assets"))))
          :table-of-contents nil)
        
         ("website" :components ("posts" "rss" "tags" "landing" "assets"))))

+
+(org-publish-initialize-cache "website")