lilypond-common-includes/styles.ly

16 lines
391 B
Plaintext
Raw Normal View History

2023-07-22 22:07:57 +02:00
#(define bookStyle
(if (not (defined? 'bookStyle))
2023-07-22 22:07:57 +02:00
#f
2023-07-22 22:07:57 +02:00
bookStyle))
2023-07-22 22:07:57 +02:00
2023-07-22 22:07:57 +02:00
#(define songStyle
(if (not (defined? 'songStyle))
(if (not (defined? 'defaultSongStyle)) 'default defaultSongStyle)
2023-07-22 22:07:57 +02:00
songStyle))
2023-07-22 22:07:57 +02:00
2023-07-22 22:07:57 +02:00
#(if (not (boolean? bookStyle))
(set! songStyle bookStyle))
2023-07-22 22:07:57 +02:00
#(define (bock-style layout props)
"Whether we have bockstyle or not"
2023-07-22 22:07:57 +02:00
(eq? songStyle 'bock))