From 8b5a1f5b754d51147236c7a50e573d4b041497ee Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 4 Jan 2024 21:14:27 +0100
Subject: Fix chord shifting with rhythms

---
 public/main.js |  2 +-
 src/main.lisp  | 13 ++++++++++---
 2 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/public/main.js b/public/main.js
index 3b9e6fc..db9a9f9 100644
--- a/public/main.js
+++ b/public/main.js
@@ -56,7 +56,7 @@ if (node !== null) {
     const shift = getShift(tonality, e.target.value)
     tonality = e.target.value
     tonalities = tonality === 'F' || tonality.indexOf('♭') > -1 ? tonalities_b : tonalities_s
-    document.querySelectorAll('.g-Chords__Chord').forEach(chord => {
+    document.querySelectorAll('.g-Chords__Name').forEach(chord => {
       if (chord.innerText !== '%') {
         chord.innerText = applyShift(tonalities, chord.innerText, shift)
       }
diff --git a/src/main.lisp b/src/main.lisp
index d7dec7f..d2090e5 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -76,15 +76,22 @@
 
 ; Chords
 
+(defun chord-name (x)
+  (h "span" '(("class" "g-Chords__Name")) (list (string x))))
+
 (defun rhythm (x)
-  (h "img" (list '("class" "g-Chords__Rhythm") (list "src" (format nil "/rhythms/~S.png" x))) nil))
+  (h "img"
+    (list
+      '("class" "g-Chords__Rhythm")
+      (list "src" (format nil "/rhythms/~S.png" x)))
+    nil))
 
 (defun chord-div (x)
   (h "span" '(("class" "g-Chords__Chord"))
     (if
       (listp x)
-      (cons (string (car x)) (mapcar #'rhythm (cdr x)))
-      (list (string x)))))
+      (cons (chord-name (car x)) (mapcar #'rhythm (cdr x)))
+      (list (chord-name x)))))
 
 (defun chord-cell (x)
   (h "td" '(("class" "g-Chords__Cell"))
-- 
cgit v1.2.3