Toon datum in bestandenlijst.

[www2.vanrenterghem.biz.git] / maak-website.el

diff --git a/maak-website.el b/maak-website.el
index f55ae09eb8e79c5a2dfffe6094cc6f0aba560c20..4d37c188c7f7fe6af6a6a078274eb5d91c06ef91 100644 (file)
--- a/maak-website.el
+++ b/maak-website.el
@@ -1,6 +1,10 @@
 (require 'ox-publish)
 
 (setq org-html-doctype "html5")
 (require 'ox-publish)
 
 (setq org-html-doctype "html5")

+(setq org-html-divs '((preamble "header" "top")
+                        (content "main" "content")
+                        (postamble "footer" "postamble"))
+      org-html-container-element "section")

 
 (defun website-header (info)
   (with-temp-buffer
 
 (defun website-header (info)
   (with-temp-buffer


@@ -12,6 +16,20 @@
     (insert-file-contents "~/websites/stage.vanrenterghem.biz/html/footer.html")
     (buffer-string)))
 
     (insert-file-contents "~/websites/stage.vanrenterghem.biz/html/footer.html")
     (buffer-string)))
 

+(defun my-org-publish-sitemap-default-entry (entry style project)
+  "My format for site map ENTRY, as a string.
+ENTRY is a file name.  STYLE is the style of the sitemap.
+PROJECT is the current project."
+  (cond ((not (directory-name-p entry))
+        (format "%s - [[file:%s][%s]]" ;;the date and filename are added after the entry
+                (format-time-string "%e %b %Y" (org-publish-find-date entry project))
+                entry
+                (org-publish-find-title entry project)))
+       ((eq style 'tree)
+        ;; Return only last subdir.
+        (file-name-nondirectory (directory-file-name entry)))
+       (t entry)))
+

 (setq org-publish-project-alist
       '(("orgfiles"
          :base-directory "~/websites/stage.vanrenterghem.biz/source/"
 (setq org-publish-project-alist
       '(("orgfiles"
          :base-directory "~/websites/stage.vanrenterghem.biz/source/"


@@ -30,6 +48,8 @@
         ;:sitemap-filename "~/websites/stage.vanrenterghem.biz/source/posts/sitemap.org"
         :html-preamble website-header
         :html-postamble website-footer
         ;:sitemap-filename "~/websites/stage.vanrenterghem.biz/source/posts/sitemap.org"
         :html-preamble website-header
         :html-postamble website-footer

+        :sitemap-format-entry my-org-publish-sitemap-default-entry
+        :sitemap-sort-files anti-chronologically

         )
 
         ("assets"
         )
 
         ("assets"