From d9c50ea7ba3aad5a6794991d2cc03a068820d1a6 Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 5 Jan 2024 22:33:00 +0100
Subject: Add losing my religion from REM

---
 songs/rem/losing-my-religion.lisp | 103 ++++++++++++++++++++++++++++++++++++++
 src/main.lisp                     |   5 +-
 2 files changed, 106 insertions(+), 2 deletions(-)
 create mode 100644 songs/rem/losing-my-religion.lisp

diff --git a/songs/rem/losing-my-religion.lisp b/songs/rem/losing-my-religion.lisp
new file mode 100644
index 0000000..4a7e684
--- /dev/null
+++ b/songs/rem/losing-my-religion.lisp
@@ -0,0 +1,103 @@
+(song
+    (title "Losing My Religion")
+    (from "R.E.M.")
+    (tonality "Am")
+
+    (chords
+        ("Intro / Refrain"
+            (F (F G) "Am" %)
+            (F (F G) "Am" G))
+
+        (verse
+            (A- % "Em" %)
+            ("Am" % "Em" %)
+            ("Am" % "Em" %)
+            ("Dm" % G %))
+
+        (bridge
+            ("Am" G F G)
+            (C "Dm" C "Dm"))
+
+        ("Refrain 3"
+            (F (F G) "Am" %)
+            (F (F G) "Am" %)
+            (F (F G) "Am" %)
+            (F (F G) "Am" G))
+
+        (outro
+            :repeat 8
+            ("Am")))
+
+    (lyrics
+        (intro)
+
+        (verse
+            "Oh life, it’s bigger.
+            It’s bigger, than you,
+            And you are not me.
+            The lengths that I will go to.
+            The distance in your eyes.
+            Oh no I’ve said too much,
+            I set it up.")
+
+        (verse
+            "That’s me in the corner.
+            That’s me in the spot-light,
+            Losing my religion.
+            Trying to keep, up, with you,
+            And I don’t know if I can do it.
+            Oh no I’ve said too much,
+            I haven’t said enough.")
+
+        (chorus
+            "I thought that I heard you laughing,
+            I thought that I heard you sing,
+            I think I thought I saw you try.")
+
+        (verse
+            "Every whisper.
+            Of every waking hour,
+            I’m, choosing my confessions.
+            Trying to keep, an eye on you,
+            Like a hurt lost and blinded fool, fool.
+            Oh no I’ve said too much,
+            I set it up.")
+
+        (verse
+            "Consider this,
+            Consider this, the hint of the century,
+            Consider this, the slip,
+            That brought me to my knees, failed,
+            What if all these fantasies come,
+            Flailing around,
+            Now I’ve said, too much.")
+
+        (chorus
+            "I thought that I heard you laughing,
+            I thought that I heard you sing,
+            I think I thought I saw you try.")
+
+        (bridge
+            "But that was just a dream,
+            That was just a dream.")
+
+        (verse
+            "That’s me in the corner.
+            That’s me in the spot-light,
+            Losing my religion.
+            Trying to keep, up, with you,
+            And I don’t know if I can do it.
+            Oh no, I’ve said too much,
+            I haven’t said enough.")
+
+        (chorus
+            "I thought that I heard you laughing,
+            I thought that I heard you sing,
+            I think I thought I saw you try.
+            But that was just a dream,
+            Try, cry, why, try,
+            That was just a dream,
+            Just a dream,
+            Just a dream, dream.")
+
+        (outro)))
diff --git a/src/main.lisp b/src/main.lisp
index 51a7cbb..2c7375e 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -56,13 +56,14 @@
 ; Part
 
 (defun part-name (key)
-  (ecase key
+  (case key
     ('intro "Intro")
     ('verse "Couplet")
     ('chorus "Refrain")
     ('interlude "Interlude")
     ('bridge "Pont")
-    ('outro "Outro")))
+    ('outro "Outro")
+    (otherwise key)))
 
 (defun part-tags (key children)
   (h "div" 
-- 
cgit v1.2.3