diff --git a/basic_format_and_style_settings.ly b/basic_format_and_style_settings.ly index 6def934..5910bae 100644 --- a/basic_format_and_style_settings.ly +++ b/basic_format_and_style_settings.ly @@ -1,10 +1,9 @@ \language "deutsch" +\include "default_style.ly" \include "default_author_style.ly" \include "default_songinfo_style.ly" \include "footer_with_songinfo.ly" -\include "styles.ly" -\include #(ly:format "styles/~a.ly" songStyle) \include #(if (defined? 'customStyleOverridesFile) customStyleOverridesFile "void.ly") @@ -95,14 +94,8 @@ schwarzkopf = \override NoteHead.color = #grey #}) -% hübsche Wiederholungszeichen für den Liedtext -repStart = "𝄆" -repStop = "𝄇" - -stanzaFormat = "~a." stanza = #(define-music-function (parser location stanzanumber) (number?) #{ \set stanza = #(ly:format stanzaFormat stanzanumber) #}) -refString = "Ref.:" ref = { \set stanza = \refString } diff --git a/default_author_style.ly b/default_author_style.ly index f320b1e..f106d14 100644 --- a/default_author_style.ly +++ b/default_author_style.ly @@ -3,20 +3,26 @@ #(make-on-the-fly-markup (lambda (layout props m) (let ((name (chain-assoc-get 'author:name props #f)) - (trail_name (chain-assoc-get 'author:trail_name props #f)) - (birth_year (chain-assoc-get 'author:birth_year props #f)) - (death_year (chain-assoc-get 'author:death_year props #f)) - (organization (chain-assoc-get 'author:organization props #f))) + (trail_name (chain-assoc-get 'author:trail_name props #f)) + (birth_year (chain-assoc-get 'author:birth_year props #f)) + (death_year (chain-assoc-get 'author:death_year props #f)) + (organization (chain-assoc-get 'author:organization props #f)) + (string-present (lambda (str) (and str (not (and (string? str) (string-null? str)))))) + (render_informations (lambda (infolist) (string-append (car infolist) (if (null? (cdr infolist)) "" (string-append " (" (string-join (cdr infolist) ", ") ")"))))) + ) (interpret-markup layout props - (string-append - name - (if trail_name (ly:format " (~a)" trail_name) "") - (if (and birth_year death_year) - (ly:format ", (~a‒~a)" birth_year death_year) - (if birth_year - (ly:format ", (*~a)" birth_year) - (if death_year (ly:format ", (†~a)" death_year) ""))) - (if organization (ly:format ", ~a" organization) "") + (if (or (string-present trail_name) (string-present name)) + (render_informations (filter string-present (list + trail_name + name + (if (and (string-present birth_year) (string-present death_year)) + (ly:format "~a‒~a" birth_year death_year) + (if (string-present birth_year) + (ly:format "*~a" birth_year) + (if (string-present death_year) (ly:format "†~a" death_year) ""))) + organization + ))) + "" )))) (make-null-markup) ) diff --git a/styles/default.ly b/default_style.ly similarity index 71% rename from styles/default.ly rename to default_style.ly index 0323d77..ac29e14 100644 --- a/styles/default.ly +++ b/default_style.ly @@ -11,4 +11,9 @@ songTextChordFontSize = \songScoreChordFontSize songTextLineHeigth = 5 songTocColumns = 3 globalSize = 15 -lyricSize = 1.6 \ No newline at end of file +lyricSize = 1.6 +stanzaFormat = "~a." +refString = "Ref.:" +% hübsche Wiederholungszeichen für den Liedtext +repStart = "𝄆" +repStop = "𝄇" diff --git a/styles/bock.ly b/styles/bock.ly deleted file mode 100644 index 19c0700..0000000 --- a/styles/bock.ly +++ /dev/null @@ -1,14 +0,0 @@ -songFormatAndSize = "a6landscape" -songMargin = 8 -songInfoFontSize = -1.5 -songTitleFont = "Britannic T. custom" -songChordFont = "TimesNewRomanPS" -songLyricFont = "Arial" -songChordFontSeries = #'normal -songTextChordAlignment = #'left -songScoreChordFontSize = 3 -songTextChordFontSize = 2 -songTextLineHeigth = 5.5 -songTocColumns = 3 -globalSize = 15 -lyricSize = 1.6 \ No newline at end of file diff --git a/styles/börnel.ly b/styles/börnel.ly deleted file mode 100644 index 545eadc..0000000 --- a/styles/börnel.ly +++ /dev/null @@ -1,14 +0,0 @@ -songFormatAndSize = "b6landscape" -songMargin = 5 -songInfoFontSize = -3.5 -songTitleFont = "Oregano" -songChordFont = "TeX Gyre Heros" -songLyricFont = "Liberation Sans" -songChordFontSeries = #'bold -songTextChordAlignment = #'center -songScoreChordFontSize = 0 -songTextChordFontSize = \songScoreChordFontSize -songTextLineHeigth = 5 -songTocColumns = 3 -globalSize = 15 -lyricSize = 1.6 \ No newline at end of file diff --git a/styles/büdel.ly b/styles/büdel.ly deleted file mode 100644 index b33d194..0000000 --- a/styles/büdel.ly +++ /dev/null @@ -1,14 +0,0 @@ -songFormatAndSize = "a5" -songMargin = 5 -songInfoFontSize = 0 -songTitleFont = "Fontin Bold" -songChordFont = "Fontin" -songLyricFont = "FontinSans" -songChordFontSeries = #'bold -songTextChordAlignment = #'left -songScoreChordFontSize = 2 -songTextChordFontSize = 2 -songTextLineHeigth = 5.3 -songTocColumns = 2 -globalSize = 14 -lyricSize = 1.6 \ No newline at end of file