summary refs log tree commit diff
path: root/doc/modules
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 /doc/modules
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.
Diffstat (limited to 'doc/modules')
-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))))