sandbox for new author system

This commit is contained in:
tux 2024-05-17 12:33:18 +02:00
parent 71c5197fbb
commit a105ffc96a
3 changed files with 108 additions and 1 deletions

View File

@ -0,0 +1,103 @@
\version "2.25.8"
\include "../../lilypond-custom-includes/base_config.ly"
#(set! paper-alist (cons '("testformat" . (cons (* 176 mm) (* 15 mm))) paper-alist))
\paper {
#(set-paper-size "testformat")
}
\bookpart {
\header {
authors = #'(
("kumpel" text melody))
}
\markup { \print-songinfo }
}
\bookpart {
\header {
year_text = "1500"
authors = #'(
("kumpel" text))
}
\markup { \print-songinfo }
}
\bookpart {
\header {
authors = #'(
("kumpel" melody))
}
\markup { \print-songinfo }
}
\bookpart {
\header {
authors = #'(
("kumpel" melody)
("dude" text composition melody))
}
\markup { \print-songinfo }
}
\bookpart {
\header {
authors = #'(
("kumpel" (verse 1))
("dude" melody (voice 1) (voice 2)))
}
\markup { \print-songinfo }
}
\bookpart {
\header {
authors = #'(
("kumpel" text (verse 2))
("dude" (verse 2) (verse 3)))
}
\markup { \print-songinfo }
}
\bookpart {
\header {
authors = #'(
("kumpel" text (voice 2) (voice 3))
("dude" (voice 2) (voice 3))
("nocheiner" (voice 4)))
}
\markup { \print-songinfo }
}
\bookpart {
\header {
year_composition = "2001"
year_melody = "1901"
authors = #'(
("kumpel" text composition)
("dude" composition))
}
\markup { \print-songinfo }
}
\bookpart {
\header {
authors = #'(
("kumpel" interlude)
("dude" bridge)
("" melody))
}
\markup { \print-songinfo }
}
\bookpart {
\header {
year_melody = "1800"
year_translation = "2010"
authors = #'(
("kumpel" translation)
("dude" text (meloverse 1))
("" melody))
}
\markup { \print-songinfo }
}

@ -1 +1 @@
Subproject commit 7f7cac99f4ff0a48192042d80e020969078d7c37
Subproject commit 5884ab9d2cfc67d5396fd7800ae6da99960fa3fc

View File

@ -10,5 +10,9 @@
"trail_name": "dudekumpel",
"death_year": "2050",
"organization": "Bund der krassen Kumpels"
},
"nocheiner": {
"name": "Jemand anderes",
"death_year": "2050"
}
}