Represent chords with clearer ascii characters

8 files changed, 40 insertions, 40 deletions

diff --git a/public/main.js b/public/main.js
index db9a9f9..46ce5e0 100644
--- a/public/main.js
+++ b/public/main.js
@@ -5,7 +5,7 @@ function appendElement(parentElement, tag) {
   parentElement.appendChild(element)
   return element
 }
-  
+
 function appendText(parentElement, text) {
   element = document.createTextNode(text)
   parentElement.appendChild(element)
@@ -40,7 +40,7 @@ function applyShift(tonalities, t1, s) {
 const node = document.getElementById('g-Tonality')
 if (node !== null) {
   let tonality = node.innerText
-  mode = tonality[tonality.length - 1] == 'm' ? 'm' : ''
+  mode = tonality[tonality.length - 1] == 'ₘ' ? 'ₘ' : ''
 
   select = document.createElement('select')
   select['name'] = 'tonality'
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)