Tablature: simplify custom fret label callback

[lilypond.git] / scm / tablature.scm

diff --git a/scm/tablature.scm b/scm/tablature.scm
index 1aa766d9d0e28a02236a04ac43d91c1ae1629871..7845f2192761e930b122fb178ee4c5e78ae0290c 100644 (file)
--- a/scm/tablature.scm
+++ b/scm/tablature.scm
@@ -256,15 +256,7 @@
        (staff-space (ly:staff-symbol-staff-space grob)))
     (/ width staff-space)))
 
-;; define custom fret label as markup
-(define-markup-command (customFretLabel
-                                layout props fret-label) (string?)
-  #:category music
-  "Draw a custom tab fret label."
-
-  (interpret-markup layout props
-                    (markup #:vcenter fret-label)))
 
-;; use it for custom fret labels
+;; a callback for custom fret labels
 (define-public ((tab-note-head::print-custom-fret-label fret) grob)
-  (grob-interpret-markup grob (make-customFretLabel-markup fret)))
+  (grob-interpret-markup grob (markup #:vcenter fret)))