@@ -60,7 +60,7 @@ hierarchicalize (block:rest) =
6060
6161-- | Convert list of authors to a docbook <author> section
6262authorToDocbook :: WriterOptions -> [Char] -> Doc
63−authorToDocbook options name = indentedInTags options "author" $
63+authorToDocbook options name = indentedInTags "author" $
6464 if ',' `elem` name
6565 then -- last name first
6666 let (lastname, rest) = break (==',') name
@@ -84,7 +84,7 @@ writeDocbook options (Pandoc (Meta title authors date) blocks) =
8484 then text (writerHeader options)
8585 else empty
8686 meta = if (writerStandalone options)
87− then indentedInTags options "articleinfo" $
87+ then indentedInTags "articleinfo" $
8888 (inTags "title" (inlinesToDocbook options title)) $$
8989 (vcat (map (authorToDocbook options) authors)) $$
9090 (inTags "date" (text date))
@@ -97,7 +97,7 @@ writeDocbook options (Pandoc (Meta title authors date) blocks) =
9797 vcat (map (elementToDocbook options') elements) $$
9898 text (writerIncludeAfter options')
9999 body' = if writerStandalone options'
100− then indentedInTags options' "article" (meta $$ body)
100+ then indentedInTags "article" (meta $$ body)
101101 else body in
102102 render $ head $$ body' <> text "\n"
103103
@@ -116,8 +116,8 @@ inTags :: String -> Doc -> Doc
116116inTags tagType contents = inTagsWithAttrib tagType [] contents
117117
118118-- | Put the supplied contents in indented block btw start and end tags.
119−indentedInTags :: WriterOptions -> [Char] -> Doc -> Doc
120−indentedInTags options tagType contents = text ("<" ++ tagType ++ ">") $$
119+indentedInTags :: [Char] -> Doc -> Doc
120+indentedInTags tagType contents = text ("<" ++ tagType ++ ">") $$
121121 nest 2 contents $$ text ("</" ++ tagType ++ ">")
122122
123123-- | Convert an Element to Docbook.
@@ -128,7 +128,7 @@ elementToDocbook options (Sec title elements) =
128128 let elements' = if null elements
129129 then [Blk (Para [])]
130130 else elements in
131− indentedInTags options "section" $
131+ indentedInTags "section" $
132132 inTags "title" (wrap options title) $$
133133 vcat (map (elementToDocbook options) elements')
134134
@@ -147,7 +147,7 @@ listItemToDocbook options item =
147147 let plainToPara (Plain x) = Para x
148148 plainToPara y = y in
149149 let item' = map plainToPara item in
150− indentedInTags options "listitem" (blocksToDocbook options item')
150+ indentedInTags "listitem" (blocksToDocbook options item')
151151
152152-- | Convert a Pandoc block element to Docbook.
153153blockToDocbook :: WriterOptions -> Block -> Doc
@@ -155,20 +155,20 @@ blockToDocbook options Blank = text ""
155155blockToDocbook options Null = empty
156156blockToDocbook options (Plain lst) = wrap options lst
157157blockToDocbook options (Para lst) =
158− indentedInTags options "para" (wrap options lst)
158+ indentedInTags "para" (wrap options lst)
159159blockToDocbook options (BlockQuote blocks) =
160− indentedInTags options "blockquote" (blocksToDocbook options blocks)
160+ indentedInTags "blockquote" (blocksToDocbook options blocks)
161161blockToDocbook options (CodeBlock str) =
162162 text "<screen>\n" <> text (codeStringToXML str) <> text "\n</screen>"
163163blockToDocbook options (BulletList lst) =
164− indentedInTags options "itemizedlist" $ listItemsToDocbook options lst
164+ indentedInTags "itemizedlist" $ listItemsToDocbook options lst
165165blockToDocbook options (OrderedList lst) =
166− indentedInTags options "orderedlist" $ listItemsToDocbook options lst
166+ indentedInTags "orderedlist" $ listItemsToDocbook options lst
167167blockToDocbook options (RawHtml str) = text str -- raw XML block
168168blockToDocbook options HorizontalRule = empty -- not semantic
169169blockToDocbook options (Note _ _) = empty -- shouldn't occur
170170blockToDocbook options (Key _ _) = empty -- shouldn't occur
171−blockToDocbook options _ = indentedInTags options "para" (text "Unknown block type")
171+blockToDocbook options _ = indentedInTags "para" (text "Unknown block type")
172172
173173-- | Put string in CDATA section
174174cdata :: String -> Doc
@@ -221,11 +221,11 @@ inlineToDocbook options (Link text (Ref ref)) = empty -- shouldn't occur
221221inlineToDocbook options (Image alt (Src src tit)) =
222222 let titleDoc = if null tit
223223 then empty
224− else indentedInTags options "objectinfo" $
225− indentedInTags options "title"
224+ else indentedInTags "objectinfo" $
225+ indentedInTags "title"
226226 (text $ stringToXML options tit) in
227− indentedInTags options "inlinemediaobject" $
228− indentedInTags options "imageobject" $
227+ indentedInTags "inlinemediaobject" $
228+ indentedInTags "imageobject" $
229229 titleDoc $$ inTagsWithAttrib "imagedata" [("fileref", src)] empty
230230inlineToDocbook options (Image alternate (Ref ref)) = empty --shouldn't occur
231231inlineToDocbook options (NoteRef ref) =
@@ -234,4 +234,4 @@ inlineToDocbook options (NoteRef ref) =
234234 if null hits
235235 then empty
236236 else let (Note _ contents) = head hits in
237− indentedInTags options "footnote" $ blocksToDocbook options contents
237+ indentedInTags "footnote" $ blocksToDocbook options contents