marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Sort the ALL-MONTHS and ALL-TAGS results.

Browse source
This commit is contained in:
Brit Butler 2012-08-21 19:57:57 -04:00
parent 2c2af43c76
commit 69648e72e1
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/indices.lisp
View file

@ -2,13 +2,15 @@
(defun all-months () (defun all-months ()
"Retrieve a list of all months with published posts." "Retrieve a list of all months with published posts."
(remove-duplicates (mapcar (lambda (x) (subseq (post-date x) 0 7)) (sort (remove-duplicates (mapcar (lambda (x) (subseq (post-date x) 0 7))
(hash-table-values *posts*)) :test #'string=)) (hash-table-values *posts*)) :test #'string=)
#'string<))
(defun all-tags () (defun all-tags ()
"Retrieve a list of all tags used in posts." "Retrieve a list of all tags used in posts."
(reduce (lambda (x y) (union x y :test #'string=)) (sort (reduce (lambda (x y) (union x y :test #'string=))
(mapcar #'post-tags (hash-table-values *posts*)))) (mapcar #'post-tags (hash-table-values *posts*)))
#'string<))
(defun taglinks () (defun taglinks ()
"Generate links to all the tag indices." "Generate links to all the tag indices."