Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Textile writer: Support header attributes.

Browse source
This commit is contained in:
John MacFarlane 2013-02-28 18:47:49 -08:00
parent d5c2ace9ae
commit 0c9bb40403
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/Text/Pandoc/Writers/Textile.hs
View file

@ -122,10 +122,16 @@ blockToTextile _ (RawBlock f str) =
blockToTextile _ HorizontalRule = return "<hr />\n"
blockToTextile opts (Header level (ident,_,_) inlines) = do
blockToTextile opts (Header level (ident,classes,keyvals) inlines) = do
contents <- inlineListToTextile opts inlines
let attribs = if null ident then "" else "(#" ++ ident ++ ")"
let prefix = 'h' : show level ++ attribs ++ ". "
let identAttr = if null ident then "" else ('#':ident)
let classAttr = unwords classes
let attribs = if null identAttr && null classes
then ""
else "(" ++ unwords classes ++ identAttr ++ ")"
let lang = maybe "" (\x -> "[" ++ x ++ "]") $ lookup "lang" keyvals
let styles = maybe "" (\x -> "{" ++ x ++ "}") $ lookup "style" keyvals
let prefix = 'h' : show level ++ attribs ++ styles ++ lang ++ ". "
return $ prefix ++ contents ++ "\n"
blockToTextile _ (CodeBlock (_,classes,_) str) | any (all isSpace) (lines str) =