(if (not (interval-sane? extent))
(set! annotation (interpret-markup
layout text-props
- (make-simple-markup (format "~a: NaN/inf" name))))
+ (make-simple-markup (simple-format #f "~a: NaN/inf" name))))
(let ((text-stencil (interpret-markup
layout text-props
(markup #:whiteout #:simple name)))
((interval-empty? extent)
(format "empty"))
(is-length
- (format "~$" (interval-length extent)))
+ (ly:format "~$" (interval-length extent)))
(else
- (format "(~$,~$)"
+ (ly:format "(~$,~$)"
(car extent) (cdr extent)))))))
(arrows (ly:stencil-translate-axis
(dimension-arrows (cons 0 (interval-length extent)))
(factor (exact->inexact (/ size bbox-size)))
(scaled-bbox
(map (lambda (x) (* factor x)) bbox))
- (clip-rect-string (format
+ (clip-rect-string (ly:format
"~a ~a ~a ~a rectclip"
(list-ref bbox 0)
(list-ref bbox 1)
(list
'embedded-ps
(string-append
- (format
+ (ly:format
"
gsave
currentpoint translate
(if (pair? paper-systems)
(begin
(let*
- ((outname (format "~a-~a.signature" basename count)) )
+ ((outname (simple-format #f "~a-~a.signature" basename count)) )
(ly:message "Writing ~a" outname)
(write-system-signature outname (car paper-systems))
(define (raw-string expr)
"escape quotes and slashes for python consumption"
- (regexp-substitute/global #f "[@\n]" (format "~a" expr) 'pre " " 'post))
+ (regexp-substitute/global #f "[@\n]" (simple-format #f "~a" expr) 'pre " " 'post))
(define (raw-pair expr)
- (format "~a ~a"
+ (simple-format #f "~a ~a"
(car expr) (cdr expr)))
(define (found-grob expr)
rest)
"")))
- (format output
+ (simple-format output
"~a@~a@~a@~a@~a\n"
(cdr (assq 'name (ly:grob-property grob 'meta) ))
(raw-string location)
(if (ly:grob? system-grob)
(begin
- (display (format "# Output signature\n# Generated by LilyPond ~a\n" (lilypond-version))
+ (display (simple-format #f "# Output signature\n# Generated by LilyPond ~a\n" (lilypond-version))
output)
(interpret-for-signature found-grob (lambda (x) #f)
(ly:stencil-expr