2 Commits

Author SHA1 Message Date
db57e6d5c4 Variable eingefügt 2023-09-16 22:50:44 +02:00
tux
55db0e0e31 Liederbuchvorlage wieder lauffähig gemacht 2023-09-16 18:38:53 +02:00
4 changed files with 7 additions and 15 deletions

View File

@ -121,7 +121,7 @@ includeSong =
\bookOutputName #filename
#}
(ly:parser-parse-string (if (< (list-ref (ly:version) 1) 19) (ly:parser-clone parser) (ly:parser-clone))
(ly:format "\\include \"../../~a/~a/~a.ly\"" songPath filename filename))
(ly:format "\\include \"~a/~a/~a.ly\"" songPath filename filename))
(let ((label (gensym "index")))
(set! additional-page-switch-label-list
(acons label additional-page-numbers additional-page-switch-label-list))
@ -209,7 +209,7 @@ songs =
;(string-join songs "\n")
"Nicht inkludiert:"
opticalline
(string-join (sort-list (lset-difference string=? (files-in-directory (ly:format "../../~a" songPath)) songs) string<?) "\n")
(string-join (sort-list (lset-difference string=? (files-in-directory songPath) songs) string<?) "\n")
opticalline
) "\n" )
)))

View File

@ -9,7 +9,7 @@
(interpret-markup layout props
(let ((filepath (if (string-null? songfilename)
filename
(ly:format "../../~a/~a/~a" songPath songfilename filename))))
(ly:format "~a/~a/~a" songPath songfilename filename))))
(if (file-exists? filepath)
(make-epsfile-markup Y ysize filepath)
(if defaultmarkup

View File

@ -6,7 +6,7 @@
#(define noStandaloneOutput (if (defined? 'noStandaloneOutput) noStandaloneOutput #f))
#(load "json_parser.scm")
#(if (defined? 'LAYOUT) #f (load "json_parser.scm"))
#(use-modules (json parser))
\include "basic_format_and_style_settings.ly"
\include #(if (< (list-ref (ly:version) 1) 25) "legacy-lilypond-compatibility-pre-2.25.ly" "void.ly")

View File

@ -1,3 +1,5 @@
\include "../lilypond-custom-includes/toc_config.ly"
% embed all category images in postscript once
#(define-markup-list-command (embed-category-images layout props)()
(map (lambda (category)
@ -171,17 +173,7 @@
(cdr revlist)))))))))
\paper {
indexTitleMarkup = \markup \column {
\fontsize #5 \sans \bold \fill-line { \null \fromproperty #'index:text \null }
\vspace #.5
\justify {
Da die allermeisten Lieder unter verschiedenen Namen bekannt sind,
wollen wir euch ein Inhaltsverzeichnis an die Hand geben, mit dem ihr hoffentlich auf verschiedene Arten fündig werdet.
Die Liedtitel, die auch die Überschriften sind, findet ihr normal gedruckt.
Alle weiteren Alternativtitel oder Liedanfänge sind zur Unterscheidung kursiv gedruckt.
}
\vspace #1
}
indexTitleMarkup = \tocSubtitleText
categoryTitleMarkup = \markup \column {
\fontsize #5 \sans \bold \fill-line { \null \fromproperty #'index:text \null }
\vspace #1