Re: Making markup functions parametric

[Lukas-Fabian Moser]

Hi Urs,

> Thanks a lot. That's exactly the kind of procedure I can store and
> apply:
>
> \version "2.20.0"
>
> #(define-markup-command (dyna layout props func content)(symbol?
> markup?)
>     (let*
>      ((funcs
>        `((box . ,make-box-markup)
>          (circle . ,make-circle-markup))))
>      (interpret-markup layout props
>        (markup
>         ((assq-ref funcs func) content)))))
>
> \markup \dyna #'circle "C:"
>
> \markup \dyna #'box "C:"

You don't even need to hardcode the make-xxx-markup functions:

\version "2.20"

#(define (get-scheme-markup-function func)
   (string->symbol
    (string-append "make-"
                   (symbol->string func)
                   "-markup")))

#(define-markup-command (dynb layout props func content)(symbol? markup?)
     (interpret-markup layout props
                       (primitive-eval
                        (list 'markup
                              (list
(get-scheme-markup-function func)
                               content)))))


\markup \dynb #'circle "C"
\markup \dynb #'box "C"

Best
Lukas