diff options
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) |