From 74d8d18801e3b70ca66ad7120fca076cd211c1d1 Mon Sep 17 00:00:00 2001
From: Bastien Dumont <bastien.dumont@posteo.net>
Date: Wed, 9 Feb 2022 22:56:25 +0100
Subject: [PATCH] Add composite-paragraphs

---
 composite-paragraphs/LICENSE.txt              |  21 ++
 composite-paragraphs/Makefile                 |  12 +
 composite-paragraphs/README.md                |  45 +++
 composite-paragraphs/composite-paragraphs.lua |  75 +++++
 composite-paragraphs/output.docx              | Bin 0 -> 10024 bytes
 composite-paragraphs/sample.md                |  36 ++
 composite-paragraphs/tests/expected.context   | 308 +++++++++++++++++
 composite-paragraphs/tests/expected.docx      | 314 ++++++++++++++++++
 composite-paragraphs/tests/expected.latex     | 308 +++++++++++++++++
 9 files changed, 1119 insertions(+)
 create mode 100644 composite-paragraphs/LICENSE.txt
 create mode 100644 composite-paragraphs/Makefile
 create mode 100644 composite-paragraphs/README.md
 create mode 100644 composite-paragraphs/composite-paragraphs.lua
 create mode 100644 composite-paragraphs/output.docx
 create mode 100644 composite-paragraphs/sample.md
 create mode 100644 composite-paragraphs/tests/expected.context
 create mode 100644 composite-paragraphs/tests/expected.docx
 create mode 100644 composite-paragraphs/tests/expected.latex

