[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [patch] clean up scheme rehearsal mark format code
From: |
Nicolas Sceaux |
Subject: |
Re: [patch] clean up scheme rehearsal mark format code |
Date: |
Wed, 10 Aug 2005 20:02:30 +0200 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (darwin) |
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.