Erlend Aasland <[EMAIL PROTECTED]> 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. _______________________________________________ lilypond-devel mailing list [email protected] http://lists.gnu.org/mailman/listinfo/lilypond-devel
