diff options
| author | Ludovic Courtès | 2008-01-29 19:00:15 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-01-29 19:00:15 +0100 |
| commit | 3fdd9dff099ca46625c2d922f4f43a33e9b22335 (patch) | |
| tree | 7d6308909cc2bbaf224abd109f360c0e41afd762 | |
| parent | 7bc9bb1b6eff82ff9166298ada9b9db51fdab874 (diff) | |
| download | skribilo-3fdd9dff099ca46625c2d922f4f43a33e9b22335.tar.gz skribilo-3fdd9dff099ca46625c2d922f4f43a33e9b22335.tar.lz skribilo-3fdd9dff099ca46625c2d922f4f43a33e9b22335.zip | |
doc: Tiny improvements of the `manual' module.
* doc/modules/skribilo/documentation/manual.scm (disp): Use `resolve'
and test that engine, rather than raw `(engine-format? "xxx")'.
(compiler-options): Issue a warning if an option is not documented.
| -rw-r--r-- | doc/modules/skribilo/documentation/manual.scm | 42 |
1 files changed, 25 insertions, 17 deletions
diff --git a/doc/modules/skribilo/documentation/manual.scm b/doc/modules/skribilo/documentation/manual.scm index 90a0c68..8e4f121 100644 --- a/doc/modules/skribilo/documentation/manual.scm +++ b/doc/modules/skribilo/documentation/manual.scm @@ -221,22 +221,23 @@ ;* disp ... */ ;*---------------------------------------------------------------------*/ (define-markup (disp :rest opts :key (verb #f) (line #f) (bg *disp-color*)) - (cond ((engine-format? "latex") - (if verb - (pre (the-body opts)) - (the-body opts))) - ((engine-format? "lout") - (! "\n@ID { $1 } # disp\n" - (if verb - (pre (the-body opts)) - (the-body opts)))) - (else - (center - (frame :margin 5 :border 0 :width *prgm-width* - (color :margin 5 :width 100. :bg bg - (if verb - (pre (the-body opts)) - (the-body opts)))))))) + (resolve (lambda (n e env) + (cond ((engine-format? "latex" e) + (if verb + (pre (the-body opts)) + (the-body opts))) + ((engine-format? "lout" e) + (! "\n@ID { $1 } # disp\n" + (if verb + (pre (the-body opts)) + (the-body opts)))) + (else + (center + (frame :margin 5 :border 0 :width *prgm-width* + (color :margin 5 :width 100. :bg bg + (if verb + (pre (the-body opts)) + (the-body opts)))))))))) ;*---------------------------------------------------------------------*/ ;* keyword ... */ @@ -452,5 +453,12 @@ (option-required-arg? option)) (cadr doc) (car doc)) - "")))) + (let ((msg (string-append "missing description " + "for compiler option `" + (or (and short-name + (string short-name)) + (car long-names)) + "'"))) + (skribe-warning 1 msg) + ""))))) options)))) |