X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-grob-interfaces.scm;h=edc02a7fb3ea911d9f63e77ad3b80ca3b0c6a542;hb=de316854b2134d8880f99bc67301dcbb6cc41b4c;hp=2949afcfbc3b30bd9742019be0f8bc328bd9648b;hpb=e65a2fb4c6e0e2e75f457531cab49aaf74364015;p=lilypond.git diff --git a/scm/define-grob-interfaces.scm b/scm/define-grob-interfaces.scm index 2949afcfbc..edc02a7fb3 100644 --- a/scm/define-grob-interfaces.scm +++ b/scm/define-grob-interfaces.scm @@ -1,6 +1,6 @@ ;;;; This file is part of LilyPond, the GNU music typesetter. ;;;; -;;;; Copyright (C) 1998--2010 Han-Wen Nienhuys +;;;; Copyright (C) 1998--2011 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen ;;;; ;;;; LilyPond is free software: you can redistribute it and/or modify @@ -17,6 +17,11 @@ ;;;; along with LilyPond. If not, see . +;; The interfaces defined here generally have no code (e.g., +;; dynamic-interface), or have callbacks defined entirely in +;; scheme. Others interfaces are defined in lily/*.cc with the +;; ADD_INTERFACE function. + ;; should include default value? @@ -76,21 +81,42 @@ note)." "A fingering instruction." '()) +(ly:add-interface + 'footnote-interface + "Make a footnote." + '(footnote-text)) + +(ly:add-interface + 'footnote-spanner-interface + "Make a footnote spanner." + '(footnote-text spanner-placement)) + (ly:add-interface 'fret-diagram-interface "A fret diagram" '(align-dir fret-diagram-details size dot-placement-list thickness)) +(ly:add-interface + 'glissando-interface + "A glissando." + '()) + (ly:add-interface 'grace-spacing-interface "Keep track of durations in a run of grace notes." '(columns common-shortest-duration)) +(ly:add-interface + 'inline-accidental-interface + "An inlined accidental (i.e. normal accidentals, cautionary +accidentals)." + '()) + (ly:add-interface 'instrument-specific-markup-interface "Instrument-specific markup (like fret boards or harp pedal diagrams)." - '(fret-diagram-details harp-pedal-details size thickness)) + '(fret-diagram-details graphical harp-pedal-details size thickness)) (ly:add-interface 'key-cancellation-interface @@ -201,7 +227,7 @@ interesting enough to maintain a hara-kiri staff." (ly:add-interface 'tab-note-head-interface "A note head in tablature." - '(details)) + '(details display-cautionary span-start)) (ly:add-interface 'trill-spanner-interface