From: Amin Bandali Date: Mon, 2 Dec 2019 07:13:05 +0000 (-0500) Subject: implement optional last updated date for posts X-Git-Url: https://git.shemshak.org/~bandali/bndl.org/commitdiff_plain/2527e234ccbc54d71ae6b6b456a27bbcdaa83692 implement optional last updated date for posts --- diff --git a/haunt.scm b/haunt.scm index dbb34c1..51f3e02 100644 --- a/haunt.scm +++ b/haunt.scm @@ -17,6 +17,8 @@ (define my-url (string-append (symbol->string my-scheme) "://" my-domain)) +(define my-date-format "~B ~d, ~Y") + (define (stylesheet name) `(link (@ (rel "stylesheet") (href ,(string-append "/" name ".css"))))) @@ -37,10 +39,12 @@ (main ,body) (footer (p - "Copyright 2016–2019 Amin Bandali. See " ,(aa "license.html") - " for license conditions. Please copy and share.")))))) + "Copyright 2016–2019 Amin Bandali. See " + ,(aa "license.html" "/license.html") " for license " + "conditions. Please copy and share.")))))) -(define my-date-format "~B ~d, ~Y") + +(register-metadata-parser! 'updated string->date*) (define (my-post-template post) `((header @@ -48,7 +52,13 @@ (address "By " ,(aa (post-ref post 'author) "/") " <" ,(post-ref post 'email) ">") (p (@ (class "date")) - ,(date->string (post-date post) my-date-format))) + "Published " + ,(date->string (post-date post) my-date-format)) + ,(if (post-ref post 'updated) + `(p (@ (class "updated")) + "Updated " + ,(date->string (post-ref post 'updated) + my-date-format)) "")) ,(post-sxml post) (p (@ (class "muted inbox")) "Have a question or comment? Start a discussion in my " diff --git a/static/style.css b/static/style.css index c891f0e..c0f0356 100644 --- a/static/style.css +++ b/static/style.css @@ -25,6 +25,9 @@ header { header >:not(h1) { font-size: 0.875em; } +header > p { + margin: 0; +} footer { border-top: 1px solid #bbb; font-size: 0.84em; @@ -40,9 +43,6 @@ h1 { h1 + address { margin-top: 0.75em; } -address + p { - margin: 0; -} h2 { font-size: 1.25em;