aboutsummaryrefslogtreecommitdiff
path: root/doc/modules
diff options
context:
space:
mode:
authorLudovic Court`es2007-06-11 13:28:26 +0000
committerLudovic Court`es2007-06-11 13:28:26 +0000
commitd576c3bce7a09fa15948baf5e69adce4fa59707a (patch)
treead56d7229fc6ebeaf925cf31cc8d198daa972c75 /doc/modules
parent044c3a2a038b2295ee42d688dabc29628ff77d7b (diff)
downloadskribilo-d576c3bce7a09fa15948baf5e69adce4fa59707a.tar.gz
skribilo-d576c3bce7a09fa15948baf5e69adce4fa59707a.tar.lz
skribilo-d576c3bce7a09fa15948baf5e69adce4fa59707a.zip
Added a `:&location' argument to `table'.
* doc/modules/skribilo/documentation/api.scm (%undocumented-options): New. (doc-check-arguments): Use it to allow `:&location' to not be documented. * src/guile/skribilo/package/base.scm (table): Added a `&location' argument. git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-69
Diffstat (limited to 'doc/modules')
-rw-r--r--doc/modules/skribilo/documentation/api.scm14
1 files changed, 13 insertions, 1 deletions
diff --git a/doc/modules/skribilo/documentation/api.scm b/doc/modules/skribilo/documentation/api.scm
index 84108c9..052b5fa 100644
--- a/doc/modules/skribilo/documentation/api.scm
+++ b/doc/modules/skribilo/documentation/api.scm
@@ -269,12 +269,24 @@
;*---------------------------------------------------------------------*/
;* doc-check-arguments ... */
;*---------------------------------------------------------------------*/
+(define %undocumented-options
+ ;; Special markup options that don't need to be documented.
+ (list (symbol->keyword '&location)
+ (string->symbol ":&location")
+ '&location))
+
(define (doc-check-arguments id args dargs)
(if (not args)
(skribe-error 'doc-check-arguments id args))
(if (not dargs)
(skribe-error 'doc-check-arguments id dargs))
- (let* ((s1 (map (lambda (x) (if (pair? x) (car x) x)) args))
+ (let* ((s1 (reverse! (fold (lambda (x res)
+ (let ((x (if (pair? x) (car x) x)))
+ (if (memq x %undocumented-options)
+ res
+ (cons x res))))
+ '()
+ args)))
(s2 (map (lambda (x)
(let ((i (car x)))
(if (keyword? i)