diff options
| -rw-r--r-- | public/rhythms/1.png | bin | 0 -> 6494 bytes | |||
| -rw-r--r-- | songs/joan-baez/here-s-to-you-nicola-and-bart.lisp | 16 | ||||
| -rw-r--r-- | src/main.lisp | 2 |
3 files changed, 17 insertions, 1 deletions
diff --git a/public/rhythms/1.png b/public/rhythms/1.png Binary files differnew file mode 100644 index 0000000..d137d4f --- /dev/null +++ b/public/rhythms/1.png 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)))) |
