| [frogs] [PATCH] Add docstring support to def-grace-function |
[ Thread Index |
Date Index
| More lilynet.net/frogs Archives
]
- To: frogs <frogs@xxxxxxxxxxx>
- Subject: [frogs] [PATCH] Add docstring support to def-grace-function
- From: "Patrick McCarty" <pnorcks@xxxxxxxxx>
- Date: Sat, 10 Jan 2009 18:44:35 -0800
- Cc: lilypond-devel <lilypond-devel@xxxxxxx>
- Dkim-signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=domainkey-signature:received:received:message-id:date:from:to :subject:cc:mime-version:content-type; bh=KuJfNmPjrisQwbbGWimzMglpG7NIyk1G68M+UAuH9WE=; b=KnQ3KmSHA3AgjzcaH3dgcUeERAMn48ZYBCJqrSoGmv3a9JSOCRPTURW+ombthGeCqg lxoVqiO2FS4bSLQJb9OH2ctODqyobDrRKsJGnhpnzGZGiJ0f0V0YXZhpcY3UVefxE/vp W+pTbQ8b1tejjfBmAY2PRrARM99iJg7nFnmsw=
- Domainkey-signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=message-id:date:from:to:subject:cc:mime-version:content-type; b=dtc9ZNlsnHCh7CrSsmkEbq4u6KVu1+e08WU2Ehia63RDC/Vmz2vccJzXYJNKb9O1Vk 1tvrg9/hrovpbiZG8Yk3ComcDbWTYE2C5L4v7TJKV6oDCqm3MI2vsfqcNZwBx5e+59we 7FPIK/kNtPHx7j3wU/bF5GAHZNttDVw8d78ak=
Hello,
This patch reworks def-grace-function so that it inserts the
docstring, if defined, into the template for define-music-function.
If the docstring is not defined, the unquote-splicing strips the empty
list from the template. All further processing is left to
define-music-function.
Will this work? I've tested it with the acciaccatura function.
Thanks,
Patrick
From d483a4150aebc3f9bb268001f5e549aa26a4911f Mon Sep 17 00:00:00 2001
From: Patrick McCarty <pnorcks@xxxxxxxxx>
Date: Sat, 10 Jan 2009 18:09:12 -0800
Subject: [PATCH] Docs: Add docstring support to def-grace-function
Signed-off-by: Patrick McCarty <pnorcks@xxxxxxxxx>
---
scm/music-functions.scm | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index f9599af..00facb5 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -720,8 +720,9 @@ SkipEvent. Useful for extracting parts from crowded scores"
-(defmacro-public def-grace-function (start stop)
+(defmacro-public def-grace-function (start stop . docstring)
`(define-music-function (parser location music) (ly:music?)
+ ,@docstring
(make-music 'GraceMusic
'origin location
'element (make-music 'SequentialMusic
--
1.6.1