>From a34ec51095cdc2f5e06e847c85fcd86b95ae7b1e Mon Sep 17 00:00:00 2001
From: Marc Hohl <address@hidden>
Date: Tue, 23 Nov 2010 21:18:25 +0100
Subject: [PATCH] tablature: provide custom fret labels

---
 scm/tablature.scm |   13 +++++++++++++
 1 files changed, 13 insertions(+), 0 deletions(-)

diff --git a/scm/tablature.scm b/scm/tablature.scm
index 419f93c..1aa766d 100644
--- a/scm/tablature.scm
+++ b/scm/tablature.scm
@@ -255,3 +255,16 @@
   (let ((width (ly:stem-tremolo::calc-width grob))
 	(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
+(define-public ((tab-note-head::print-custom-fret-label fret) grob)
+  (grob-interpret-markup grob (make-customFretLabel-markup fret)))
-- 
1.7.0.4