summaryrefslogtreecommitdiff
path: root/doc/modules
diff options
context:
space:
mode:
authorLudovic Courtès2008-01-28 19:02:25 +0100
committerLudovic Courtès2008-01-28 19:02:25 +0100
commit560cb82e9c6984d338b5367cd15109746a6dd844 (patch)
tree62790e82a4d8370944651f39b9ff589fdfb54733 /doc/modules
parentab9575332feb5dee3f1ca408214feec3a18c7ea8 (diff)
downloadskribilo-560cb82e9c6984d338b5367cd15109746a6dd844.tar.gz
skribilo-560cb82e9c6984d338b5367cd15109746a6dd844.tar.lz
skribilo-560cb82e9c6984d338b5367cd15109746a6dd844.zip
doc: Improve rendering of `prgm' and `disp' in Lout.
* doc/modules/skribilo/documentation/manual.scm (prgm): Specialize Lout output. (disp): Likewise.
Diffstat (limited to 'doc/modules')
-rw-r--r--doc/modules/skribilo/documentation/manual.scm34
1 files changed, 18 insertions, 16 deletions
diff --git a/doc/modules/skribilo/documentation/manual.scm b/doc/modules/skribilo/documentation/manual.scm
index 9fddcaf..90a0c68 100644
--- a/doc/modules/skribilo/documentation/manual.scm
+++ b/doc/modules/skribilo/documentation/manual.scm
@@ -207,34 +207,36 @@
(source :language language :file file))
(else
(source :language language (the-body opts)))))
- (pr (cond
- (line
- (prog :line line sc))
- (else
- (pre sc))))
+ (pr (prog :line line sc))
(f (frame :margin 5 :border 0 :width *prgm-width*
(color :margin 5 :width 100. :bg c pr))))
(resolve (lambda (n e env)
;; Same trick as for `ctrtable': don't center frames (which
;; are actually `@Tbl') in Lout.
(if (engine-format? "lout" e)
- (! "\n@LP\n@DP\n$1\n@LP\n" f)
+ (! "\n@LP\n@ID @F { $1 }\n@LP\n" pr)
f)))))
;*---------------------------------------------------------------------*/
;* disp ... */
;*---------------------------------------------------------------------*/
(define-markup (disp :rest opts :key (verb #f) (line #f) (bg *disp-color*))
- (if (engine-format? "latex")
- (if verb
- (pre (the-body opts))
- (the-body opts))
- (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)))))))
+ (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))))))))
;*---------------------------------------------------------------------*/
;* keyword ... */