new engraver for spacing in chordlyrics

private_includes/base/basic_format_and_style_settings.ily

@@ -127,23 +127,23 @@ romanStanza =
   #{ \override StanzaNumber.style = #'roman #})
 
 override-stanza =
-#(define-music-function (parser location stanzanumbers) (number-list?)
+#(define-music-function (parser location stanzanumber) (number?)
 #{
-  \once \override StanzaNumber.details.custom-stanzanumber-override = #stanzanumbers
+  \once \override StanzaNumber.forced-spacing = #stanzanumber % misuse property "forced-spacing" to override the stanzanumber
 #}
 )
 
 #(define (stanza . stanzanumbers)
 #{
-  \once \override StanzaNumber.details.custom-realstanza = ##t % set this to signal that there is a real stanza and no repeat signs
+  \once \override StanzaNumber.layer = 23 % set this to signal that there is a real stanza and no repeat signs
   \applyContext
   #(lambda (context)
-    (let* ((stanzanumbers-override (ly:assoc-get 'custom-stanzanumber-override (ly:assoc-get 'details (ly:context-grob-definition context 'StanzaNumber) '()) #f))
+    (let* ((stanzanumber-override (ly:assoc-get 'forced-spacing (ly:context-grob-definition context 'StanzaNumber) #f))
            (stanza-style (ly:assoc-get 'style (ly:context-grob-definition context 'StanzaNumber)))
            (stanza-format (lambda (stanzanumber) (format #f (if (eq? stanza-style 'roman) romanStanzaFormat stanzaFormat) stanzanumber))))
         (ly:context-set-property! context 'stanza
           (string-join (map stanza-format
-                            (if stanzanumbers-override stanzanumbers-override stanzanumbers))
+                            (if stanzanumber-override (list stanzanumber-override) stanzanumbers))
                         ", "))))
 #}
 )
@@ -151,7 +151,7 @@ override-stanza =
 ref =
 #(define-music-function (stanzanumbers lyrics) ((number-list? (list)) ly:music?)
 #{ \lyricmode {
-    \once \override StanzaNumber.details.custom-realstanza = ##t % set this to signal that there is a real stanza and no repeat signs
+    \once \override StanzaNumber.layer = 23 % set this to signal that there is a real stanza and no repeat signs
     \set stanza = #(make-on-the-fly-markup (lambda (layout props m) ((ly:output-def-lookup layout 'refMarkupFormatter) layout props stanzanumbers)) (make-null-markup))
     #lyrics
   }
@@ -159,13 +159,13 @@ ref =
 )
 
 % prints a repStart Sign as stanza if the tag 'repeats is kept.
-% if there was a stanza already set by the stanza function with StanzaNumber.details.custom-realstanza = ##t we set that also as stanza.
+% if there was a stanza already set by the stanza function with StanzaNumber.layer = 23 we set that also as stanza.
 repStartWithTag = \lyricmode {
   \tag #'repeats {
     \applyContext
     #(lambda (context)
       (let ((lastStanza (ly:context-property context 'stanza))
-            (printLastStanza (ly:assoc-get 'custom-realstanza (ly:assoc-get 'details (ly:context-grob-definition context 'StanzaNumber) '()) #f))
+            (printLastStanza (= (ly:assoc-get 'layer (ly:context-grob-definition context 'StanzaNumber) 0) 23))
             (stanzaFontSeries (ly:assoc-get 'font-series (ly:context-grob-definition context 'StanzaNumber) 'normal)))
       (ly:context-set-property! context 'stanza
         (make-concat-markup

private_includes/book/toc_include.ily

@@ -61,9 +61,20 @@
        ;; We insert index items sorted from the beginning on and do
        ;; not sort them later - this saves pretty much computing time
        (insert-alphabetical-sorted! (list label markup-symbol textoptions
+        ;; this crazy hack is necessary because lilypond depends on guile 1.8 atm
+        ;; and so the cool unicode conversion functions cannot be used
           (ly:string-substitute " " ""
-          (ly:string-substitute "." ""
-          (transliterate-de sorttext))))
+          (ly:string-substitute "…" ""
+          (ly:string-substitute "Č" "C"
+          (ly:string-substitute "Đ" "D"
+          (ly:string-substitute "Š" "S"
+          (ly:string-substitute "Т" "T"
+          (ly:string-substitute "Ä" "Ae"
+          (ly:string-substitute "ä" "ae"
+          (ly:string-substitute "Ö" "O"
+          (ly:string-substitute "ö" "oe"
+          (ly:string-substitute "Ü" "U"
+          (ly:string-substitute "ü" "ue" sorttext)))))))))))))
         index-item-list))
        (make-music 'EventChord
          'page-marker #t

private_includes/book/transliteration.ily

@@ -1,65 +0,0 @@
-#(define (transliterate-de str)
-   "Gesamte Transliteration: entfernt Diakritika, ersetzt Sonderzeichen, ergibt ASCII-String."
-
-   (define (remove-diacritics s)
-     (string-join
-       (map (lambda (ch)
-             (let ((code (char->integer ch)))
-               ;; Unicode-Bereich 0300–036F = Combining Diacritical Marks
-               (if (and (>= code #x0300) (<= code #x036F))
-                   ""
-                   (string ch))))
-           (string->list (string-normalize-nfkd s)))
-       ""))
-
-   (define transliteration-table
-     '(
-      ;; Deutsche Umlaute & ß
-      ("ä" . "ae") ("ö" . "oe") ("ü" . "ue")
-      ("Ä" . "Ae") ("Ö" . "Oe") ("Ü" . "Ue")
-      ("ß" . "ss")
-
-      ;; Balkan & mitteleuropäische Sonderzeichen
-      ("Č" . "C") ("č" . "c")
-      ("Š" . "S") ("š" . "s")
-      ("Ž" . "Z") ("ž" . "z")
-      ("Đ" . "D") ("đ" . "d")
-      ("Ł" . "L") ("ł" . "l")
-      ("Ø" . "O") ("ø" . "o")
-      ("Æ" . "Ae") ("æ" . "ae")
-      ("Œ" . "Oe") ("œ" . "oe")
-
-      ;; Kyrillische Buchstaben mit lateinischen Pendants
-      ("А" . "A") ("а" . "a")
-      ("Б" . "B") ("б" . "b")
-      ("В" . "V") ("в" . "v")
-      ("Г" . "G") ("г" . "g")
-      ("Д" . "D") ("д" . "d")
-      ("Е" . "E") ("е" . "e")
-      ("З" . "Z") ("з" . "z")
-      ("И" . "I") ("и" . "i")
-      ("К" . "K") ("к" . "k")
-      ("Л" . "L") ("л" . "l")
-      ("М" . "M") ("м" . "m")
-      ("Н" . "N") ("н" . "n")
-      ("О" . "O") ("о" . "o")
-      ("П" . "P") ("п" . "p")
-      ("Р" . "R") ("р" . "r")
-      ("С" . "S") ("с" . "s")
-      ("Т" . "T") ("т" . "t")
-      ("У" . "U") ("у" . "u")
-      ("Ф" . "F") ("ф" . "f")
-      ("Х" . "Kh") ("х" . "kh")
-      ("Ц" . "Ts") ("ц" . "ts")
-      ("Ч" . "Ch") ("ч" . "ch")
-      ("Ш" . "Sh") ("ш" . "sh")
-      ("Щ" . "Sch") ("щ" . "sch")
-      ("Я" . "Ja") ("я" . "ja")
-      ("Ю" . "Ju") ("ю" . "ju")
-      ("Й" . "J") ("й" . "j")
-    ))
-
-  (remove-diacritics
-    (fold (lambda (pair acc)
-          (ly:string-substitute (car pair) (cdr pair) acc))
-        str transliteration-table)))

public_includes/book_top.ily

@@ -1,4 +1,3 @@
 \include "../private_includes/book/book_include.ily"
-\include "../private_includes/book/transliteration.ily"
 \include "../private_includes/book/toc_include.ily"
 \include "../private_includes/book/appendix.ily"