From 1cdb1ecdc6ed213caeebf6e34969f7527fac55ef Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Wed, 4 Oct 2023 17:38:56 +0200
Subject: html: add long and short descriptions

---
 src/html.scm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'src/html.scm')

diff --git a/src/html.scm b/src/html.scm
index 7c0485f..568f885 100644
--- a/src/html.scm
+++ b/src/html.scm
@@ -12,10 +12,11 @@
             js))
 
 (define-record-type <index>
-  (make-index title description uri author posts styles scripts)
+  (make-index title short-description long-description uri author posts styles scripts)
   index?
   (title index-title)
-  (description index-description)
+  (short-description index-short-description)
+  (long-description index-long-description)
   (uri index-uri)
   (author index-author)
   (posts index-posts)
@@ -61,14 +62,15 @@
 
 
 (define* (index #:key (title "")
-                      (description "")
+                      (short-description "")
+                      (long-description "")
                       (uri "")
                       (author (person ""))
                       (posts '())
                       (styles '())
                       (scripts '())
                 #:allow-other-keys)
-  (make-index title description uri author posts styles scripts))
+  (make-index title short-description long-description uri author posts styles scripts))
 
 
 (define* (post #:key (id #f)
@@ -151,9 +153,10 @@
        (meta (@(name "viewport")
                (content "width=device-width, initial-scale=1")))
        (meta (@(name "description")
-               (content ,(index-description index))))
+               (content ,(index-short-description index))))
        ,@(map render-style (index-styles index)))
      (body
+       (section (@(class description)) ,(index-long-description index))
        ,@(map render-post (index-posts index))
        ,@(map render-script (index-scripts index)))))
 
-- 
cgit v1.2.3