git.iko.soy/typeable/pandoc
on master help sign in
Sort YAML metadata keys in Markdown output case-insensitive.
39f3570John MacFarlane
src/Text/Pandoc/Writers/Markdown.hs+2−2
compare with master
unifiedsplit
@@ -126,7 +126,7 @@ pandocTitleBlock tit auths dat =
126
126
127mmdTitleBlock :: Context Text -> Doc Text
127mmdTitleBlock :: Context Text -> Doc Text
128mmdTitleBlock (Context hashmap) =
128mmdTitleBlock (Context hashmap) =
129− vcat $ map go $ sortOn fst $ M.toList hashmap
129+ vcat $ map go $ sortOn (T.toCaseFold . fst) $ M.toList hashmap
130 where go (k,v) =
130 where go (k,v) =
131 case (text (T.unpack k), v) of
131 case (text (T.unpack k), v) of
132 (k', ListVal xs)
132 (k', ListVal xs)
@@ -155,7 +155,7 @@ yamlMetadataBlock v = "---" $$ contextToYaml v $$ "---"
155
155
156contextToYaml :: Context Text -> Doc Text
156contextToYaml :: Context Text -> Doc Text
157contextToYaml (Context o) =
157contextToYaml (Context o) =
158− vcat $ map keyvalToYaml $ sortOn fst $ M.toList o
158+ vcat $ map keyvalToYaml $ sortOn (T.toCaseFold . fst) $ M.toList o
159 where
159 where
160 keyvalToYaml (k,v) =
160 keyvalToYaml (k,v) =
161 case (text (T.unpack k), v) of
161 case (text (T.unpack k), v) of