<commit_before>(in-package :coleslaw)

(defun all-months ()
  "Retrieve a list of all months with published posts."
  (remove-duplicates (mapcar (lambda (x) (subseq (post-date x) 0 7))
                             (hash-table-values *posts*)) :test #'string=))

(defun all-tags ()
  "Retrieve a list of all tags used in posts."
  (reduce (lambda (x y) (union x y :test #'string=))
          (mapcar #'post-tags (hash-table-values *posts*))))

(defun taglinks ()
  "Generate links to all the tag indices."
  (loop for tag in (all-tags)
     collect (list :url (format nil "~a/tag/~a.html" (domain *config*) tag)
                   :name tag)))<commit_msg>Sort the ALL-MONTHS and ALL-TAGS results.<commit_after>(in-package :coleslaw)

(defun all-months ()
  "Retrieve a list of all months with published posts."
  (sort (remove-duplicates (mapcar (lambda (x) (subseq (post-date x) 0 7))
                                   (hash-table-values *posts*)) :test #'string=)
        #'string<))

(defun all-tags ()
  "Retrieve a list of all tags used in posts."
  (sort (reduce (lambda (x y) (union x y :test #'string=))
                (mapcar #'post-tags (hash-table-values *posts*)))
        #'string<))

(defun taglinks ()
  "Generate links to all the tag indices."
  (loop for tag in (all-tags)
     collect (list :url (format nil "~a/tag/~a.html" (domain *config*) tag)
                   :name tag)))
{'fraction_non_alphanumeric': 0.15092989985693847, 'fraction_numerical': 0.002861230329041488, 'mean_word_length': 2.633766233766234, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 1, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '7612474', 'n_tokens_mistral': 473, 'n_tokens_neox': 456, 'n_words': 158}