Web build: it works with lower-case split filenames now.

[lilypond.git] / scm / output-lib.scm

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 68c338dfb8cc3e28fe6e8e3e6db72b5a9a985659..b9f5e421e9103609a7f6fc0cfcf1d3824b3324ea 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -140,18 +140,21 @@
         (letter (markup #:center-align #:vcenter pitch-string))
         (filled-circle (markup #:draw-circle radius 0 #t)))
 
-    (grob-interpret-markup
-     grob
-     (if (>= log 2)
-        (make-combine-markup
-         filled-circle
-         (make-with-color-markup white letter))
-        (make-combine-markup
+    (ly:stencil-translate-axis
+     (grob-interpret-markup
+      grob
+      (if (>= log 2)
          (make-combine-markup
           filled-circle
-          (make-with-color-markup white (make-draw-circle-markup
-                                         (- radius stem-thickness) 0 #t)))
-         letter)))))
+          (make-with-color-markup white letter))
+         (make-combine-markup
+          (make-combine-markup
+           filled-circle
+           (make-with-color-markup white (make-draw-circle-markup
+                                          (- radius stem-thickness) 0 #t)))
+          letter)))
+     radius X)))
+
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; break visibility
@@ -202,21 +205,21 @@
 (define-public (bar-line::calc-glyph-name grob)
   (let* ((glyph (ly:grob-property grob 'glyph))
         (dir (ly:item-break-dir grob))
-        (result (assoc glyph  bar-glyph-alist))
+        (result (assoc-get glyph bar-glyph-alist))
         (glyph-name (if (= dir CENTER)
                         glyph
                         (if (and result
-                                 (string? (index-cell (cdr result) dir)))
-                            (index-cell (cdr result) dir)
+                                 (string? (index-cell result dir)))
+                            (index-cell result dir)
                             #f))))
     glyph-name))
 
 (define-public (bar-line::calc-break-visibility grob)
   (let* ((glyph (ly:grob-property grob 'glyph))
-        (result (assoc glyph bar-glyph-alist)))
+        (result (assoc-get glyph bar-glyph-alist)))
 
     (if result
-       (vector (string? (cadr result)) #t (string? (cddr result)))
+       (vector (string? (car result)) #t (string? (cdr result)))
        all-invisible)))
 
 (define-public (shift-right-at-line-begin g)