This patch is meant to be a TEST ONLY of footnotes at the bottom of

[lilypond.git] / scm / define-grobs.scm

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 7b2f1c1e87b852c681110a0ecb940c91fb5face3..ac75852215a03d5cde2ab83815e16b2ec172c2d7 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -863,6 +863,37 @@
                                text-interface
                                text-script-interface))))))
 
+    (FootnoteItem
+     . (
+       (break-visibility . ,inherit-y-parent-visibility)
+       (footnote-text . ,(grob::calc-property-by-copy 'footnote-text))
+       (stencil . #f)
+       (text . ,(grob::calc-property-by-copy 'text))
+       (Y-extent . 0.0)
+       (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
+     . (
+       (footnote-text . ,(grob::calc-property-by-copy 'footnote-text))
+       (spanner-placement . -1.0)
+       (stencil . #f)
+       (text . ,(grob::calc-property-by-copy 'text))
+       (Y-extent . 0.0)
+       (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)