;; (if (markup? fig-markup)
;; (set!
;; fig-markup (markup #:translate (cons 1.0 0)
- ;; #:hcenter fig-markup)))
+ ;; #:center-align fig-markup)))
(if alt-markup
(set! fig-markup
free-strings)))
(if fit-string
(set-fret note fit-string)
- (ly:warning "No string for pitch ~a (given frets ~a)" (note-pitch note)
+ (ly:warning "No string for pitch ~a (given frets ~a)"
+ (note-pitch note)
specified-frets))
)))