diff options
| author | Ludovic Court`es | 2007-06-11 15:57:17 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-06-11 15:57:17 +0000 |
| commit | 6d4594339188ed323627baf00aac09db6430d941 (patch) | |
| tree | 387c802598161140157c8f8847bbeeab4189f3f5 /doc | |
| parent | 20455d41e79be6faa36c22d1ddb7fbddf77ae4d3 (diff) | |
| parent | d576c3bce7a09fa15948baf5e69adce4fa59707a (diff) | |
| download | skribilo-6d4594339188ed323627baf00aac09db6430d941.tar.gz skribilo-6d4594339188ed323627baf00aac09db6430d941.tar.lz skribilo-6d4594339188ed323627baf00aac09db6430d941.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: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-110
Diffstat (limited to 'doc')
| -rw-r--r-- | doc/modules/skribilo/documentation/api.scm | 14 |
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) |