bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit ad9a465ab1f5f9a35055da4c66e510006c27eb7d
parent 141d818675a37ac2a38eb1092a6e08a14c0ecc31
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sun, 13 Dec 2015 07:40:26 -0700

Latex: 'inset style renders through a `SInsetFlow` environment

Diffstat:
M
scribble-doc/scribblings/scribble/config.scrbl
 | 
15
+++++++++++++++
M
scribble-lib/scribble/latex-render.rkt
 | 
2
+-
M
scribble-lib/scribble/scribble.tex
 | 
3
++-

3 files changed, 18 insertions(+), 2 deletions(-)
diff --git a/scribble-doc/scribblings/scribble/config.scrbl b/scribble-doc/scribblings/scribble/config.scrbl
@@ -623,6 +623,21 @@ style:
        in place of @ltxd[2]{Ssection}, @ltxd[1]{Ssectionstar}, @|etc|
        for a part with the @racket['grouper] style property.}
 
+ @item{@ltxe{SInsetFlow} environment --- for a @racket[nested-flow]
+       with the @racket['inset] style name.}
+
+ @item{@ltxe{SCodeFlow} environment --- for a @racket[nested-flow]
+       with the @racket['code-inset] style name.}
+
+ @item{@ltxe{SVInsetFlow} environment --- for a @racket[nested-flow]
+       with the @racket['vertical-inset] style name.}
+
+ @item{@ltxd[1]{SCodeBox}, @ltxd[1]{SVInsetBox} --- for a
+       @racket[nested-flow] with the @racket['code-inset] or
+       @racket['vertical-inset] style name, respectively, and as the
+       content of a table cell. The content is installed into a TeX
+       box using @tt{\setbox1}.}
+
  ]
 
 @; ------------------------------------------------------------
diff --git a/scribble-lib/scribble/latex-render.rkt b/scribble-lib/scribble/latex-render.rkt
@@ -849,7 +849,7 @@
                                [else (error "unexpected style for box mode")])))
                        (let ([s (style-name (nested-flow-style t))])
                          (or (and (string? s) s)
-                             (and (eq? s 'inset) "quote")
+                             (and (eq? s 'inset) "SInsetFlow")
                              (and (eq? s 'code-inset) "SCodeFlow")
                              (and (eq? s 'vertical-inset) "SVInsetFlow")))
                        "Subflow")]
diff --git a/scribble-lib/scribble/scribble.tex b/scribble-lib/scribble/scribble.tex
@@ -260,7 +260,8 @@
 \listparindent=0pt\itemindent=0pt\labelwidth=0pt\leftmargin=0pt\rightmargin=0pt%
 \itemsep=0pt}\item}{\end{list}}
 
-% The 'inset nested-flow style uses the `quote' environment
+% For the 'inset nested-flow style:
+\newenvironment{SInsetFlow}{\begin{quote}}{\end{quote}}
 
 % Indent a 'code-inset nested flow:
 \newcommand{\SCodePreSkip}{\vskip\abovedisplayskip}