@@ -126,7 +126,7 @@ pandocTitleBlock tit auths dat =
126126
127127mmdTitleBlock :: Context Text -> Doc Text
128128mmdTitleBlock (Context hashmap) =
129− vcat $ map go $ sortOn fst $ M.toList hashmap
129+ vcat $ map go $ sortOn (T.toCaseFold . fst) $ M.toList hashmap
130130 where go (k,v) =
131131 case (text (T.unpack k), v) of
132132 (k', ListVal xs)
@@ -155,7 +155,7 @@ yamlMetadataBlock v = "---" $$ contextToYaml v $$ "---"
155155
156156contextToYaml :: Context Text -> Doc Text
157157contextToYaml (Context o) =
158− vcat $ map keyvalToYaml $ sortOn fst $ M.toList o
158+ vcat $ map keyvalToYaml $ sortOn (T.toCaseFold . fst) $ M.toList o
159159 where
160160 keyvalToYaml (k,v) =
161161 case (text (T.unpack k), v) of