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

---
 src/main.lisp | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'src/main.lisp')

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