extracted different song book styles

This commit is contained in:
tux
2023-07-22 22:07:57 +02:00
parent 01329ba9fe
commit 2ada65e0bc
5 changed files with 70 additions and 57 deletions

View File

@ -1,16 +1,16 @@
#(define book-style
(if (not (defined? 'book-style))
#(define bookStyle
(if (not (defined? 'bookStyle))
#f
book-style))
bookStyle))
#(define song-style
(if (not (defined? 'song-style))
'börnel
song-style))
#(define songStyle
(if (not (defined? 'songStyle))
(if (not (defined? 'defaultSongStyle)) 'börnel defaultSongStyle)
songStyle))
#(if (not (boolean? book-style))
(set! song-style book-style))
#(if (not (boolean? bookStyle))
(set! songStyle bookStyle))
#(define (bock-style layout props)
"Whether we have bockstyle or not"
(eq? song-style 'bock))
(eq? songStyle 'bock))