From: Marc Hohl <marc@hohlart.de>
Date: Wed, 24 Nov 2010 07:37:07 +0000 (+0100)
Subject: Tablature: simplify custom fret label callback
X-Git-Tag: release/2.13.41-1~1^2~18
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5131d1a8ad3155605d32e414c99d596b85be2063;p=lilypond.git

Tablature: simplify custom fret label callback
---

diff --git a/scm/tablature.scm b/scm/tablature.scm
index 1aa766d9d0..7845f21927 100644
--- 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)))