Re: [patch] clean up scheme rehearsal mark format code

[Nicolas Sceaux]

Erlend Aasland <address@hidden> writes:

> +(defmacro-public def-format-mark-command (type cmd)
> +  (let* ((pfx "format-mark-")
> +         (sfx (symbol->string type))
> +         (ord-cmd (string->symbol (string-append pfx sfx)))
> +         (box-cmd (string->symbol (string-append pfx (string-append "box-" 
> sfx))))
> +         (circle-cmd (string->symbol (string-append pfx (string-append 
> "circle-" sfx)))))
> +  `(begin
> +    (define-public (,ord-cmd mark context) (make-bold-markup (,@cmd)))
> +    (define-public (,box-cmd mark context) (make-bold-markup 
> (make-box-markup (,@cmd))))
> +    (define-public (,circle-cmd mark context) (make-bold-markup 
> (make-circle-markup (,@cmd))))
> +)))

It would be good if `def-format-mark-command' had a detailed
documentation string, especially as it creates symbols to name new
functions.