Re: Use markup in \replace when lilypond is expecting a string?

[Jean Abou Samra]

Le 16/06/2022 à 02:36, Valentin Petzel a écrit :
> Of course it would
> theoretically be possible to define a custom replace command that allows for
> this.


Let me throw in a possible solution:

\version "2.22.2" %% Also tested on 2.23.9

#(use-modules (ice-9 regex))

#(define cache (make-hash-table))

#(define (interpret-string-allowing-markup-replacements layout props str)
   (let* ((props-norepl `(((replacement-alist . ())) . ,props))
          (repl (chain-assoc-get 'replacement-alist props '())))
     ;; This needs to be special-cased since we'd otherwise get an
     ;; empty regex, which matches an empty substring anywhere, unlike
     ;; a true empty alternative matching nothing.  It also provides
     ;; the base case for the recursion with \concat.
     (if (null? repl)
         (ly:text-interface::interpret-string layout props-norepl str)
         (let* ((pat (or (hashq-ref cache repl)
                         (let ((p (make-regexp (string-join (map 
regexp-quote (map car repl))
"|"))))
                           (hashq-set! cache repl p)
                           p))))
           (let loop ((pos 0)
                      (acc '()))
             (let ((match (regexp-exec pat str pos)))
               (if match
                   (let* ((start (match:start match))
                          (end (match:end match))
                          (before (substring str pos start))
                          (replacement (assoc-get (match:substring match)
                                                  repl)))
                     (loop end (cons* replacement before acc)))
                   (let* ((last-part (substring str pos))
                          (final-acc (reverse! (cons last-part acc))))
(interpret-markup-allowing-markup-replacements
                      layout
                      props-norepl
                      (make-concat-markup final-acc))))))))))

#(define (interpret-markup-allowing-markup-replacements layout props mkup)
   (if (string? mkup)
       (interpret-string-allowing-markup-replacements layout props mkup)
       (apply (car mkup)
              layout
              props
              (cdr mkup))))

#(set! interpret-markup interpret-markup-allowing-markup-replacements)


\markup \column {
  "100"
  \bold \italic "abc"
  \replace #`(("100" . ,#{ \markup \with-color "red" "100" #}))
    { \box "A 100 dpi" }
}


Cheers,
Jean