From 6511aa99f1c4e2e699df56a68da75ddf37dc68d7 Mon Sep 17 00:00:00 2001 From: Adam Simpson Date: Mon, 24 Aug 2020 14:04:18 -0400 Subject: [PATCH] fix: RSS date is now valid RFC-822. In refactoring the RSS date generation I forgot to pad single digit hour, minute, and second values with a leading zero. --- cycle.asd | 2 +- cycle.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/cycle.asd b/cycle.asd index 5fa1dd7..b7d0e5e 100644 --- a/cycle.asd +++ b/cycle.asd @@ -4,7 +4,7 @@ :description "A opinionated static site builder." :author "Adam Simpson " :license "GNU GPLv3" - :version "0.2.8" + :version "0.2.9" :serial t :depends-on ( :local-time diff --git a/cycle.lisp b/cycle.lisp index 4c83aea..0dd65d0 100644 --- a/cycle.lisp +++ b/cycle.lisp @@ -229,7 +229,7 @@ (defun date-as-rfc-822 (date) (local-time:format-timestring nil (local-time:parse-timestring date) - :format '(:short-weekday ", " :day " " :short-month " " :year " " :hour ":" :min ":" (:sec 2) " " :gmt-offset-hhmm))) + :format '(:short-weekday ", " :day " " :short-month " " :year " " (:hour 2) ":" (:min 2) ":" (:sec 2) " " :gmt-offset-hhmm))) (defun format-data-for-rss(post) (let ((slug (cdr (assoc :slug post))))