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

Get the month from content-date, if exists, instead of whole date.

Browse source
This commit is contained in:
Alfredo Beaumont 2017-03-24 00:10:33 +01:00
parent 9cc9eaf241
commit ca4ba22ef9
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/indexes.lisp
View file

@ -95,7 +95,8 @@ of content loaded in the DB."
(let ((months (loop :for post :in (find-all 'post) (let ((months (loop :for post :in (find-all 'post)
:for content-date := (content-date post) :for content-date := (content-date post)
:when content-date :when content-date
:collect content-date))) :collect (subseq content-date 0
(min 7 (length content-date))))))
(sort (remove-duplicates months :test #'string=) #'string>))) (sort (remove-duplicates months :test #'string=) #'string>)))
(defun all-tags () (defun all-tags ()