haunt: Add metadata in the articles.

Signed-off-by: Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>

1 files changed, 19 insertions, 0 deletions

diff --git a/website/builders/replicant-blog.scm b/website/builders/replicant-blog.scm
index 92c2475..1f8052b 100644
--- a/website/builders/replicant-blog.scm
+++ b/website/builders/replicant-blog.scm
@@ -73,6 +73,25 @@
 
 (define (replicant-default-post-template post)
   `((h1 (@ (id "title")) ,(post-ref post 'title))
+    ;; Metadata
+    (p (string-append
+	"Posted"
+	,(if
+	  (post-ref post 'authors)
+	  (string-append " by " (post-ref post 'authors))
+	  "")
+	,(if
+	  (post-ref post 'date)
+	  (string-append
+	   " on the "
+	   (date->string (post-ref post 'date) "~d ~B ~Y at ~kh~M"))
+	  "")
+	,(if (post-ref post 'licenses)
+	     (string-append
+	      " under the "
+	      (post-ref post 'licenses) " license(s)")
+	     "")
+	"."))
     (div (@ (id "post-content")) ,(post-sxml post))))
 
 (define (replicant-default-collection-template site title posts prefix)