- (let ((pitch (ratio->pitch ratio))
- (fret (ratio->fret ratio)))
- (make-sequential-music
- (list
- #{
- \override TabNoteHead #'stencil = #(tab-note-head::print-custom-fret-label fret)
- #}
- (make-harmonic
- (calc-harmonic-pitch pitch music))
- #{
- \revert TabNoteHead #'stencil
- #}))))
+ #{
+ \set harmonicDots = ##t
+ \temporary \override TabNoteHead.stencil = #(tab-note-head::print-custom-fret-label (ratio->fret ratio))
+ \temporary \override NoteHead.Y-extent = #(ly:make-unpure-pure-container ly:grob::stencil-height
+ (lambda (grob start end)
+ (ly:grob::stencil-height grob)))
+ \temporary \override NoteHead.stencil = #(lambda (grob) (ly:grob-set-property! grob 'style 'harmonic-mixed)
+ (ly:note-head::print grob))
+ $(make-harmonic
+ (calc-harmonic-pitch (ratio->pitch ratio) music))
+ \unset harmonicDots
+ \revert TabNoteHead.stencil
+ \revert NoteHead.Y-extent
+ \revert NoteHead.stencil
+ #})
+
+hide =
+#(define-music-function (parser location item) (symbol-list-or-music?)
+ (_i "Set @var{item}'s @samp{transparent} property to @code{#t},
+making it invisible while still retaining its dimensions.
+
+If @var{item} is a symbol list of form @code{GrobName} or
+@code{Context.GrobName}, the result is an override for the grob name
+specified by it. If @var{item} is a music expression, the result is
+the same music expression with an appropriate tweak applied to it.")
+ (if (ly:music? item)
+ #{ \tweak transparent ##t $item #}
+ #{ \override $item #'transparent = ##t #}))
+
+inStaffSegno =
+#(define-music-function (parser location) ()
+ (_i "Put the segno variant 'varsegno' at this position into the staff,
+compatible with the repeat command.")
+ (make-music 'ApplyContext
+ 'procedure
+ (lambda (ctx)
+ (let ((score-ctx (ly:context-find ctx 'Score)))
+ (if (ly:context? score-ctx)
+ (let ((old-rc (ly:context-property score-ctx 'repeatCommands '())))
+ (if (eq? (memq 'segno-display old-rc) #f)
+ (ly:context-set-property! score-ctx 'repeatCommands (cons 'segno-display old-rc)))))))))