aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--public/main.js4
-rw-r--r--songs/ben-e-king/stand-by-me.lisp2
-rw-r--r--songs/bob-marley/no-woman-no-cry.lisp8
-rw-r--r--songs/graeme-allwright/petit-garcon.lisp8
-rw-r--r--songs/joan-baez/here-s-to-you-nicola-and-bart.lisp8
-rw-r--r--songs/rem/losing-my-religion.lisp28
-rw-r--r--songs/the-animals/the-house-of-the-rising-sun.lisp14
-rw-r--r--songs/tri-yann/pelot-d-hennebont.lisp8
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)