Compare commits
2 Commits
7a0dd88067
...
tocSubtitl
Author | SHA1 | Date | |
---|---|---|---|
db57e6d5c4 | |||
55db0e0e31 |
@ -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" )
|
||||
)))
|
||||
|
@ -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
|
||||
|
@ -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")
|
||||
|
@ -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
|
||||
|
Reference in New Issue
Block a user