aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2008-01-29 19:00:15 +0100
committerLudovic Courtès2008-01-29 19:00:15 +0100
commit3fdd9dff099ca46625c2d922f4f43a33e9b22335 (patch)
tree7d6308909cc2bbaf224abd109f360c0e41afd762
parent7bc9bb1b6eff82ff9166298ada9b9db51fdab874 (diff)
downloadskribilo-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.scm42
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))))