diff options
| author | Ludovic Court`es | 2007-06-11 13:28:26 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-06-11 13:28:26 +0000 |
| commit | d576c3bce7a09fa15948baf5e69adce4fa59707a (patch) | |
| tree | ad56d7229fc6ebeaf925cf31cc8d198daa972c75 | |
| parent | 044c3a2a038b2295ee42d688dabc29628ff77d7b (diff) | |
| download | skribilo-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
| -rw-r--r-- | doc/modules/skribilo/documentation/api.scm | 14 | ||||
| -rw-r--r-- | src/guile/skribilo/package/base.scm | 4 |
2 files changed, 15 insertions, 3 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) diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm index a32f3f4..29eb2df 100644 --- a/src/guile/skribilo/package/base.scm +++ b/src/guile/skribilo/package/base.scm @@ -693,7 +693,7 @@ (define-markup (table :rest opts :key - (ident #f) (class #f) + (ident #f) (class #f) (&location #f) (border #f) (width #f) (frame 'none) (rules 'none) (cellstyle 'collapse) (cellpadding #f) (cellspacing #f)) @@ -734,7 +734,7 @@ (markup 'table) (ident (or ident (symbol->string (gensym "table")))) (class class) - (loc &invocation-location) + (loc (or &location &invocation-location)) (required-options '(:width :frame :rules)) (options `((:frame ,frame) (:rules ,rules) |