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