Fix chord shifting with rhythms

1 files changed, 10 insertions, 3 deletions

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"))