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