16 lines
341 B
Plaintext
16 lines
341 B
Plaintext
|
#(define book-style
|
||
|
|
(if (not (defined? 'book-style))
|
||
|
|
#f
|
||
|
|
book-style))
|
||
|
|
|
||
|
|
#(define song-style
|
||
|
|
(if (not (defined? 'song-style))
|
||
|
|
'bock
|
||
|
|
song-style))
|
||
|
|
|
||
|
|
#(if (not (boolean? book-style))
|
||
|
|
(set! song-style book-style))
|
||
|
|
|
||
|
|
#(define (bock-style layout props)
|
||
|
|
"Whether we have bockstyle or not"
|
||
|
|
(eq? song-style 'bock))
|