From: Frederik Vanrenterghem <frederik@vanrenterghem.biz>
Date: Sun, 17 Dec 2023 14:30:59 +0000 (+0800)
Subject: Sorteer taglijst en posts per tag.
X-Git-Url: http://git.vanrenterghem.biz/www2.vanrenterghem.biz.git/commitdiff_plain/5c432ee1bd1d23cfd91e51d03b95b5d3da332cb2

Sorteer taglijst en posts per tag.
---

diff --git a/maak-website.el b/maak-website.el
index 3fb3b9c..f34847f 100644
--- a/maak-website.el
+++ b/maak-website.el
@@ -47,7 +47,7 @@
       (insert (concat "#+TITLE: Blog - All tags\n"))
       (insert "#+OPTIONS: ^:nil\n") ; do not use underscores as subscript
       (insert "\n")
-      (dolist (tag (sort (my-org-get-all-filetags) #'<))
+      (dolist (tag (sort (my-org-get-all-filetags) (lambda (x y) (string-lessp (car x) (car y))) ))
 	(insert (concat "- [[file:" (file-name-concat my-blog-posts-folder (concat "tag-" (car tag) ".org")) "][" (car tag) "]]\n")))) 
   (dolist (tag (my-org-get-all-filetags))
     (with-temp-file (file-name-concat my-blog-tags-folder (concat "tag-" (car tag) ".org"))
@@ -56,7 +56,7 @@
       (insert "#+OPTIONS: ^:nil\n") ; do not use underscores as subscript
       (insert "\n")
       (insert (concat "# " (car tag) "\n\n"))
-      (dolist (tagfile (cdr tag))
+      (dolist (tagfile (my-blog-sort-article-list (cdr tag) plist))
 	(let ((relpath (file-relative-name tagfile my-blog-posts-folder)));;not used
 	  (message (concat "Processing " tagfile))
 	  (insert (concat "- " (format "%s - [[file:%s][%s]]" ;;the date and filename are added after the entry