From 57bf8e693727e63e7acc1aa2780c19948dc8de06 Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 5 Apr 2024 20:44:08 +0200
Subject: Represent chords with clearer ascii characters

---
 songs/ben-e-king/stand-by-me.lisp                  |  2 +-
 songs/bob-marley/no-woman-no-cry.lisp              |  8 +++----
 songs/graeme-allwright/petit-garcon.lisp           |  8 +++----
 songs/joan-baez/here-s-to-you-nicola-and-bart.lisp |  8 +++----
 songs/rem/losing-my-religion.lisp                  | 28 +++++++++++-----------
 songs/the-animals/the-house-of-the-rising-sun.lisp | 14 +++++------
 songs/tri-yann/pelot-d-hennebont.lisp              |  8 +++----
 7 files changed, 38 insertions(+), 38 deletions(-)

(limited to 'songs')

diff --git a/songs/ben-e-king/stand-by-me.lisp b/songs/ben-e-king/stand-by-me.lisp
index 36eca86..5fd9040 100644
--- a/songs/ben-e-king/stand-by-me.lisp
+++ b/songs/ben-e-king/stand-by-me.lisp
@@ -5,7 +5,7 @@
 
     (chords
         (all
-            (G % "Em" %)
+            (G % "Eₘ" %)
             (C D G %)))
 
     (lyrics
diff --git a/songs/bob-marley/no-woman-no-cry.lisp b/songs/bob-marley/no-woman-no-cry.lisp
index 80bb213..f696abf 100644
--- a/songs/bob-marley/no-woman-no-cry.lisp
+++ b/songs/bob-marley/no-woman-no-cry.lisp
@@ -5,21 +5,21 @@
 
     (chords
         (intro
-            ((C G) (("Am" 1.5) (F 0.5 2)))
+            ((C G) (("Aₘ" 1.5) (F 0.5 2)))
             (((C 2) (F 1.5) (C 0.5)) (C G)))
 
         (chorus
             :repeat 2
-            ((C G) (("Am" 1.5) (F 0.5 2)))
+            ((C G) (("Aₘ" 1.5) (F 0.5 2)))
             (((C 2) (F 1.5) (C 0.5)) (C G)))
 
         (verse
             :repeat 4
-            ((C G) (("Am" 1.5) (F 0.5 2))))
+            ((C G) (("Aₘ" 1.5) (F 0.5 2))))
 
         (bridge
             :repeat 4
-            ((C G) ("Am" F))))
+            ((C G) ("Aₘ" F))))
 
     (lyrics
         (intro)
diff --git a/songs/graeme-allwright/petit-garcon.lisp b/songs/graeme-allwright/petit-garcon.lisp
index 23a6ca6..d11c7d4 100644
--- a/songs/graeme-allwright/petit-garcon.lisp
+++ b/songs/graeme-allwright/petit-garcon.lisp
@@ -5,12 +5,12 @@
 
     (chords
         (verse
-            (C G F G7)
-            ((C C7) (F F-) (C G7) C))
+            (C G F "G⁷")
+            ((C "C⁷") (F "Fₘ") (C "G⁷") C))
 
         (chorus
-            (G7 % F C)
-            ("Am" ("Am" D7) (D7 G7) G7)))
+            ("G⁷" % F C)
+            ("Aₘ" ("Aₘ" "D⁷") ("D⁷" "G⁷") "G⁷")))
 
     (lyrics
         (intro)
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 63a332a..34acba3 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,10 +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) ("Aₘ" G))
+            ((C G) ("Aₘ" G))
+            (("Eₘ" "Dₘ⁷") ("G⁷" C))
+            ((C "Dₘ⁷") (("E⁴" 1) ("E⁷" 1) ("Aₘ" 2)))))
 
     (lyrics
         (all
diff --git a/songs/rem/losing-my-religion.lisp b/songs/rem/losing-my-religion.lisp
index 4dc8ffb..39d13e2 100644
--- a/songs/rem/losing-my-religion.lisp
+++ b/songs/rem/losing-my-religion.lisp
@@ -1,32 +1,32 @@
 (song
     (title "Losing My Religion")
     (from "R.E.M.")
-    (tonality "Am")
+    (tonality "Aₘ")
 
     (chords
         ("Intro / Refrain"
-            (F (F G) "Am" %)
-            (F (F G) "Am" G))
+            (F (F G) "Aₘ" %)
+            (F (F G) "Aₘ" G))
 
         (verse
-            ("Am" % "Em" %)
-            ("Am" % "Em" %)
-            ("Am" % "Em" %)
-            ("Dm" % G %))
+            ("Aₘ" % "Eₘ" %)
+            ("Aₘ" % "Eₘ" %)
+            ("Aₘ" % "Eₘ" %)
+            ("Dₘ" % G %))
 
         (bridge
-            ("Am" G F G)
-            (C "Dm" C "Dm"))
+            ("Aₘ" G F G)
+            (C "Dₘ" C "Dₘ"))
 
         ("Refrain 3"
-            (F (F G) "Am" %)
-            (F (F G) "Am" %)
-            (F (F G) "Am" %)
-            (F (F G) "Am" G))
+            (F (F G) "Aₘ" %)
+            (F (F G) "Aₘ" %)
+            (F (F G) "Aₘ" %)
+            (F (F G) "Aₘ" G))
 
         (outro
             :repeat 8
-            ("Am")))
+            ("Aₘ")))
 
     (lyrics
         (intro)
diff --git a/songs/the-animals/the-house-of-the-rising-sun.lisp b/songs/the-animals/the-house-of-the-rising-sun.lisp
index 464b292..2d5e268 100644
--- a/songs/the-animals/the-house-of-the-rising-sun.lisp
+++ b/songs/the-animals/the-house-of-the-rising-sun.lisp
@@ -1,20 +1,20 @@
 (song
     (title "The House of the Rising Sun")
     (from "The Animals")
-    (tonality "Am")
+    (tonality "Aₘ")
 
     (chords
         (intro
-            (("Am" C) (D F) ("Am" E) ("Am" E)))
+            (("Aₘ" C) (D F) ("Aₘ" E) ("Aₘ" E)))
 
         ("Refrain / Couplet"
-            (("Am" C) (D F) ("Am" C) E)
-            (("Am" C) (D F) ("Am" E) ("Am" C))
-            ((D F) ("Am" E7) ("Am" E7)))
+            (("Aₘ" C) (D F) ("Aₘ" C) E)
+            (("Aₘ" C) (D F) ("Aₘ" E) ("Aₘ" C))
+            ((D F) ("Aₘ" "E⁷") ("Aₘ" "E⁷")))
 
         (outro
-            (("Am" "Dm") ("Am" "Dm") ("Am" "Dm") ("Am" "Dm"))
-            (("Am" "Dm") "Am9")))
+            (("Aₘ" "Dₘ") ("Aₘ" "Dₘ") ("Aₘ" "Dₘ") ("Aₘ" "Dₘ"))
+            (("Aₘ" "Dₘ") "Aₘ⁹")))
 
     (lyrics
         (intro)
diff --git a/songs/tri-yann/pelot-d-hennebont.lisp b/songs/tri-yann/pelot-d-hennebont.lisp
index ac4eafa..1c7432b 100644
--- a/songs/tri-yann/pelot-d-hennebont.lisp
+++ b/songs/tri-yann/pelot-d-hennebont.lisp
@@ -1,15 +1,15 @@
 (song
     (title "Pelot d’Hennebont")
     (from "Tri Yann")
-    (tonality "Em")
+    (tonality "Eₘ")
 
     (chords
         (intro
-            ("Em" %))
+            ("Eₘ" %))
 
         (verse
-            (("Em" G) D ("Em" G) D)
-            ((D "Em") (D "Em") (D "Em") (D "Em"))))
+            (("Eₘ" G) D ("Eₘ" G) D)
+            ((D "Eₘ") (D "Eₘ") (D "Eₘ") (D "Eₘ"))))
 
     (lyrics
         (intro)
-- 
cgit v1.2.3