tablature: provide custom fret labels

diff --git a/scm/tablature.scm b/scm/tablature.scm
index 419f93c2cf15012ba6e3deedfc915b4c5ee48dc1..1aa766d9d0e28a02236a04ac43d91c1ae1629871 100644 (file)
--- 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)))