From cdf2d88a911357846f0f814d975fe7aee4afc8da Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 7 Jan 2024 23:05:16 +0100
Subject: Add house of the rising sun from the animals

---
 songs/joan-baez/here-s-to-you-nicola-and-bart.lisp |  6 ++-
 songs/rem/losing-my-religion.lisp                  |  2 +-
 songs/the-animals/the-house-of-the-rising-sun.lisp | 58 ++++++++++++++++++++++
 src/main.lisp                                      |  1 +
 4 files changed, 64 insertions(+), 3 deletions(-)
 create mode 100644 songs/the-animals/the-house-of-the-rising-sun.lisp

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
index 9fc9ade..63a332a 100644
--- a/songs/joan-baez/here-s-to-you-nicola-and-bart.lisp
+++ b/songs/joan-baez/here-s-to-you-nicola-and-bart.lisp
@@ -5,8 +5,10 @@
 
     (chords
         (all
-            ((C G) ("Am" G) (C G) ("Am" G))
-            (("Em" "Dm7") (G7 C) (C "Dm7") ((E4 1) (E7 1) ("Am" 2)))))
+            ((C G) ("Am" G))
+            ((C G) ("Am" G))
+            (("Em" "Dm7") (G7 C))
+            ((C "Dm7") ((E4 1) (E7 1) ("Am" 2)))))
 
     (lyrics
         (all
diff --git a/songs/rem/losing-my-religion.lisp b/songs/rem/losing-my-religion.lisp
index 4a7e684..4dc8ffb 100644
--- a/songs/rem/losing-my-religion.lisp
+++ b/songs/rem/losing-my-religion.lisp
@@ -9,7 +9,7 @@
             (F (F G) "Am" G))
 
         (verse
-            (A- % "Em" %)
+            ("Am" % "Em" %)
             ("Am" % "Em" %)
             ("Am" % "Em" %)
             ("Dm" % G %))
diff --git a/songs/the-animals/the-house-of-the-rising-sun.lisp b/songs/the-animals/the-house-of-the-rising-sun.lisp
new file mode 100644
index 0000000..926ff4a
--- /dev/null
+++ b/songs/the-animals/the-house-of-the-rising-sun.lisp
@@ -0,0 +1,58 @@
+(song
+    (title "The House of the Rising Sun")
+    (from "The Animals")
+    (tonality "Am")
+
+    (chords
+        (intro
+            (("Am" C) (D F) ("Am" E) ("Am" E)))
+
+        ("Refrain / Couplet"
+            (("Am" C) (D F) ("Am" C) E)
+            (("Am" C) (D F) ("Am" E) ("Am" C))
+            ((D F) ("Am" E7) ("Am" E7)))
+
+        (outro
+            (("Am" "Dm") ("Am" "Dm") ("Am" "Dm") ("Am" "Dm"))
+            (("Am" "Dm") "Am9")))
+
+    (lyrics
+        (chorus
+            "There is, a house, in New Orleans.
+            They call, the Ri-sing Sun.
+            And it’s been, the ruin, of many a, poor boy.
+            And God, I know, I’m one.")
+
+        (verse
+            "My mother, was, a tailor.
+            She sewed, my new, blue jeans.
+            My fa-ther was, a gam-blin’ man.
+            Down, in New, Orleans.")
+
+        (verse
+            "Now the on-ly thing, a gam-bler needs.
+            Is a suit-case and, a trunk.
+            And the on-ly time, he’s, satisfied.
+            Is when, he’s on, a drug.")
+
+        (solo)
+
+        (verse
+            "Oh mothers, tell your children,
+            Not to do, what I, have done.
+            Spend, your lives, in sin, and misery.
+            In the House, of the Ri-sing Sun.")
+
+        (verse
+            "Well, I got one, foot on, the platform.
+            The o-ther foot on, the train.
+            I’m go-in’ back, to New Or-leans.
+            To wear, that ball, and chain.")
+
+        (chorus
+            "Well, there is, a house, in New Or-leans.
+            They call, the Ri-sing Sun.
+            And it’s been, the ruin, of many a, poor boy.
+            And God, I know, I’m one.")
+
+        (outro)))
diff --git a/src/main.lisp b/src/main.lisp
index 2c7375e..33c75b4 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -61,6 +61,7 @@
     ('verse "Couplet")
     ('chorus "Refrain")
     ('interlude "Interlude")
+    ('solo "Solo")
     ('bridge "Pont")
     ('outro "Outro")
     (otherwise key)))
-- 
cgit v1.2.3