aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoris2024-01-07 23:05:16 +0100
committerJoris2024-01-07 23:05:16 +0100
commitcdf2d88a911357846f0f814d975fe7aee4afc8da (patch)
tree0ff75d6493ca7125d31ac7503d388bb9a3a81a26
parentd9c50ea7ba3aad5a6794991d2cc03a068820d1a6 (diff)
downloadmusic-cdf2d88a911357846f0f814d975fe7aee4afc8da.tar.gz
music-cdf2d88a911357846f0f814d975fe7aee4afc8da.tar.bz2
music-cdf2d88a911357846f0f814d975fe7aee4afc8da.zip
Add house of the rising sun from the animals
-rw-r--r--songs/joan-baez/here-s-to-you-nicola-and-bart.lisp6
-rw-r--r--songs/rem/losing-my-religion.lisp2
-rw-r--r--songs/the-animals/the-house-of-the-rising-sun.lisp58
-rw-r--r--src/main.lisp1
4 files changed, 64 insertions, 3 deletions
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)))