]> git.vanrenterghem.biz Git - www2.vanrenterghem.biz.git/commitdiff
Toon datum in bestandenlijst.
authorFrederik Vanrenterghem <frederik@vanrenterghem.biz>
Mon, 27 Nov 2023 07:58:59 +0000 (15:58 +0800)
committerFrederik Vanrenterghem <frederik@vanrenterghem.biz>
Mon, 27 Nov 2023 07:58:59 +0000 (15:58 +0800)
maak-website.el

index f55ae09eb8e79c5a2dfffe6094cc6f0aba560c20..4d37c188c7f7fe6af6a6a078274eb5d91c06ef91 100644 (file)
@@ -1,6 +1,10 @@
 (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
     (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/"
@@ -30,6 +48,8 @@
         ;: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"