@@ -81,8 +81,9 @@ pandocToRST (Pandoc meta blocks) = do
81 (fmap (render colwidth) . blockListToRST)
81 (fmap (render colwidth) . blockListToRST)
82 (fmap (trimr . render colwidth) . inlineListToRST)
82 (fmap (trimr . render colwidth) . inlineListToRST)
83 $ deleteMeta "title" $ deleteMeta "subtitle" meta
83 $ deleteMeta "title" $ deleteMeta "subtitle" meta
84− let minLev = findMinHeadingLevel Nothing blocks
85− body <- blockListToRST' True $ normalizeHeadings minLev blocks
84+ body <- blockListToRST' True $ if writerStandalone opts
85+ then normalizeHeadings 1 blocks
86 notes <- liftM (reverse . stNotes) get >>= notesToRST
87 notes <- liftM (reverse . stNotes) get >>= notesToRST
87 -- note that the notes may contain refs, so we do them first
88 -- note that the notes may contain refs, so we do them first
88 refs <- liftM (reverse . stLinks) get >>= refsToRST
89 refs <- liftM (reverse . stLinks) get >>= refsToRST
@@ -102,17 +103,13 @@ pandocToRST (Pandoc meta blocks) = do
102 then return $ renderTemplate' (writerTemplate opts) context
103 then return $ renderTemplate' (writerTemplate opts) context
103 else return main
104 else return main
106+ normalizeHeadings lev (Header l a i:bs) =
105− normalizeHeadings lev (Header l a i:bs) = Header lev a i:normalizeHeadings (lev+1) cont ++ normalizeHeadings lev bs'
107+ Header lev a i:normalizeHeadings (lev+1) cont ++ normalizeHeadings lev bs'
106 where (cont,bs') = break (headerLtEq l) bs
108 where (cont,bs') = break (headerLtEq l) bs
107 headerLtEq level (Header l' _ _) = l' <= level
109 headerLtEq level (Header l' _ _) = l' <= level
108 headerLtEq _ _ = False
110 headerLtEq _ _ = False
109 normalizeHeadings lev (b:bs) = b:normalizeHeadings lev bs
111 normalizeHeadings lev (b:bs) = b:normalizeHeadings lev bs
110 normalizeHeadings _ [] = []
112 normalizeHeadings _ [] = []
111− findMinHeadingLevel Nothing (Header l _a _i:bs) = findMinHeadingLevel (Just l) bs
112− findMinHeadingLevel (Just ol) (Header l _a _i:bs) =
113− findMinHeadingLevel (Just $ if ol>l then l else ol) bs
114− findMinHeadingLevel l (_:bs) = findMinHeadingLevel l bs
115− findMinHeadingLevel l [] = fromMaybe 1 l
117-- | Return RST representation of reference key table.
114-- | Return RST representation of reference key table.
118refsToRST :: Refs -> State WriterState Doc
115refsToRST :: Refs -> State WriterState Doc