commit 60571d5b0bc28ce8411330577f80933e236476af parent fc57591fbfcd5e8f7b1b3ea0047ca1354756a7ce Author: Decay <decaydjk@tilde.town> Date: Sun, 9 Feb 2020 00:08:18 +0000 Nuking gen-year It's some extra complexity that doesn't seem to be all that useful Diffstat:
| M | src/content.lisp | | | 22 | ---------------------- |
| M | src/packages.lisp | | | 2 | +- |
2 files changed, 1 insertion(+), 23 deletions(-)
diff --git a/src/content.lisp b/src/content.lisp @@ -117,28 +117,6 @@ (gen-index-impl entries (get-archive-date-list entries tz) :generator generator :tz tz)) -(defun gen-year (entries year &key archive-date-list generator tz) - (labels - ((gen-month-and-earlier (entries year month tz) - (let ((this-month (gen-month entries year month - :archive-date-list archive-date-list - :generator generator - :tz tz))) - (if (> month 1) - (let ((earlier (gen-month-and-earlier - (cdr this-month) year (- month 1) tz))) - (cons - (if (car this-month) - (cons (car this-month) (car earlier)) - (car earlier)) - (cdr earlier))) - (cons - (if (car this-month) - (cons (car this-month) nil) - nil) - (cdr this-month)))))) - (gen-month-and-earlier entries year 12 tz))) - (defun gen-month-impl (entries archive-date-list year month &key generator tz) (let* ((entries-at-month (monthcdr entries year month tz)) diff --git a/src/packages.lisp b/src/packages.lisp @@ -19,7 +19,7 @@ (:use :cl :local-time :cl-emb) (:export #:make-generator #:year-month-of-entry #:year-month-of-latest-entry - #:gen-all #:gen-index #:gen-year #:gen-month)) + #:gen-all #:gen-index #:gen-month)) (defpackage :miniblog (:use :cl :command-line-arguments :local-time)