diff options
Diffstat (limited to 'src/main.lisp')
| -rw-r--r-- | src/main.lisp | 13 |
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")) |