From ca4ba22ef95484f33531a2e1f8b8b8e3b8ef1079 Mon Sep 17 00:00:00 2001
From: Alfredo Beaumont <alfredo.beaumont@gmail.com>
Date: Fri, 24 Mar 2017 00:10:33 +0100
Subject: [PATCH] Get the month from content-date, if exists, instead of whole
 date.

---
 src/indexes.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/indexes.lisp b/src/indexes.lisp
index 3c30763..7faff31 100644
--- a/src/indexes.lisp
+++ b/src/indexes.lisp
@@ -95,7 +95,8 @@ of content loaded in the DB."
   (let ((months (loop :for post :in (find-all 'post)
                       :for content-date := (content-date post)
                       :when content-date
-                        :collect content-date)))
+                      :collect (subseq content-date 0
+                                       (min 7 (length content-date))))))
     (sort (remove-duplicates months :test #'string=) #'string>)))
 
 (defun all-tags ()