From 0d97631eb0c8b1459a23e8e003705502754969d1 Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 5 Jan 2024 10:39:24 +0100
Subject: Allow to specify chord multiplier

---
 songs/bob-marley/no-woman-no-cry.lisp | 22 ++++------------------
 1 file changed, 4 insertions(+), 18 deletions(-)

(limited to 'songs/bob-marley')

diff --git a/songs/bob-marley/no-woman-no-cry.lisp b/songs/bob-marley/no-woman-no-cry.lisp
index deaaa80..80bb213 100644
--- a/songs/bob-marley/no-woman-no-cry.lisp
+++ b/songs/bob-marley/no-woman-no-cry.lisp
@@ -3,37 +3,23 @@
     (from "Bob Marley & The Wailers")
     (tonality "C")
 
-    ; (chords
-    ;     (:templates
-    ;       (A ((C G) (("Am" 1.5) (F 0.5 2)) ((C 2) (F 1.5) (C 0.5)) (C G)))
-    ;       (B ((C G) (("Am" 1.5) (F 0.5 2)) (C G) (("Am" 1.5) (F 0.5 2))))
-    ;       (C ((C G) ("Am" F) (C G) ("Am" F))))
-
-    ;     (intro A)
-    ;     (chorus A A)
-    ;     (verse B B)
-    ;     (bridge C C))
-
     (chords
         (intro
             ((C G) (("Am" 1.5) (F 0.5 2)))
             (((C 2) (F 1.5) (C 0.5)) (C G)))
 
         (chorus
-            ((C G) (("Am" 1.5) (F 0.5 2)))
-            (((C 2) (F 1.5) (C 0.5)) (C G))
+            :repeat 2
             ((C G) (("Am" 1.5) (F 0.5 2)))
             (((C 2) (F 1.5) (C 0.5)) (C G)))
 
         (verse
-            ((C G) (("Am" 1.5) (F 0.5 2)))
-            ((C G) (("Am" 1.5) (F 0.5 2)))
-            ((C G) (("Am" 1.5) (F 0.5 2)))
+            :repeat 4
             ((C G) (("Am" 1.5) (F 0.5 2))))
 
         (bridge
-            ((C G) ("Am" F) (C G) ("Am" F))
-            ((C G) ("Am" F) (C G) ("Am" F))))
+            :repeat 4
+            ((C G) ("Am" F))))
 
     (lyrics
         (intro)
-- 
cgit v1.2.3