Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

\textcolor works as inline and block command

Browse source
This commit is contained in:
Marc Schreiber 2017-05-03 13:39:38 +02:00
parent d9439808f2
commit 1728d4e609
2 changed files with 13 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Readers/LaTeX.hs
View file

@ -420,7 +420,7 @@ blockTextcolor :: PandocMonad m => LP m Blocks
blockTextcolor = do
skipopts
color <- braced
return <$> divWith ("",[],[("style","color: " ++ color)]) $ block
divWith ("",[],[("style","color: " ++ color)]) <$> grouped block
graphicsPath :: PandocMonad m => LP m Blocks
graphicsPath = do

20
test/command/textcolor.md
View file

@ -1,24 +1,28 @@
```
% pandoc -f latex -t native
\textcolor{red}{Hello World}
Hello \textcolor{red}{World}
^D
[Para [Span ("",[],[("style","color: red")]) [Str "Hello",Space,Str "World"]]]
[Para [Str "Hello",Space,Span ("",[],[("style","color: red")]) [Str "World"]]]
```
```
% pandoc -f latex -t native
\textcolor{blue}{Hello \textbf{World}}
Hello \textcolor{blue}{\textbf{World}}
^D
[Para [Span ("",[],[("style","color: blue")]) [Str "Hello",Space,Strong [Str "World"]]]]
[Para [Str "Hello",Space,Span ("",[],[("style","color: blue")]) [Strong [Str "World"]]]]
```
```
% pandoc -f latex -t native
\textcolor{orange}{
\begin{itemize}
\item Test
\end{itemize}
\begin{itemize}
\item Item 1
\item Item 2
\end{itemize}
}
^D
[Div ("",[],[("style","color: orange")])
[BulletList
[[Para [Str "Item",Space,Str "1"]]
,[Para [Str "Item",Space,Str "2"]]]]]
```