From 87fc9dbd0217658c85fa120c8e2aa0afcf3b492a Mon Sep 17 00:00:00 2001 From: Marc Hohl Date: Wed, 24 Nov 2010 08:37:07 +0100 Subject: [PATCH] Tablature: simplify custom fret label callback --- scm/tablature.scm | 12 ++---------- 1 files changed, 2 insertions(+), 10 deletions(-) diff --git a/scm/tablature.scm b/scm/tablature.scm index 1aa766d..7845f21 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))) -- 1.7.0.4