diff options
| -rw-r--r-- | songs/rem/losing-my-religion.lisp | 103 | ||||
| -rw-r--r-- | src/main.lisp | 5 |
2 files changed, 106 insertions, 2 deletions
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" |