From 43b46b17fc1d12170549702206bc0060f5f8c265 Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 5 Jan 2024 21:21:24 +0100
Subject: Add Here’s to you Nicola and Bart from Joan Baez

---
 public/rhythms/1.png                               | Bin 0 -> 6494 bytes
 songs/joan-baez/here-s-to-you-nicola-and-bart.lisp |  16 ++++++++++++++++
 src/main.lisp                                      |   2 +-
 3 files changed, 17 insertions(+), 1 deletion(-)
 create mode 100644 public/rhythms/1.png
 create mode 100644 songs/joan-baez/here-s-to-you-nicola-and-bart.lisp

diff --git a/public/rhythms/1.png b/public/rhythms/1.png
new file mode 100644
index 0000000..d137d4f
Binary files /dev/null and b/public/rhythms/1.png differ
diff --git a/songs/joan-baez/here-s-to-you-nicola-and-bart.lisp b/songs/joan-baez/here-s-to-you-nicola-and-bart.lisp
new file mode 100644
index 0000000..9fc9ade
--- /dev/null
+++ b/songs/joan-baez/here-s-to-you-nicola-and-bart.lisp
@@ -0,0 +1,16 @@
+(song
+    (title "Here’s to you, Nicola and Bart")
+    (from "Joan Baez")
+    (tonality "C")
+
+    (chords
+        (all
+            ((C G) ("Am" G) (C G) ("Am" G))
+            (("Em" "Dm7") (G7 C) (C "Dm7") ((E4 1) (E7 1) ("Am" 2)))))
+
+    (lyrics
+        (all
+            "Here’s, to you, Nicola and Bart.
+            Rest, fore-ver here in our hearts.
+            The last, and fi-nal moment is yours.
+            That a-gony, is your triumph!")))
diff --git a/src/main.lisp b/src/main.lisp
index 2d3007e..51a7cbb 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -151,7 +151,7 @@
       (if (member c cs) (h "emph" nil (list (make-string 1 :initial-element c))) (make-string 1 :initial-element c)))))
 
 (defun lyrics-line (line)
-  (h "div" nil (list (emph line (list #\, #\. #\? #\!)))))
+  (h "div" nil (list (emph line (list #\, #\. #\? #\! #\-)))))
 
 (defun lyrics-section (s)
   (let ((p (car (cdr s))))
-- 
cgit v1.2.3