aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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))))