From b5292689534c00918675223d1f36174bbf44406f Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 3 Jan 2024 00:01:38 +0100
Subject: Provide tonality and selector to change

---
 songs/ben-e-king/stand-by-me.lisp        | 5 +++--
 songs/graeme-allwright/petit-garcon.lisp | 9 +++++----
 songs/tri-yann/pelot-d-hennebont.lisp    | 5 +++--
 3 files changed, 11 insertions(+), 8 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 c3537a5..36eca86 100644
--- a/songs/ben-e-king/stand-by-me.lisp
+++ b/songs/ben-e-king/stand-by-me.lisp
@@ -1,11 +1,12 @@
 (song
     (title "Stand by Me")
     (from "Ben E. King")
+    (tonality "G")
 
     (chords
         (all
-            (A % "F♯m" %)
-            (D E A     %)))
+            (G % "Em" %)
+            (C D G %)))
 
     (lyrics
         (intro)
diff --git a/songs/graeme-allwright/petit-garcon.lisp b/songs/graeme-allwright/petit-garcon.lisp
index bd6e3bf..23a6ca6 100644
--- a/songs/graeme-allwright/petit-garcon.lisp
+++ b/songs/graeme-allwright/petit-garcon.lisp
@@ -1,15 +1,16 @@
 (song
     (title "Petit Garçon")
     (from "Graeme Allwright")
+    (tonality C)
 
     (chords
         (verse
-            (G D C D7)
-            ("G / G7" "C / C-" "G / D7" G))
+            (C G F G7)
+            ((C C7) (F F-) (C G7) C))
 
         (chorus
-            (D7 % C G)
-            ("Em" "Em / A7" "A7 / D7" D7)))
+            (G7 % F C)
+            ("Am" ("Am" D7) (D7 G7) G7)))
 
     (lyrics
         (intro)
diff --git a/songs/tri-yann/pelot-d-hennebont.lisp b/songs/tri-yann/pelot-d-hennebont.lisp
index 08662fe..ac4eafa 100644
--- a/songs/tri-yann/pelot-d-hennebont.lisp
+++ b/songs/tri-yann/pelot-d-hennebont.lisp
@@ -1,14 +1,15 @@
 (song
     (title "Pelot d’Hennebont")
     (from "Tri Yann")
+    (tonality "Em")
 
     (chords
         (intro
             ("Em" %))
 
         (verse
-            ("Em / G" D "Em / G" D)
-            ("D / G" "D / G" "D / G" "D / G")))
+            (("Em" G) D ("Em" G) D)
+            ((D "Em") (D "Em") (D "Em") (D "Em"))))
 
     (lyrics
         (intro)
-- 
cgit v1.2.3