git.iko.soy/typeable/pandoc
on master help sign in
Markdown reader: Added p., pp., sec., ch., as abbreviations.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1861 788f1e2b-df1e-0410-8736-df70ead52e1b

commit1f3b48c1932f8f3e264cb60d939a41dab3bab5e8 authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateSat 6 Mar 2010, 04:08 (17 years ago) parent76e6c07
1 file changed+2−1
compare with master
unifiedsplit
src/Text/Pandoc/Readers/Markdown.hs+2−1
src/Text/Pandoc/Readers/Markdown.hs+2−1
@@ -1136,7 +1136,8 @@ likelyAbbrev x =
11361136 let abbrevs = [ "Mr.", "Mrs.", "Ms.", "Capt.", "Dr.", "Prof.",
11371137 "Gen.", "Gov.", "e.g.", "i.e.", "Sgt.", "St.",
11381138 "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." ]
11401141 abbrPairs = map (break (=='.')) abbrevs
11411142 in map snd $ filter (\(y,_) -> y == x) abbrPairs
11421143