diff options
Diffstat (limited to 'src/main.lisp')
| -rw-r--r-- | src/main.lisp | 10 |
1 files changed, 10 insertions, 0 deletions
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))))))) |