miniblog

Miniblog: A command-line static blog system in Common Lisp
Log | Files | Refs | README | LICENSE

commit 383a1a20e25edec8dbe516b2f70c981072a9df74
parent 0f16900d77f4c0aac47df27661fc3b03092015d5
Author: Decay <decaydjk@tilde.town>
Date:   Mon, 24 Feb 2020 19:39:08 +0000

Separator between posts in default template

Diffstat:
Msrc/template.lhtml | 6+++++-
1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/template.lhtml b/src/template.lhtml @@ -39,9 +39,13 @@ </section> <section id="miniblog-main"> <% @if posts %> - <% (let ((short-date)) %> + <% (let ((short-date) (render-hr nil)) %> <% (loop for (id created-at updated-at title content username last-updated-by) in (getf env :posts) do %> <% (let ((curr-short-date (funcall (getf env :short-date-formatter) created-at))) %> + <% (if render-hr %> + <hr> + <% ) %> + <% (setf render-hr t) %> <% (if (string/= short-date curr-short-date) (progn (setf short-date curr-short-date)