From 4b71f5477cf3d9b309baadfea8756e00c0bf84a6 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Fri, 8 Aug 2025 22:26:00 +0200
Subject: Show notes if defined

---
 src/main.lisp | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/main.lisp')

diff --git a/src/main.lisp b/src/main.lisp
index 70b1bab..be2491a 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -53,6 +53,14 @@
        (h "h1" '(("class" "g-Title")) (list title))
        (h "div" '(("class" "g-Author")) (list from)))))
 
+; Notes
+
+(defun notes-tags (notes)
+  (if
+    (eql notes nil)
+    nil
+    (h "div" '(("class" "g-Notes")) (list notes))))
+
 ; Part
 
 (defun part-name (key)
@@ -178,6 +186,7 @@
          (title (car (song-key 'title (cdr data))))
          (from (car (song-key 'from (cdr data))))
          (tonality (car (song-key 'tonality (cdr data))))
+         (notes (car (song-key 'notes (cdr data))))
          (chords (song-key 'chords (cdr data)))
          (lyrics (song-key 'lyrics (cdr data))))
       (write-file output (page
@@ -188,6 +197,7 @@
           (list
             (h "a" '(("class" "g-Back") ("href" "/")) '("Retour à l’accueil"))
             (title-tags title from)
+            (notes-tags notes)
             (chord-tags chords tonality)
             (lyrics-tags lyrics)))))))
 
-- 
cgit v1.2.3