Dear community.
After upgrading to version 2.24.4. I get, after compiling a certain file,
the error message:
fatal error: Not a markup command: fosterisk
It must have to do with this code, I guess. Can it be updated?
#(let ((foot-item-list (list)))
(set! add-foot-item!
(lambda (dir gauge short text)
(let ((label (gensym "foot")))
(set! foot-item-list
(cons (cons label text)
foot-item-list))
(make-music
'SequentialMusic
'elements
(list
(make-music 'EventChord
'page-marker #t
'page-label label
'elements (list
(make-music 'LabelEvent 'page-label label)
(make-music 'TextScriptEvent 'direction dir
'text (markup #:concat ( short #:super #:fosterisk label gauge)))))
)))))
(set! foot-items (lambda ()
(reverse foot-item-list))))
#(define-markup-command (fosterisk layout props label gauge)(symbol?
markup?)
"markup footer asterisk"
(let* ((gauge-stencil (interpret-markup layout props (markup gauge)))
(x-ext (ly:stencil-extent gauge-stencil X))
(y-ext (ly:stencil-extent gauge-stencil Y)))
(ly:make-stencil
`(delay-stencil-evaluation
,(delay (ly:stencil-expr
(let* ((table (ly:output-def-lookup layout
'label-page-table))
(cur-page (cdr (and (list? table) (assoc label
table))))
(pagecount 0)
(fossi ""))
;;(display "run fosterisk\n")
(map (lambda (fn)
(let ((lab 'foot00)
(pag 0))
(set! lab (car fn))
(set! pag (and (list? table)
(assoc lab table)))
(if (and pag (= (cdr pag)
cur-page)) (set! pagecount (+ pagecount 1)))
(if (eq? label lab) (set!
fossi (smulti pagecount "" "*")))
;;(display "loop fosterisk\n")
)
) (foot-items))
(interpret-markup layout props (markup fossi))
)
)
)) x-ext y-ext)))
#(define-markup-command (fostermark layout props label)(symbol?)
(let* ((table (ly:output-def-lookup layout 'label-page-table))
(cur-page (cdr (and (list? table) (assoc label table))))
(pagecount 0)
(fossi ""))
;;(display "run fostermark\n")
(map (lambda (fn)
(let ((lab 'foot00)
(pag 0))
(set! lab (car fn))
(set! pag (and (list? table) (assoc lab table)))
(if (and pag (= (cdr pag) cur-page)) (set!
pagecount (+ pagecount 1)))
(if (eq? label lab) (set! fossi (smulti pagecount
"" "*")))
;;(display "loop fostermark\n")
)
) (foot-items))
(interpret-markup layout props (markup fossi))
))
% the footnote function
% takes direction (UP/DOWN) and markup
