\version "2.18.0" #(add-new-clef "SPST" "markup.spst" 0 0 0) #(define-markup-command (spstClef layout props) () (interpret-markup layout props (markup #:vcenter #:bold #:override (cons 'font-family 'sans) #:fontsize 1 #:override (cons 'baseline-skip 2) #:left-align #:center-column ("SP" "ST")))) #(define-public (clef::print-spst-if-set grob) (let ((glyph (ly:grob-property grob 'glyph))) (if (string=? glyph "markup.spst") (grob-interpret-markup grob (make-spstClef-markup)) (ly:clef::print grob)))) \score { << \new Staff { \clef "bass" s1 } \new Staff \with { \override StaffSymbol.line-count = #1 \override Clef.stencil = #clef::print-spst-if-set } { \clef "SPST" s1 } >> }