aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/main.lisp13
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"))