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

Refactor ALL-TAGS to use mappend.

Browse source
This commit is contained in:
Brit Butler 2012-09-12 15:23:19 -04:00
parent 971b1aa151
commit 597080c161
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/indices.lisp
View file

@ -21,9 +21,8 @@
(defun all-tags () (defun all-tags ()
"Retrieve a list of all tags used in posts." "Retrieve a list of all tags used in posts."
(sort (reduce (lambda (x y) (union x y :test #'string=)) (sort (remove-duplicates (mappend 'post-tags (hash-table-values *posts*))
(mapcar #'post-tags (hash-table-values *posts*))) :test #'string=) #'string<))
#'string<))
(defun get-month (timestamp) (defun get-month (timestamp)
"Extract the YYYY-MM portion of TIMESTAMP." "Extract the YYYY-MM portion of TIMESTAMP."

3
src/packages.lisp
View file

@ -2,7 +2,8 @@
(:documentation "Homepage: <a href=\"http://github.com/redline6561/coleslaw\">Github</a>") (:documentation "Homepage: <a href=\"http://github.com/redline6561/coleslaw\">Github</a>")
(:use :cl) (:use :cl)
(:import-from :alexandria #:hash-table-values (:import-from :alexandria #:hash-table-values
#:make-keyword) #:make-keyword
#:mappend)
(:import-from :closure-template #:compile-template) (:import-from :closure-template #:compile-template)
(:export #:main (:export #:main
#:add-injection #:add-injection