]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/define-grobs.scm
DOC: yet more updates to the CG build information
[lilypond.git] / scm / define-grobs.scm
index 26adbfd471b851b3cf65d475d3a89c4b60f2e4b1..e5658a8384d4c2745f709ea49917d440196048c8 100644 (file)
 
     (BalloonTextItem
      . (
+       (annotation-balloon . #t)
+       (annotation-line . #t)
        (stencil . ,ly:balloon-interface::print)
        (text . ,(grob::calc-property-by-copy 'text))
        (X-offset . ,(grob::calc-property-by-copy 'X-offset))
                                text-interface
                                text-script-interface))))))
 
+    (FootnoteItem
+     . (
+       (annotation-balloon . #f)
+       (annotation-line . #t)
+       (break-visibility . ,inherit-y-parent-visibility)
+       (footnote-text . ,(grob::calc-property-by-copy 'footnote-text))
+       (stencil . ,ly:balloon-interface::print)
+       (text . ,(grob::calc-property-by-copy 'text))
+       (Y-extent . #f)
+       (X-offset . ,(grob::calc-property-by-copy 'X-offset))
+       (Y-offset . ,(grob::calc-property-by-copy 'Y-offset))
+       (meta . ((class . Item)
+                (interfaces . (balloon-interface
+                               footnote-interface
+                               font-interface
+                               text-interface))))))
+
+    (FootnoteSpanner
+     . (
+       (annotation-balloon . #f)
+       (annotation-line . #t)
+       (footnote-text . ,(grob::calc-property-by-copy 'footnote-text))
+       (spanner-placement . -1.0)
+       (stencil . ,ly:balloon-interface::print-spanner)
+       (text . ,(grob::calc-property-by-copy 'text))
+       (Y-extent . #f)
+       (X-offset . ,(grob::calc-property-by-copy 'X-offset))
+       (Y-offset . ,(grob::calc-property-by-copy 'Y-offset))
+       (meta . ((class . Spanner)
+                (interfaces . (balloon-interface
+                                footnote-interface
+                               footnote-spanner-interface
+                               font-interface
+                               text-interface))))))
+
     (FretBoard
      . (
        (after-line-breaking . ,ly:chord-name::after-line-breaking)
        (skyline-vertical-padding . 0.6)
        ;;                    (stencil . ,ly:paper-column::print)
 
+       (keep-inside-line . #t)
        (line-break-permission . allow)
        (non-musical . #t)
        (page-break-permission . allow)
        (axes . (,X))
        (before-line-breaking . ,ly:paper-column::before-line-breaking)
        (horizontal-skylines . ,ly:separation-item::calc-skylines)
+       (keep-inside-line . #t)
        ;; (stencil . ,ly:paper-column::print)
        (X-extent . ,ly:axis-group-interface::width)