From 5c432ee1bd1d23cfd91e51d03b95b5d3da332cb2 Mon Sep 17 00:00:00 2001 From: Frederik Vanrenterghem Date: Sun, 17 Dec 2023 22:30:59 +0800 Subject: [PATCH 1/1] Sorteer taglijst en posts per tag. --- maak-website.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.39.2