diff --git a/composite-paragraphs/LICENSE.txt b/composite-paragraphs/LICENSE.txt
new file mode 100644
index 0000000..43106c1
--- /dev/null
+++ b/composite-paragraphs/LICENSE.txt
@@ -0,0 +1,21 @@
+MIT License
+
+Copyright © 2021-2022 Bastien Dumont
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
diff --git a/composite-paragraphs/Makefile b/composite-paragraphs/Makefile
new file mode 100644
index 0000000..bd59556
--- /dev/null
+++ b/composite-paragraphs/Makefile
@@ -0,0 +1,12 @@
+.PHONY: test
+
+PANDOC_COMMAND = pandoc -L composite-paragraphs.lua -t native sample.md
+
+test:
+	TESTED_FORMAT=context $(PANDOC_COMMAND) -o tests/output.context \
+		&& diff tests/output.context tests/expected.context
+	TESTED_FORMAT=openxml $(PANDOC_COMMAND) -o tests/output.docx  \
+		&& diff tests/output.docx tests/expected.docx
+	TESTED_FORMAT=latex $(PANDOC_COMMAND) -o tests/output.latex \
+		&& diff tests/output.latex tests/expected.latex \
+	&& rm tests/output.*
diff --git a/composite-paragraphs/README.md b/composite-paragraphs/README.md
new file mode 100644
index 0000000..bea77af
--- /dev/null
+++ b/composite-paragraphs/README.md
@@ -0,0 +1,45 @@
+# Composite paragraphs from Pandoc
+
+## Definition
+
+Composite paragraphs are paragraphs composed of different blocks:
+normal text, quotations, tables,... This filter unindents all text blocks
+but the first in a composite paragraph.
+
+This concept makes sense only if you want to indent all paragraphs
+by default, including paragraphs beginning after a quotation block
+or a table, for instance. In that case, unindenting a text block means
+that it is not to be seen as a new paragraph, but as a the
+continuation of the previous text block that has been interrupted by
+another block. If you want to prevent the indentation of all
+paragraphs following certain types of blocks, please consider using
+the [first-line-indent] filter instead.
+
+[first-line-indent]: https://github.com/pandoc/lua-filters/tree/master/first-line-indent
+
+## How to use this filter
+
+To create a composite paragraph in your MD file, simply wrap its
+components in a Div with class `.composite-paragraph`. Some
+examples are given in `sample.md`.
+
+## What it does
+
+For the moment, it only prevents the indentation of text blocks
+other than the first one. More features can be requested.
+
+The Div itself is not removed from the AST, so that you can
+pass it through other filters.
+
+## Output formats
+
+The following output formats are supported:
+
+  * context
+  * docx
+  * latex
+
+Other formats can be added. PRs are welcome. If you prefer to
+submit an issue instead, please specify what code should be
+used in the targeted format in order to achieve what this filter
+does.
diff --git a/composite-paragraphs/composite-paragraphs.lua b/composite-paragraphs/composite-paragraphs.lua
new file mode 100644
index 0000000..9993700
--- /dev/null
+++ b/composite-paragraphs/composite-paragraphs.lua
@@ -0,0 +1,75 @@
+--[[
+composite-paragraphs – unindent all blocks but the first in composite paragraphs
+
+Copyright © 2021-2022 Bastien Dumont
+
+Permission to use, copy, modify, and/or distribute this software for any
+purpose with or without fee is hereby granted, provided that the above
+copyright notice and this permission notice appear in all copies.
+
+THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+]]
+
+local is_after_first_block
+local RAW_ATTRIBUTE
+
+if FORMAT == 'native' then
+  RAW_ATTRIBUTE = pandoc.system.environment().TESTED_FORMAT
+elseif FORMAT == 'docx' then
+  RAW_ATTRIBUTE = 'openxml'
+elseif FORMAT == 'context' or FORMAT == 'latex' then
+  RAW_ATTRIBUTE = FORMAT
+else
+  error(FORMAT ..
+        ' output not supported by composite-paragraphs.lua\n')
+end
+
+local function make_noindent_code()
+  if RAW_ATTRIBUTE == 'context' then
+    return '\\noindentation{}'
+  elseif RAW_ATTRIBUTE == 'openxml' then
+    return '<w:pPr>' ..
+      '<w:pStyle w:val="BodyText"/>' ..
+      '<w:ind w:hanging="0"/>' ..
+      '<w:rPr></w:rPr></w:pPr>'
+  elseif RAW_ATTRIBUTE == 'latex' then
+    return '\\noindent{}'
+  end
+end
+
+local noindent_rawinline =
+  pandoc.RawInline(RAW_ATTRIBUTE, make_noindent_code())
+
+local function turn_to_nonindented_textblock(para)
+  para.c:insert(1, noindent_rawinline)
+end
+
+local function unindent_paragraphs_after_first_block(blocks)
+  for i = 1, #blocks do
+    block = blocks[i]
+    if block.t == 'Para' and is_after_first_block then
+      turn_to_nonindented_textblock(block)
+    elseif block.t == 'Div' then
+      unindent_paragraphs_after_first_block(block.content)
+    end
+    is_after_first_block = true
+  end
+end
+
+local function turn_to_composite_paragraph(div)
+  unindent_paragraphs_after_first_block(div.content)
+end
+
+function Div(div)
+  if div.classes:includes('composite-paragraph') then
+    is_after_first_block = false
+    turn_to_composite_paragraph(div)
+    return div
+  end
+end
diff --git a/composite-paragraphs/output.docx b/composite-paragraphs/output.docx
new file mode 100644
index 0000000000000000000000000000000000000000..4e20fd88c5e60bb6623a649c587889e57a6aeb56
GIT binary patch
literal 10024
zcmZ{K1yEeu5-slT?o4nE?(Po3-QC^Y3BiNA1a}C*3GM`UcL?tAN#1=gH~jyn>YS;W
zs@2tJ?cV$J>TY={P%tzg5GW`ho-zsLyoa$BTVNm{a!4Q`R3IQAO(9zwCu18YU1fJW
zV@GW|H*2eUl>wVT2BatSElY4&kK!*>WTA9@tcp{JcEkK-8zR@S+oxRofnTTs>Yy>n
zm@hE+OnR)UXN~K?2@_Z-(*UR#{-0Qt3dQI94#?X~Bk!!7?T|<;Scr{rg>O3CV{ykx
z$Y%U=ByCzT#Km;&-fb08_^rwUT(vX;^%#0n14m5dVk5uw?77QTYN`j+?o}U`7AOMJ
zsT0w}jaQWKB(g)9E{Pfe561M*4M|8f`_Q=CT_Xw`(Q!Yi0?jD7+hAn8yiC1&U8{T`
zg(b<!o^0gI7PwVWn5d~`V)Fq`E0R$Dw@#lQi3nW`s9GW9T4!%26cAgW@`8~^WkJlJ
zv%O{MuP4UgEO+v&P!3Tle9vOO&VsKeuYB#0I5t3(w^f8tmlnlyQywSud`DOQA_mg8
zTsq;KTn3`yeU_-1>Nvfq-X{cYDDBbBRkq5gwJe}IA^2IJbn@V<XAniq@GecZh@pMd
z>4btSo!iA~nlG^YU+dH8nt!_cx-OF-KtQms-?|RQR*v*^zwYI6GP0nIaH5qc?yF~L
zFoMPAY{iPMP>G;w;iiDxJB1CwW*%VT>|!`=C+yvei}>w3httM`&yMztW+|++6bJwf
zOb_^vY13N}Ns)J;wh|V(aCGP@nt~GyVfmUp1`yZEsVVF~vgl0Y6tkN9gm=O{dLtWJ
zdmrP0L#68*aLyNG1*~;Yv$|rmci~n=YA^7%`ona?B@35o&D_H0bDwC~&|zUd9uAL|
zbbGGr&C4oQJgMU)+ZKIs)Exq+EKn#Ino4|L;q}0%AqxVS5MX-9Md4^?I7*nPlHL18
z@iOVky4j^ivi;46fs&uQ_A3_|a6mxFuY9=LIvCL#*%~@qzXt8EXgyXPvRPz6dQ2=I
zwcomwM-w~(l0nMmSHO~q$TT-MMp=iIlB}_PihkB<&zF)I1r>)|G@FQ|&mHcwb8$&Z
zps$<}6^cYlsI5KP@Ja<<m{b|8Fqyx3SRCj(vhbNlPo%~TWCa;(%-J*f95sRIP9PaB
z8sxY;ajtgUAJ)%jp6D7wC0Egdgf+VN_~dj?%qBQ*6~y?^(e(8L`AQU61CfG_z@8eC
zAT3EBe*U?B<c^8DPy<#DKs0eHpma0esSr!P*Q6zPxjvW0gR8P7<-|Wjc(DTMLHNU`
zy_MM6(sL*<9duj|xXKGLy>HS_BMd3zq_o=g66L3aum@=^O%qVs6EHkOHt4}kNMs+#
zxJ@~-bay@~h4%fds1U;0O12-JTTQEj(n(++;@0Q4U`+GvynWcM1d`ICgw2RR0RuDU
zw#8=@rV!~MS?>Y1o^xfJm%|(7so1o9zq)oNlpAb$tby((71&{A;h?2i5ki3+FqJ6C
z8F)GBAyvkIZWNw-;NHI0<jKsgXR{zwb_N$PXZIB$NwDR7ou9TXN1#^tVADq37YX?!
z9map?eAyq&1;^C&8Uj~6sWG;z;(p4O^YXfIFl&J)_p6+wOTcs;QJu}?I?MzQI5v6c
z9nCZmN3E0t;!)Jv{km_0;dfTo=!%Z7{fR(9T8BySy_f9R76qwx&zP2LO^Q!={^-(Z
zw1v#V;}ExX`{bocN&26Mlf)h2STlrDE#2_tGI`vu`P{Fmb%}@fMeECmtEHoFVww(}
z3eqbQl-%12Jv*4_%+Q=~8HTf-Erwr!{*FcG@-7pw*R!)03<wDCzp?nA4f^kh{JmN0
ze=N&(6QOmSsS@w5Ov+|NVlR%=7&U4T`b|!KRLk~fcDAMes?NC?%%;Wq;&2}rThU19
zp=Z12WgG2BGUT75&~PF{y;iWaTBg^c&bLlP`E9+$=aPnoQHNjbJ+H%wN~p&DaEzIt
zdD&E4SDxh^#dN9FC;D@*fn_fUtudo*^PU&!I+-czC3WW?W_uqym++i}>3;g-TL7QP
zV|GaHYmfme4R>kjaewZbGUw+*#`t7MH_-l3SU*j{jtf;w!=jt(!&p1E>nFyc67pyk
z<w1*%0eeDxCF%0)Dpr^zg`fDN&EmdjNl^v!%U&sj-^mL<P?WYS3YU>=6v;sNT;0rj
zf&9&0(0mlB^($*$uNVH`?3viwI@#Dd89V;k(7)-Ei4s5nA%+vF6#VKMK^Mi?J#2%Z
zcL@alfe0a3-hjJ}M*I2O&GR>(3me|0_vrR^=`>gvx|tFIfqmXwT6)?$xTilta~M@v
zNRge9JS$a&uRbyFD^m>-RZcQpF=}>5KFj!@869IUzCdDW`TXr?>Bz0L)axqeKmY-u
z{MSz#XKMpv2Xh<KUmmt5cE)rOA%*A$+v(=i&n$$Q&;x8((|DQ?{b*+Z{J7cW57)5u
z(|hJZiuBUAyIBL6ao979k!#t;lF5l=3@Q3hDZ^jBC4l?$g)VD?G^RNx4~pV_uA!;|
zS1iK!H#Iy!BhJY9obB;pT6$rrL@@xzQw98hDslG9V9HE`q8*w69;tv7w6>hb57CKX
zFBTB)rE3oVQuGrU#pLFZh6L2x6Jft}8XTKJxfv#(+wys{J(ZImoxPeijs@^w2v0cG
zs3tV*tm({-Y=m>$NuaKGq_`rZvU#n~ALtS$&p0wVjLq)8UP>EJ@aZLJxlgQ#dN-O@
z>3LKUMR@gh?GJPjT@$CZ`_V{v_2=#n>@Z#vYf8&ujI;uXGBd6GTLF4^AT<TEU}RJA
z-zWIqy=EP!{;-!ti`&4xx9*##wwm5r2gNrZ&+Zqkp5JV+`#Ao*Xec0{JvksC#Q#$7
z=;UtopU61Y(sW%c#_-{57nC~1*WI{{n|4at{86f2G-YJb=q-xU@L60iP<}F9*B59R
zNwmhOq@*@!*BB-Zes$#`5I*eoDT|M1)-8Zcc&?ol()UsZ^q$ovw!M|Ly*&A}a3_m!
zg-<v5@_TSjr^drNdNZqQ0)%R-j@fB8WEY<ukT+maZv%KR!f3HO4Zdcbwt*D!zK-qa
zrjG|in}1$>9RWP&^X0WxQKPAJx}P3y2yx&}v%N0?f7{(UUq~ks=UiJbE>iRREtcFE
z?$~^~3Q6iIMJ*kJtdQOdbSUef890z{tUOzW=jJD&{YEHU`HENY4#Kox#2KMbW-2a^
zgg6qF3@*2PGndd!vpaTm^qN82ikP>WfO@PXOVn7`(q_2*g`npaTWaQMIZ1WQQ_ncU
zIKfUOt04Z}Z~XQ;SU|YYWO_oxq!5vjOtM5Dm5vf-DeO@T6?#)thS_(#@a__vxv?D`
z@tW?Uj>Y!MC@fv9uj2>XlLKhozr%R!p*rC0?K-cX5I}W-O<<Oct`b8&&k4L}Lg6c{
zO8G%e_LZ~qvhp>>6t^1Ew*N%d))CPKfglG0vx0_lG1(C!bYqAXSooGK@e<AWZu2Ux
zg4v$ai**g&MQ7&cyK){fRR)7-FJ)K;uG1$6HM(=cZ2~vQNPHp(+;B)v47kFsRtzIY
zEWmdie{hy`qUMem!3Z7!XcibLVZr;@yPOKkpj6`hL{5qukCh(NZ7O%oJd8O*x^lw3
zGH+697>dK7D+3y_#N_Kh4HIjVMH~gpnFbp3Wxuv)gS_f{<gPW?)4U>OA5mV-SPvBh
zoEVsIgfg&^>lf2}E)l~fQg~zqwE<{E`$}lHVrjW<&gu~xH6JCGb&}%l;~6!-Pv-7{
z;I^dv)H|2O_|`G`X`~!A3S+ty-);_wEm@uSE0*?X(ZvS4J6%FpeKIuq<R|aRefGu(
znuRczW<kn}>lAmv9@Os$Veh`@>mtXu0RUoU9v5LJ3?=w^b$7Pm{P>{+S}?Zr7=;bZ
z_M2>`Rx01hW8(nkbgFKocWb%2DM^@5=ic)3J-8pFzvb9$;1@2#*JuR=XXzfClEX^&
z-M8nXTEpd|NJv3iKY#)AeM7KVOr*dHl$Aiwxy=96klKo|`^A-rJ=e+?k&myLvg&Js
zS4$d_{*D<3{?byC4Mzz2zO~yA8mTZAtKpt?OD0AtJYQc(kwjcjd=W^~2qr!mYLw18
zcoBLWrOORzh2Y$7W|2fo$;8||Ry2H;!o9s;|6$tt=kARtUe+**(2t?1P;h#nqInDD
z<FNs@Z>1%J6OwKH6N;p}Bn(kxN6D1Mi=Sp30Q%l2vbgbf9)KLdu7S@%$Kvdk(p~eP
zgJ7VGOi>6Vx^OWUKaLQ@+C>Y|i^sSVot1_)y`U7_f}3QY!`>mF+TL0sjZO!}&@GK`
zou@ZrTD#V{C9Z6duA&$o7{cIk@Tyomdx%|o+3&@)>YBI>Se9&kQoY^?85>=~zef0p
z=oy>f^$?YKal<KEmMH{VyQ>2UXAb2FPjfd9gf2qcn{RAh9OT8PQ}3VrGfTrpAEN3!
zW6cR}?v8S%%=C^+Zovjv`-WcLYh29Uj$iftCaUn1&3M)qT3Tt!>w`<mo%v2#_ebR;
ziHrmoH3=^VA0qWogBaiMV<r>OgMqz|N^EQj!D?g8JTl5ZREr8Wp^gmzc@4Rb?_DQY
zNk1H|^Aumh0}#mcbu^<w$G0oZ$!AP}l((DCbM{Vqx>ahwY#j2XP4$aCa{R<WseEP*
zlO74XiqXQo@EM-8nsm@qvP?4=7(p;P*I421ig(U%W0<AoABPg0X%j$dam(bSv4S}W
zfpJEq`UI8gAxVK9`cz=9FtYC==XSzfWo;EHZ(%j0U>n$oT=LRIWxZm<q|9>|4IdyY
zr1v?~9%;iTP#61o<FT~)^N>yf?m?Z3)r2i}scOJx-~~Pkto#;B4Y>-Zk>tFfinG!7
z*w-hd7NTL<3<s5g>gox@L>Sky>=BL|@^c!sRl@M3PhVK<#gF5Es5be7-Lsa#Q*+5m
ze4#bG0)wWt>h7Y@!v&;e`>{d`_=xnt5vNbqm&d)=z;Wzx7D1hwxryB3E%j+@(Z%{K
zTjG3Y+0Lqph^f8GgO;fu=^TMcXKKD~*|UoqM#1Ye&r;gVayK$2d7X*UdvzC`NMe4j
z3Oe*y3DKK8G`|J}O8#6T%vH6v9ySLT)jfK1@C6_o5?eh{$_gQ=K?Oi3-Vrc*+4P;b
z4eXTE+!zskFW!}|S!XKWMx~5<se9W6slM6A6G--Hh5+6QrCXL1Q>>nEzt1){K2RDb
z4q<#11ZGBB2vRqxzLU>zZxgnY&R^((%dWnPSps)Fk5|v;6zdW`@LVL612r9Qs~{41
zT3{6H9pq=*6^ftr#m4HmYg6X!p0XE=_1W?FE}5AOx~_0;==`|Ajc|=5ygauFRT)7T
z?f?#s@%_2&wHwX!bYy5|Dv)eeGs6Jm=)NiQKERSYFkpcNko+Df!_Tty(*4nu=#p9&
zV6i#GNE(=EBP!p=!E=WVdv=Jv@S}p&>^lqt9vozQZ(Q@(XlH>5T0w?L_dR(b*|$5L
zxKx-)RJQHR47a)uMgcJm`}j8PB&&3JpJ*(>y|~k5^=8dskb3B+>Y*j$>VbJv-~p&D
z56h(FbH<B{yK(UOG`!P}%iciH*=l1h5;GRP5iehPNksY!Ts7LHa#iKZ2z?dzLdj99
ziM*W65WxWL^ZAI4RJMuC$IyF^bIe6n$)+O8Eg#T=th43P)qU9yvF=ryjP+k&W5v7;
z6t*j6W4QR9y(>|6s5Vf?R{4O=q())m_IjdITI7AL`oXN>=B#Qw!$%zl#RM;@r2*_J
zTW8;^5j^NPJS+-dVE7&h|4tge0il{>ye5rOp#Mr5|4M5!;yPceDsUmX;M=l7t|<Vp
zOT{bj1|EJi!EoV?epVyThk`mQ?P-}}OtGXV-*&5_1@9)}G`Ki$-N@rYq|awK8iyb2
z-F&&W=nZC-tB-)@Kye4-I+U<2CzwMOB_~_$BUq85<mwT|DP<`MjKQox16YN_cOmYS
z(Z(hz55I$N&gf+yma%${=P_quLfycE5e8>tqZM_QH2P!U{4fyK)sb(m#qrPH)C!~?
zOBkx9D11SS$4zQ$qWw@MC#8vIF=9mf<+jfwa2gRQE<)^)fIb8gt6i?05A*w#+@Qfg
zR_71FK-0s%JCsTQg)$t4;(S9rg^3J1ICpT%$Y(1m4z~Vg)#s)q=X}j%FHb|E(s5O2
z7Tv#DB(woVoqx^y>|X`{|HQtbt@SUh|63bmOms$c6CpvYsY0(PP4Og%q+TmtLpLB2
z^}ZME{e+Erb2dAvwwFV`MaFdD%f5N`2x-WoX%O0m{-8}tbqMb=x~gIS^i<OR{mw~x
zkjU@qQ|Z#Fdcg-cMhJ59w9bGXe27EGaxoD6i$ohHVrTzxwVmNkiuTkUA^|RX42T(q
zxtq~B*wp>!fPkJHqB?Y9u7i}_olbB%oCX7uN{lZMrcl@qYP;~op*48qjJ}e?3`uQu
zwjbth3KD~KnAOENTh(ptOafz->~nYBD6JTD+MmxUA|x}P-xPtG!Kr@WzebbTKRmpu
zOL+%dJ4bp$TL<G`3Zx)zNVb~+NyL}@oY$TJM1ficGrNLckOZn{w5F(h`j*&}=y-J#
zAR}3D68kOXtksd*utf*oDf!V4aWIvfvL>BOFDP-)DtW6_y9m)}`bQU|KF>Fg!;ZXw
z*d8X-6g#OJA*ZNGBA0CU{@iY1d&AZpET#5>m`I*g5Za5!ObdQG4hIjALK{FFvtk7H
zew#NNP=5BfKSZEEhPnW~4p?RPNPxiI<`0;U2sRq;>|F>0Qlq_BO}$yv3}3*Xyxe_o
zMP(A9`=fy-e<(62&j~0^Nnw$$`{!M4UZ?jgE_GKo>Vy<)8SjRR()W|OboI8q+s^aw
zvY5@Myr_}BXu_~ouli!(8d*8TsCtE&9V7Qu;e|-nuX^)vb^P&->;yKF6*YS0^2aNe
zNUyQ=KQ8s{?0!+1q4=B1Z#UGrOW{)PUmUcFkv4#!N+{E5J>%8b8;o(me8+62LWtNu
zO`Qyn9+{xDJ?~kcAuwW}e%Q8Wp@+2_wA@@!X)d?@NH<iUa#pkl+G9n8PGM)R;=&P1
zZYbeAKBP>19Bb}%WZcWzFw7RMV7ED~iAY!b-OFcmjWlp7`(u}x8bZv_&7-c;G5T_H
z=HZy1kHH7D$M0epJ=@TxLLzg8@yPEjL`bbcM%#dMPv!B;?JM`c##exQV?D@>-?rMv
z_M8RO=8zmw1?>_`k$vIdO_!-^Jz}vII<_?m=?=+STN%J1XC5Gkir~EiU|!OJbEpQM
zu?wPb(@7@U&qfX`1H^+>GZeslnaE0V5R*ReD)ux?^4_FJQ$*`=;>z1jY{~gc6&;Uu
znwncq1+t5+&mC=inCxQlNnt!ezICr)Z)Hy-XwJ*3vdn|S_YoNdEb})c@T@BjS7E)p
zI|KiFm*cpTM~A(x#E;kOR|)!mD`M#E=wxgCdr?L^VY(QQz{Yi<n;XLkge9kRdTK)t
zTJzIb^=gP)Xzy<dp?v)M^h5gUo~XIMLwx2IB}J@H0?GY8&^O=zU{^j`bGo3}3-*~O
zmf}HNly100A>s%`KmY5G>h}naSj|1$)J~(CP1)L@!XL!S<pwKyu)bVwZp~V<J}0M-
zpPcS7ew#WeIRX9Kah^n&I_%e~!2N6a0{zwT-?d05Gh=IG`rmiPU#=gk%h)cmVzr&B
zB7JSFv7&Yk;1oHUJDw?oM`;xLSSKuHMWH~nPu2#1Y~SIhzg*P~bJWmXRn8B4H2IWj
zh2Ma%r;8;rfMTo^9pA7R!2&6kpSk<ABQ@FPwarelhQt_SzEqzc2@jh+m&Y3uSmEsX
z{@ZwUg_VyTwoMq42$Z<fFq_^iOt3hsRhp**&Uxf}fod<d9GU<@1a-X!I06Yu<m$BO
z-c)=6JWZky<O7XH0O}DjgQSQ?n&Ubs37<jd6!ga`Z#nZH*f58L?E8GYo8Da=#AMo1
z2WR^eQ24O0Nd3WH6ZJR;V<6W%#w~it3PLksLRW0>cHmyJOTuWdFr`iBblU5*EzC@C
zlKcZZv-#{K!(o7V<U9^({1>}prl|8RijVBoJ=)h<7hu6;ge=3WRt~S0uBdWUP!^<u
zWDUz(r^`?l$UC*Ka~h{lD^;LvB-AuX;ONUM>oK8V&{6ORX*#EdlPIYeP$es{&+x-f
z(dy;9tjZ^ufUAp3TcB3*tSEq~hUC|<!qfu*<MB<rWNyP%lR#`pKXkSo33M~1rh!iw
z)59vR6hO8?C>iOqo_?OsquM#V><>I;$q{g~H^0P(yTJGQ%X*$I@A~rGgFW7DEn*_J
zml4}#{9OE)^?W~s$s(RZn&o?SdsFl=%lB!XaFy@<dLtIz;Vp6u5+vIM@?4(6LAn4q
zPA#*dC~*&`F*O2vl)fZWCnQN(hwUhlKR^#r1=KxspjS^=Cu5})tCg^(qyw;Z#qfp5
zm4cjSa5zR=^`K5odNW&;FYTa%2MRIz-~qOTKpItjagL&nFgK#4Mc9N8f<hD||8x&n
z5U`>hMSZs1NsyN=3)U1VfN0>TC+bEsTxQ802c3#-olsIKY_^NAr(mF56^&3T-z-hU
z2qTh@GE!<srDxQDBPtxa;z#lx=PRF~4*5^5{(Q(Vd4`|JyP}h{tfeVl+SduGFmuGU
z#W2PogjhLjL<O8qX#|%-SmY)x_IL+th<E;FYEUjE42uG#mH_;rppGWq3s(jdQ?0W`
zd!*Dza&Knii#DD8apV}?=?c>M@^wwK*%~h1mz@c&nc_wxnkY-dYMxmT%ru8ACc<`H
z9(P>XP3?r4r-!7+Hu84cfl9S)YPOA<n}z!v4d^Hfxj9tn{<aikr@+#Rk%HxCdD$=i
zB<Sz%$r3&~dZX)gWP3nFMSQG=x)Dkd=ZR57{;B2CAt2cNO+u}{Yx+By)Xj9d<`RG$
zF9QF-^rC!_r4}h)6nIvpUJ<$Ui>0=QwzF)AmO|F%%$}oe`PhsB)hvYH{td*a1~Xf{
zXDkt4v=5zrW=3NQWl>HMRS+-Jh$Sy)c_XUQO_a;G95uEiLu-0^Iuup0wPMTi7MWQP
z0_m?a!UUhU3=_otxsNGg!R%+xg?G00r5ro=uTt+FaBRxQ(8-}U4RFsH@=8>{V^Z1g
z3r<-VZLCBg7GBrn;+Mx<R4(Y#n_$TR`cYY!w;6oJia@HL#`!=DnT$Q<HC9Hy4EJfB
zfQ{Vw4KUg6f~#rw-Z7~^E&z0SW66kzhuZQ~`9oC4f{`uq=S^p^d}VbtY{xNgUXG+R
z+RmL8&ZpreZBF3=>SS9mj7joq2+4`BL!=3y5}3@fVl9R0Y2tid(s3dY>M@d_2XJ(d
zB6#qCLX2loiG|Emw=y$HMn1dtd%17LoyRC)4aXn7VBwQ6Nn)O9;DEpeiD(WO=J-X1
z*UDI0;laHOg{EF}xaKOVJka18Xs&|Qwdy}Pm#Z1;&Y-bcF4=s&N}Je#Nbiq?5a%-@
z?HeZDMs^XtF+%q{2O^R>7ksB1@qJ58V|n69%J@l1EMHc8Wp!^~G19G+Zlj2T+qXws
zsAE}a<CT6j&6euoiAgyXCoegw)g;wi$^jEM60!Mix*;zDC0|xw0JkNw`}-a5%pOlO
zkSbqpxl=){3*CT086SG3IEZY$h7Wo>K@PT*b0g?;;Kn{&G;;?trg8l5m$8Y5Tqf8e
z{XX5YkTym@?(}0@x^MTF$5lHD%i?9BG;`}Ul)z0?>s9f+xJ!L-q?1tjxwHEByTo%z
zoHOk;Eop=POEB0tDeD_p{m$`@6Sd_68PGybZ>Ys(zB!_W#IMh7h`H<skGg5AVau3F
zEif&$-*luPG=wpp4Ssr0X}g-4$<0xeF}mt*VqH8b9f8Cl6h%X2&}?9UpF6v~F(`I1
zucrYKjwY(PhQTRMEEzojx;SGm$uS}HSqa!OTsa-<R>e{i03ErX7X>RDT&*3|*N}_N
zXcs4|UZH?m{wPtW_(i3{NV-1chg(BrA2g~NYty%sC00reV<M;`VvqTAagz}P!~XEt
zRL-^eSQ=q0gEh;g`&i?~h8{|V)YM8^Z6QJSp@s)%MXY(}t>K>il`7(hPZW9D@g|m4
zXq;Vk{ibyF8+ep9<?N7y#mC`?>^_?2-_2#S7Pzd6u<5Xi7Cdqbu4p)ry&1H*dr5%~
zI_>m#t~$AMpIjNlco+~9;~8)}?^uQ*)hR?(f@=}C;5*WO@KeXGU>m`1;c5X*KjpXg
zspU8xtb+;?X5a7b@Ro^nk%~7~Vw9S!usBaIoit-`Au&UsJrL0ySU6dxn}%tJxyD+a
zN_it*?Xn;(`$pUGP1Pd)y_B@{f-4QL*=6f%YVbeR;%MyT^x7`?k7`koQF?7rw%(|^
zdD&E<5*-^s4Wp$x_$8I(xT@>)rS5gt#%&h1w^1)fjEpN5Hj{ar?w7mNmuhJ}DKjmA
zYUp2bW@hEvgQcbk?j3Xbcq|R`_Npdh9uEdM2F-_EE>!&BtVl0al`wDzkC;bQ3ItTV
zFHXrLw?S1(3h0hrj|Mr86G^2*B`I}dU_5LRXvM)Zk+ge1lVH;ut#OqWT3H49!bTHd
z6r)&|SZr-qdrs@Z<NVIS$PG#Y3SauVlDt}#X>Xyi#{wRM1qWe9u{zNUyCS2=wm9`B
zyv5QH5*ksuyD+i_c@kLk*kX+0=Dp0=2F2OeNvxviK*(=im=mTTpES@8-B@oX+hg}T
zw8_TG#Kogk=J>B*1)F<@vj|VrwUr8uy4i~sQ!6*u#k_hjfHkA$%sXVoj%f5uNnHr4
zE|4`LtoEzDq!<h4K6v+gwO}P_*G-C>Yf#uAvSg!qG{)%i>!?P1v3&Oy1n<_~J!U?O
z{4Rf~+e;B3aUv%)m0So4N)<}Nr3PtXSXav<nV~;8TwQUbX(Y*r14ZX=Zfk29Ta&g3
ze87snQ)>UQ|Mq0%NZ*bs+bG)UBh6TPi4dQcTF@<cO;UPWHiZp*gsu|=pf>gFxq|a*
z{~Ymv&`<W~Y+ct(9KPsmn*D{TM<_zyj#nEo){E3AwP>?qJmR~iLLxJxSm)^`)-R$s
z)%uafo)#bGV9f}@T;T)yrU&^{`rP-DpP5LeHMN-&^YkXXZ*s}Sv}0Q21R+%r-mm_Q
z8%yODH>stxMvr$8;sE2!sA<Dtlb1zuAG71?^(^dFZNgB0TE4jhLtR*gM&D`}s4dJq
znYaXz1&gL@J3eE-?~727$sn}RE$3o&0p6Qe!l*!R%9gGT9PC@<z!s-08_F(BbK1Gp
zXg%#WdZhmP2>*AG2jeM^roZOAeXkeVe{)|~V*{ms#kqD27s6}SF8q+*<sfH8ffR9$
zEVD<F-vKOLLzZM^yH$@8GbSh?z;SUYs>Div+5_{6CPebYkrq4%SPZvNa>e%ege;Ad
z8g$<vPz;fhk+}0icEF<KC?##M;``w>`0XZsz5AX$nGLLW_4;_pVW3FWM;V-E-pVU;
zM2FI0r%m<<jh3#+2ddF?`UfL0rU&zm;~J2JI$zqku5jh0fM2)h|9=kV^^yMd`F~8s
zyfyH4P~#6e`}J7=*Vx8e;M<9YKftP25C5<EhPUvyP3S*xZt#EL|DTrhTT5>nvVSaj
zyq;vg9r=%?zv@`O+p}*?z3rL)F-7t^XY||DUmeu9__vL}KlqH-cHnRPpElrI@Y~wk
zAF%4{ar_(n*Au+OzpXm`!Dqboe}CiuU4wcHe_O2i121@0w|~U#Kc$<u@VE7eKk&2H
zefB^2Kh=u2=(k$>4>}OzU+6!|`mKStn)Z(YZp?ok{;k4&YvOGx^T$Nkt5E)j|9>Sm
zZ}D&6pMUU5g#Y0G{Wg6Ie|s|hfwPnR1AlW)$xDI12KcXX5E2mF>nsNZ>91e^2b-Zm
A#sB~S

literal 0
HcmV?d00001

diff --git a/composite-paragraphs/sample.md b/composite-paragraphs/sample.md
new file mode 100644
index 0000000..ab2d645
--- /dev/null
+++ b/composite-paragraphs/sample.md
@@ -0,0 +1,36 @@
+_Let's begin with a simple test case:_
+
+::: {.composite-paragraph} 
+When Clovis came in front of the soldier, he smashed his head with
+his axe, saying:
+
+  > Remember the vase at Soissons!
+
+This was an allusion to the vase that the soldier had broken so that
+it could not be returned to Remigius.
+:::
+
+_It is not necessary for the first block to be normal text:_
+
+::: {.composite-paragraph} 
+  > Remember the vase at Soissons!
+
+This was an allusion to the vase that the soldier had broken so that
+it could not be returned to Remigius.
+:::
+
+_Nested Divs are supported:_
+
+::: {.composite-paragraph} 
+::: {.narrative}
+When Clovis came in front of the soldier, he smashed his head with
+his axe, saying:
+
+  > Remember the vase at Soissons!
+:::
+::: {.explanation}
+This was an allusion to the vase that the soldier had broken so that
+it could not be returned to Remigius.
+:::
+:::
+
diff --git a/composite-paragraphs/tests/expected.context b/composite-paragraphs/tests/expected.context
new file mode 100644
index 0000000..47d3239
--- /dev/null
+++ b/composite-paragraphs/tests/expected.context
@@ -0,0 +1,308 @@
+[ Para
+    [ Emph
+        [ Str "Let\8217s"
+        , Space
+        , Str "begin"
+        , Space
+        , Str "with"
+        , Space
+        , Str "a"
+        , Space
+        , Str "simple"
+        , Space
+        , Str "test"
+        , Space
+        , Str "case:"
+        ]
+    ]
+, Div
+    ( "" , [ "composite-paragraph" ] , [] )
+    [ Para
+        [ Str "When"
+        , Space
+        , Str "Clovis"
+        , Space
+        , Str "came"
+        , Space
+        , Str "in"
+        , Space
+        , Str "front"
+        , Space
+        , Str "of"
+        , Space
+        , Str "the"
+        , Space
+        , Str "soldier,"
+        , Space
+        , Str "he"
+        , Space
+        , Str "smashed"
+        , Space
+        , Str "his"
+        , Space
+        , Str "head"
+        , Space
+        , Str "with"
+        , SoftBreak
+        , Str "his"
+        , Space
+        , Str "axe,"
+        , Space
+        , Str "saying:"
+        ]
+    , BlockQuote
+        [ Para
+            [ Str "Remember"
+            , Space
+            , Str "the"
+            , Space
+            , Str "vase"
+            , Space
+            , Str "at"
+            , Space
+            , Str "Soissons!"
+            ]
+        ]
+    , Para
+        [ RawInline (Format "context") "\\noindentation{}"
+        , Str "This"
+        , Space
+        , Str "was"
+        , Space
+        , Str "an"
+        , Space
+        , Str "allusion"
+        , Space
+        , Str "to"
+        , Space
+        , Str "the"
+        , Space
+        , Str "vase"
+        , Space
+        , Str "that"
+        , Space
+        , Str "the"
+        , Space
+        , Str "soldier"
+        , Space
+        , Str "had"
+        , Space
+        , Str "broken"
+        , Space
+        , Str "so"
+        , Space
+        , Str "that"
+        , SoftBreak
+        , Str "it"
+        , Space
+        , Str "could"
+        , Space
+        , Str "not"
+        , Space
+        , Str "be"
+        , Space
+        , Str "returned"
+        , Space
+        , Str "to"
+        , Space
+        , Str "Remigius."
+        ]
+    ]
+, Para
+    [ Emph
+        [ Str "It"
+        , Space
+        , Str "is"
+        , Space
+        , Str "not"
+        , Space
+        , Str "necessary"
+        , Space
+        , Str "for"
+        , Space
+        , Str "the"
+        , Space
+        , Str "first"
+        , Space
+        , Str "block"
+        , Space
+        , Str "to"
+        , Space
+        , Str "be"
+        , Space
+        , Str "normal"
+        , Space
+        , Str "text:"
+        ]
+    ]
+, Div
+    ( "" , [ "composite-paragraph" ] , [] )
+    [ BlockQuote
+        [ Para
+            [ Str "Remember"
+            , Space
+            , Str "the"
+            , Space
+            , Str "vase"
+            , Space
+            , Str "at"
+            , Space
+            , Str "Soissons!"
+            ]
+        ]
+    , Para
+        [ RawInline (Format "context") "\\noindentation{}"
+        , Str "This"
+        , Space
+        , Str "was"
+        , Space
+        , Str "an"
+        , Space
+        , Str "allusion"
+        , Space
+        , Str "to"
+        , Space
+        , Str "the"
+        , Space
+        , Str "vase"
+        , Space
+        , Str "that"
+        , Space
+        , Str "the"
+        , Space
+        , Str "soldier"
+        , Space
+        , Str "had"
+        , Space
+        , Str "broken"
+        , Space
+        , Str "so"
+        , Space
+        , Str "that"
+        , SoftBreak
+        , Str "it"
+        , Space
+        , Str "could"
+        , Space
+        , Str "not"
+        , Space
+        , Str "be"
+        , Space
+        , Str "returned"
+        , Space
+        , Str "to"
+        , Space
+        , Str "Remigius."
+        ]
+    ]
+, Para
+    [ Emph
+        [ Str "Nested"
+        , Space
+        , Str "Divs"
+        , Space
+        , Str "are"
+        , Space
+        , Str "supported:"
+        ]
+    ]
+, Div
+    ( "" , [ "composite-paragraph" ] , [] )
+    [ Div
+        ( "" , [ "narrative" ] , [] )
+        [ Para
+            [ Str "When"
+            , Space
+            , Str "Clovis"
+            , Space
+            , Str "came"
+            , Space
+            , Str "in"
+            , Space
+            , Str "front"
+            , Space
+            , Str "of"
+            , Space
+            , Str "the"
+            , Space
+            , Str "soldier,"
+            , Space
+            , Str "he"
+            , Space
+            , Str "smashed"
+            , Space
+            , Str "his"
+            , Space
+            , Str "head"
+            , Space
+            , Str "with"
+            , SoftBreak
+            , Str "his"
+            , Space
+            , Str "axe,"
+            , Space
+            , Str "saying:"
+            ]
+        , BlockQuote
+            [ Para
+                [ Str "Remember"
+                , Space
+                , Str "the"
+                , Space
+                , Str "vase"
+                , Space
+                , Str "at"
+                , Space
+                , Str "Soissons!"
+                ]
+            ]
+        ]
+    , Div
+        ( "" , [ "explanation" ] , [] )
+        [ Para
+            [ RawInline (Format "context") "\\noindentation{}"
+            , Str "This"
+            , Space
+            , Str "was"
+            , Space
+            , Str "an"
+            , Space
+            , Str "allusion"
+            , Space
+            , Str "to"
+            , Space
+            , Str "the"
+            , Space
+            , Str "vase"
+            , Space
+            , Str "that"
+            , Space
+            , Str "the"
+            , Space
+            , Str "soldier"
+            , Space
+            , Str "had"
+            , Space
+            , Str "broken"
+            , Space
+            , Str "so"
+            , Space
+            , Str "that"
+            , SoftBreak
+            , Str "it"
+            , Space
+            , Str "could"
+            , Space
+            , Str "not"
+            , Space
+            , Str "be"
+            , Space
+            , Str "returned"
+            , Space
+            , Str "to"
+            , Space
+            , Str "Remigius."
+            ]
+        ]
+    ]
+]
diff --git a/composite-paragraphs/tests/expected.docx b/composite-paragraphs/tests/expected.docx
new file mode 100644
index 0000000..c196f55
--- /dev/null
+++ b/composite-paragraphs/tests/expected.docx
@@ -0,0 +1,314 @@
+[ Para
+    [ Emph
+        [ Str "Let\8217s"
+        , Space
+        , Str "begin"
+        , Space
+        , Str "with"
+        , Space
+        , Str "a"
+        , Space
+        , Str "simple"
+        , Space
+        , Str "test"
+        , Space
+        , Str "case:"
+        ]
+    ]
+, Div
+    ( "" , [ "composite-paragraph" ] , [] )
+    [ Para
+        [ Str "When"
+        , Space
+        , Str "Clovis"
+        , Space
+        , Str "came"
+        , Space
+        , Str "in"
+        , Space
+        , Str "front"
+        , Space
+        , Str "of"
+        , Space
+        , Str "the"
+        , Space
+        , Str "soldier,"
+        , Space
+        , Str "he"
+        , Space
+        , Str "smashed"
+        , Space
+        , Str "his"
+        , Space
+        , Str "head"
+        , Space
+        , Str "with"
+        , SoftBreak
+        , Str "his"
+        , Space
+        , Str "axe,"
+        , Space
+        , Str "saying:"
+        ]
+    , BlockQuote
+        [ Para
+            [ Str "Remember"
+            , Space
+            , Str "the"
+            , Space
+            , Str "vase"
+            , Space
+            , Str "at"
+            , Space
+            , Str "Soissons!"
+            ]
+        ]
+    , Para
+        [ RawInline
+            (Format "openxml")
+            "<w:pPr><w:pStyle w:val=\"BodyText\"/><w:ind w:hanging=\"0\"/><w:rPr></w:rPr></w:pPr>"
+        , Str "This"
+        , Space
+        , Str "was"
+        , Space
+        , Str "an"
+        , Space
+        , Str "allusion"
+        , Space
+        , Str "to"
+        , Space
+        , Str "the"
+        , Space
+        , Str "vase"
+        , Space
+        , Str "that"
+        , Space
+        , Str "the"
+        , Space
+        , Str "soldier"
+        , Space
+        , Str "had"
+        , Space
+        , Str "broken"
+        , Space
+        , Str "so"
+        , Space
+        , Str "that"
+        , SoftBreak
+        , Str "it"
+        , Space
+        , Str "could"
+        , Space
+        , Str "not"
+        , Space
+        , Str "be"
+        , Space
+        , Str "returned"
+        , Space
+        , Str "to"
+        , Space
+        , Str "Remigius."
+        ]
+    ]
+, Para
+    [ Emph
+        [ Str "It"
+        , Space
+        , Str "is"
+        , Space
+        , Str "not"
+        , Space
+        , Str "necessary"
+        , Space
+        , Str "for"
+        , Space
+        , Str "the"
+        , Space
+        , Str "first"
+        , Space
+        , Str "block"
+        , Space
+        , Str "to"
+        , Space
+        , Str "be"
+        , Space
+        , Str "normal"
+        , Space
+        , Str "text:"
+        ]
+    ]
+, Div
+    ( "" , [ "composite-paragraph" ] , [] )
+    [ BlockQuote
+        [ Para
+            [ Str "Remember"
+            , Space
+            , Str "the"
+            , Space
+            , Str "vase"
+            , Space
+            , Str "at"
+            , Space
+            , Str "Soissons!"
+            ]
+        ]
+    , Para
+        [ RawInline
+            (Format "openxml")
+            "<w:pPr><w:pStyle w:val=\"BodyText\"/><w:ind w:hanging=\"0\"/><w:rPr></w:rPr></w:pPr>"
+        , Str "This"
+        , Space
+        , Str "was"
+        , Space
+        , Str "an"
+        , Space
+        , Str "allusion"
+        , Space
+        , Str "to"
+        , Space
+        , Str "the"
+        , Space
+        , Str "vase"
+        , Space
+        , Str "that"
+        , Space
+        , Str "the"
+        , Space
+        , Str "soldier"
+        , Space
+        , Str "had"
+        , Space
+        , Str "broken"
+        , Space
+        , Str "so"
+        , Space
+        , Str "that"
+        , SoftBreak
+        , Str "it"
+        , Space
+        , Str "could"
+        , Space
+        , Str "not"
+        , Space
+        , Str "be"
+        , Space
+        , Str "returned"
+        , Space
+        , Str "to"
+        , Space
+        , Str "Remigius."
+        ]
+    ]
+, Para
+    [ Emph
+        [ Str "Nested"
+        , Space
+        , Str "Divs"
+        , Space
+        , Str "are"
+        , Space
+        , Str "supported:"
+        ]
+    ]
+, Div
+    ( "" , [ "composite-paragraph" ] , [] )
+    [ Div
+        ( "" , [ "narrative" ] , [] )
+        [ Para
+            [ Str "When"
+            , Space
+            , Str "Clovis"
+            , Space
+            , Str "came"
+            , Space
+            , Str "in"
+            , Space
+            , Str "front"
+            , Space
+            , Str "of"
+            , Space
+            , Str "the"
+            , Space
+            , Str "soldier,"
+            , Space
+            , Str "he"
+            , Space
+            , Str "smashed"
+            , Space
+            , Str "his"
+            , Space
+            , Str "head"
+            , Space
+            , Str "with"
+            , SoftBreak
+            , Str "his"
+            , Space
+            , Str "axe,"
+            , Space
+            , Str "saying:"
+            ]
+        , BlockQuote
+            [ Para
+                [ Str "Remember"
+                , Space
+                , Str "the"
+                , Space
+                , Str "vase"
+                , Space
+                , Str "at"
+                , Space
+                , Str "Soissons!"
+                ]
+            ]
+        ]
+    , Div
+        ( "" , [ "explanation" ] , [] )
+        [ Para
+            [ RawInline
+                (Format "openxml")
+                "<w:pPr><w:pStyle w:val=\"BodyText\"/><w:ind w:hanging=\"0\"/><w:rPr></w:rPr></w:pPr>"
+            , Str "This"
+            , Space
+            , Str "was"
+            , Space
+            , Str "an"
+            , Space
+            , Str "allusion"
+            , Space
+            , Str "to"
+            , Space
+            , Str "the"
+            , Space
+            , Str "vase"
+            , Space
+            , Str "that"
+            , Space
+            , Str "the"
+            , Space
+            , Str "soldier"
+            , Space
+            , Str "had"
+            , Space
+            , Str "broken"
+            , Space
+            , Str "so"
+            , Space
+            , Str "that"
+            , SoftBreak
+            , Str "it"
+            , Space
+            , Str "could"
+            , Space
+            , Str "not"
+            , Space
+            , Str "be"
+            , Space
+            , Str "returned"
+            , Space
+            , Str "to"
+            , Space
+            , Str "Remigius."
+            ]
+        ]
+    ]
+]
diff --git a/composite-paragraphs/tests/expected.latex b/composite-paragraphs/tests/expected.latex
new file mode 100644
index 0000000..2b992c6
--- /dev/null
+++ b/composite-paragraphs/tests/expected.latex
@@ -0,0 +1,308 @@
+[ Para
+    [ Emph
+        [ Str "Let\8217s"
+        , Space
+        , Str "begin"
+        , Space
+        , Str "with"
+        , Space
+        , Str "a"
+        , Space
+        , Str "simple"
+        , Space
+        , Str "test"
+        , Space
+        , Str "case:"
+        ]
+    ]
+, Div
+    ( "" , [ "composite-paragraph" ] , [] )
+    [ Para
+        [ Str "When"
+        , Space
+        , Str "Clovis"
+        , Space
+        , Str "came"
+        , Space
+        , Str "in"
+        , Space
+        , Str "front"
+        , Space
+        , Str "of"
+        , Space
+        , Str "the"
+        , Space
+        , Str "soldier,"
+        , Space
+        , Str "he"
+        , Space
+        , Str "smashed"
+        , Space
+        , Str "his"
+        , Space
+        , Str "head"
+        , Space
+        , Str "with"
+        , SoftBreak
+        , Str "his"
+        , Space
+        , Str "axe,"
+        , Space
+        , Str "saying:"
+        ]
+    , BlockQuote
+        [ Para
+            [ Str "Remember"
+            , Space
+            , Str "the"
+            , Space
+            , Str "vase"
+            , Space
+            , Str "at"
+            , Space
+            , Str "Soissons!"
+            ]
+        ]
+    , Para
+        [ RawInline (Format "latex") "\\noindent{}"
+        , Str "This"
+        , Space
+        , Str "was"
+        , Space
+        , Str "an"
+        , Space
+        , Str "allusion"
+        , Space
+        , Str "to"
+        , Space
+        , Str "the"
+        , Space
+        , Str "vase"
+        , Space
+        , Str "that"
+        , Space
+        , Str "the"
+        , Space
+        , Str "soldier"
+        , Space
+        , Str "had"
+        , Space
+        , Str "broken"
+        , Space
+        , Str "so"
+        , Space
+        , Str "that"
+        , SoftBreak
+        , Str "it"
+        , Space
+        , Str "could"
+        , Space
+        , Str "not"
+        , Space
+        , Str "be"
+        , Space
+        , Str "returned"
+        , Space
+        , Str "to"
+        , Space
+        , Str "Remigius."
+        ]
+    ]
+, Para
+    [ Emph
+        [ Str "It"
+        , Space
+        , Str "is"
+        , Space
+        , Str "not"
+        , Space
+        , Str "necessary"
+        , Space
+        , Str "for"
+        , Space
+        , Str "the"
+        , Space
+        , Str "first"
+        , Space
+        , Str "block"
+        , Space
+        , Str "to"
+        , Space
+        , Str "be"
+        , Space
+        , Str "normal"
+        , Space
+        , Str "text:"
+        ]
+    ]
+, Div
+    ( "" , [ "composite-paragraph" ] , [] )
+    [ BlockQuote
+        [ Para
+            [ Str "Remember"
+            , Space
+            , Str "the"
+            , Space
+            , Str "vase"
+            , Space
+            , Str "at"
+            , Space
+            , Str "Soissons!"
+            ]
+        ]
+    , Para
+        [ RawInline (Format "latex") "\\noindent{}"
+        , Str "This"
+        , Space
+        , Str "was"
+        , Space
+        , Str "an"
+        , Space
+        , Str "allusion"
+        , Space
+        , Str "to"
+        , Space
+        , Str "the"
+        , Space
+        , Str "vase"
+        , Space
+        , Str "that"
+        , Space
+        , Str "the"
+        , Space
+        , Str "soldier"
+        , Space
+        , Str "had"
+        , Space
+        , Str "broken"
+        , Space
+        , Str "so"
+        , Space
+        , Str "that"
+        , SoftBreak
+        , Str "it"
+        , Space
+        , Str "could"
+        , Space
+        , Str "not"
+        , Space
+        , Str "be"
+        , Space
+        , Str "returned"
+        , Space
+        , Str "to"
+        , Space
+        , Str "Remigius."
+        ]
+    ]
+, Para
+    [ Emph
+        [ Str "Nested"
+        , Space
+        , Str "Divs"
+        , Space
+        , Str "are"
+        , Space
+        , Str "supported:"
+        ]
+    ]
+, Div
+    ( "" , [ "composite-paragraph" ] , [] )
+    [ Div
+        ( "" , [ "narrative" ] , [] )
+        [ Para
+            [ Str "When"
+            , Space
+            , Str "Clovis"
+            , Space
+            , Str "came"
+            , Space
+            , Str "in"
+            , Space
+            , Str "front"
+            , Space
+            , Str "of"
+            , Space
+            , Str "the"
+            , Space
+            , Str "soldier,"
+            , Space
+            , Str "he"
+            , Space
+            , Str "smashed"
+            , Space
+            , Str "his"
+            , Space
+            , Str "head"
+            , Space
+            , Str "with"
+            , SoftBreak
+            , Str "his"
+            , Space
+            , Str "axe,"
+            , Space
+            , Str "saying:"
+            ]
+        , BlockQuote
+            [ Para
+                [ Str "Remember"
+                , Space
+                , Str "the"
+                , Space
+                , Str "vase"
+                , Space
+                , Str "at"
+                , Space
+                , Str "Soissons!"
+                ]
+            ]
+        ]
+    , Div
+        ( "" , [ "explanation" ] , [] )
+        [ Para
+            [ RawInline (Format "latex") "\\noindent{}"
+            , Str "This"
+            , Space
+            , Str "was"
+            , Space
+            , Str "an"
+            , Space
+            , Str "allusion"
+            , Space
+            , Str "to"
+            , Space
+            , Str "the"
+            , Space
+            , Str "vase"
+            , Space
+            , Str "that"
+            , Space
+            , Str "the"
+            , Space
+            , Str "soldier"
+            , Space
+            , Str "had"
+            , Space
+            , Str "broken"
+            , Space
+            , Str "so"
+            , Space
+            , Str "that"
+            , SoftBreak
+            , Str "it"
+            , Space
+            , Str "could"
+            , Space
+            , Str "not"
+            , Space
+            , Str "be"
+            , Space
+            , Str "returned"
+            , Space
+            , Str "to"
+            , Space
+            , Str "Remigius."
+            ]
+        ]
+    ]
+]