Sorteer taglijst en posts per tag.

diff --git a/maak-website.el b/maak-website.el
index 3fb3b9c29eb2819ba1533c2133478ac668cfe20f..f34847ff3c97b6f069b700d46429baf9f047ddec 100644 (file)
--- 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")
       (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"))
        (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"))
       (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
        (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