a29fa15 · typeable/pandoc

git.iko.soy/typeable/pandoc

LaTeX reader: Add basic support for hyphenat package (#3603)

commita29fa15a7b214ff83efe7b32fe51a55711984ef7 authorschrieveslaach <schrieveslaach@online.de> dateWed 26 Apr 2017, 12:05 (10 years ago) parent256e3a6

2 files changed+62−1

compare with master

unifiedsplit

src/Text/Pandoc/Readers/LaTeX.hs+13−1 test/command/hyphenat.md+49

src/Text/Pandoc/Readers/LaTeX.hs+13−1

@@ -518,7 +518,7 @@ inlineCommands = M.fromList $

518518 , ("textmd", extractSpaces (spanWith ("",["medium"],[])) <$> tok)

519519 , ("textrm", extractSpaces (spanWith ("",["roman"],[])) <$> tok)

520520 , ("textup", extractSpaces (spanWith ("",["upright"],[])) <$> tok)

521− , ("texttt", (code . stringify . toList) <$> tok)

521+ , ("texttt", ttfamily)

522522 , ("sout", extractSpaces strikeout <$> tok)

523523 , ("textsuperscript", extractSpaces superscript <$> tok)

524524 , ("textsubscript", extractSpaces subscript <$> tok)

@@ -671,6 +671,15 @@ inlineCommands = M.fromList $

671671 , ("hypertarget", braced >> tok)

672672 -- siuntix

673673 , ("SI", dosiunitx)

674+ -- hyphenat

675+ , ("bshyp", lit "\\\173")

676+ , ("fshyp", lit "/\173")

677+ , ("dothyp", lit ".\173")

678+ , ("colonhyp", lit ":\173")

679+ , ("hyp", lit "-")

680+ , ("nohyphens", tok)

681+ , ("textnhtt", ttfamily)

682+ , ("nhttfamily", ttfamily)

674683 ] ++ map ignoreInlines

675684 -- these commands will be ignored unless --parse-raw is specified,

676685 -- in which case they will appear as raw latex blocks:

@@ -682,6 +691,9 @@ inlineCommands = M.fromList $

682691 , "pagebreak"

683692 ]

684693

694+ttfamily :: PandocMonad m => LP m Inlines

695+ttfamily = (code . stringify . toList) <$> tok

696+

685697mkImage :: PandocMonad m => [(String, String)] -> String -> LP m Inlines

686698mkImage options src = do

687699 let replaceTextwidth (k,v) = case numUnit v of

test/command/hyphenat.mdnew file+49

@@ -0,0 +1,49 @@

1+```

2+% pandoc -f latex -t native

3+electromagnetic\hyp{}endioscopy

4+^D

5+[Para [Str "electromagnetic-endioscopy"]]

6+```

8+```

9+% pandoc -f latex -t native

10+C\colonhyp\bshyp{}Windows\bshyp

11+^D

12+[Para [Str "C:\173\\\173Windows\\\173"]]

13+```

14+

15+```

16+% pandoc -f latex -t native

17+\fshyp{}usr\fshyp{}share\fshyp

18+^D

19+[Para [Str "/\173usr/\173share/\173"]]

20+```

21+

22+```

23+% pandoc -f latex -t native

24+\fshyp{}home\fshyp{}schrieveslaach\fshyp\dothyp{}m2

25+^D

26+[Para [Str "/\173home/\173schrieveslaach/\173.\173m2"]]

27+```

28+

29+```

30+% pandoc -f latex -t native

31+\nohyphens{Pneumonoultramicroscopicsilicovolcanoconiosis}

32+^D

33+[Para [Str "Pneumonoultramicroscopicsilicovolcanoconiosis"]]

34+```

35+

36+```

37+% pandoc -f latex -t native

38+\textnhtt{Pneumonoultramicroscopicsilicovolcanoconiosis}

39+^D

40+[Para [Code ("",[],[]) "Pneumonoultramicroscopicsilicovolcanoconiosis"]]

41+```

42+

43+```

44+% pandoc -f latex -t native

45+\nhttfamily{Pneumonoultramicroscopicsilicovolcanoconiosis}

46+^D

47+[Para [Code ("",[],[]) "Pneumonoultramicroscopicsilicovolcanoconiosis"]]

48+```

49+