From: Frederik Vanrenterghem 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?hp=731a1f0551a15d6ba7e3ab0d0de46b3c164a44f6 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