16 lines
391 B
Plaintext
16 lines
391 B
Plaintext
#(define bookStyle
|
|
(if (not (defined? 'bookStyle))
|
|
#f
|
|
bookStyle))
|
|
|
|
#(define songStyle
|
|
(if (not (defined? 'songStyle))
|
|
(if (not (defined? 'defaultSongStyle)) 'default defaultSongStyle)
|
|
songStyle))
|
|
|
|
#(if (not (boolean? bookStyle))
|
|
(set! songStyle bookStyle))
|
|
|
|
#(define (bock-style layout props)
|
|
"Whether we have bockstyle or not"
|
|
(eq? songStyle 'bock)) |