@@ -171,19 +171,20 @@ simpleTable :: PandocMonad m
171171 -> [[TableCell]]
172172 -> Muse m Doc
173173simpleTable caption headers rows = do
174+ topLevel <- asks envTopLevel
174175 caption' <- inlineListToMuse caption
175176 headers' <- mapM blockListToMuse headers
176177 rows' <- mapM (mapM blockListToMuse) rows
177178 let widthsInChars = maximum . map offset <$> transpose (headers' : rows')
178179 let hpipeBlocks sep blocks = hcat $ intersperse sep' blocks
179180 where sep' = lblock (length sep) $ text sep
180− let makeRow sep = (" " <>) . hpipeBlocks sep . zipWith lblock widthsInChars
181+ let makeRow sep = hpipeBlocks sep . zipWith lblock widthsInChars
181182 let head' = makeRow " || " headers'
182183 rows'' <- mapM (\row -> makeRow rowSeparator <$> mapM blockListToMuse row) rows
183184 let body = vcat rows''
184− return $ (if noHeaders then empty else head')
185− $$ body
186− $$ (if null caption then empty else " |+ " <> caption' <> " +|")
185+ return $ (if topLevel then nest 1 else id) ((if noHeaders then empty else head')
186+ $$ body
187+ $$ (if null caption then empty else "|+ " <> caption' <> " +|"))
187188 $$ blankline
188189 where noHeaders = all null headers
189190 rowSeparator = if noHeaders then " | " else " | "