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.