git.iko.soy/typeable/pandoc
on master help sign in
Markdown reader: Added p., pp., sec., ch., as abbreviations.
1f3b48cfiddlosopher
src/Text/Pandoc/Readers/Markdown.hs+2−1
compare with master
unifiedsplit
@@ -1136,7 +1136,8 @@ likelyAbbrev x =
1136 let abbrevs = [ "Mr.", "Mrs.", "Ms.", "Capt.", "Dr.", "Prof.",
1136 let abbrevs = [ "Mr.", "Mrs.", "Ms.", "Capt.", "Dr.", "Prof.",
1137 "Gen.", "Gov.", "e.g.", "i.e.", "Sgt.", "St.",
1137 "Gen.", "Gov.", "e.g.", "i.e.", "Sgt.", "St.",
1138 "vol.", "vs.", "Sen.", "Rep.", "Pres.", "Hon.",
1138 "vol.", "vs.", "Sen.", "Rep.", "Pres.", "Hon.",
1139− "Rev.", "Ph.D.", "M.D.", "M.A." ]
1139+ "Rev.", "Ph.D.", "M.D.", "M.A.", "p.", "pp.",
1140+ "ch.", "sec." ]
1140 abbrPairs = map (break (=='.')) abbrevs
1141 abbrPairs = map (break (=='.')) abbrevs
1141 in map snd $ filter (\(y,_) -> y == x) abbrPairs
1142 in map snd $ filter (\(y,_) -> y == x) abbrPairs
1142
1143