git.iko.soy/typeable/pandoc
on master help sign in
Added writers-lang-and-dir test, fixed ConTeXt writer test
fa2b26dmb21
tests/Tests/Old.hs+6
compare with master
unifiedsplit
@@ -165,6 +165,12 @@ tests = [ testGroup "markdown"
165 [ "opendocument" , "context" , "texinfo", "icml"
165 [ "opendocument" , "context" , "texinfo", "icml"
166 , "man" , "plain" , "rtf", "org", "asciidoc"
166 , "man" , "plain" , "rtf", "org", "asciidoc"
167 ]
167 ]
168+ , testGroup "writers-lang-and-dir"
169+ [ test "latex" ["-f", "native", "-t", "latex", "-s"]
170+ "writers-lang-and-dir.native" "writers-lang-and-dir.latex"
171+ , test "context" ["-f", "native", "-t", "context", "-s"]
172+ "writers-lang-and-dir.native" "writers-lang-and-dir.context"
173+ ]
168 ]
174 ]
169
175
170-- makes sure file is fully closed after reading
176-- makes sure file is fully closed after reading
tests/writer.context+3
@@ -545,11 +545,13 @@ Blank line after term, indented marker, alternate markers:
545Simple block on one line:
545Simple block on one line:
546
546
547foo
547foo
548+
548And nested without indentation:
549And nested without indentation:
549
550
550foo
551foo
551
552
552bar
553bar
554+
553Interpreted markdown in a table:
555Interpreted markdown in a table:
554
556
555This is {\em emphasized}
557This is {\em emphasized}
@@ -575,6 +577,7 @@ As should this:
575Now, nested:
577Now, nested:
576
578
577foo
579foo
580+
578This should just be an HTML comment:
581This should just be an HTML comment:
579
582
580Multiline:
583Multiline:
tests/writers-lang-and-dir.contextnew file+111
@@ -0,0 +1,111 @@
1+\startmode[*mkii]
2+ \enableregime[utf-8]
3+ \setupcolors[state=start]
4+\stopmode
5+
6+% Enable hyperlinks
7+\setupinteraction[state=start, color=middleblue]
8+
9+\setuppapersize [letter][letter]
10+\setuplayout [width=middle, backspace=1.5in, cutspace=1.5in,
11+ height=middle, topspace=0.75in, bottomspace=0.75in]
12+
13+\setuppagenumbering[location={footer,center}]
14+
15+\setupbodyfont[11pt]
16+
17+\setupwhitespace[medium]
18+
19+\setuphead[chapter] [style=\tfd]
20+\setuphead[section] [style=\tfc]
21+\setuphead[subsection] [style=\tfb]
22+\setuphead[subsubsection][style=\bf]
23+
24+\setuphead[chapter, section, subsection, subsubsection][number=no]
25+
26+\definedescription
27+ [description]
28+ [headstyle=bold, style=normal, location=hanging, width=broad, margin=1cm, alternative=hanging]
29+
30+\setupitemize[autointro] % prevent orphan list intro
31+\setupitemize[indentnext=no]
32+
33+\setupfloat[figure][default={here,nonumber}]
34+\setupfloat[table][default={here,nonumber}]
35+
36+\setupthinrules[width=15em] % width of horizontal rules
37+
38+\setupdelimitedtext
39+ [blockquote]
40+ [before={\blank[medium]},
41+ after={\blank[medium]},
42+ indentnext=no,
43+ ]
44+
45+
46+\starttext
47+
48+\section[empty-divs-and-spans]{Empty Divs and Spans}
49+
50+Some text and
51+
52+div contents
53+
54+and more text.
55+
56+Next paragraph with a span and a word-thatincludesaspanright?
57+
58+\section[directionality]{Directionality}
59+
60+Some text and
61+
62+\startalignment[righttoleft]
63+rtl div contents
64+
65+\stopalignment
66+
67+and more text.
68+
69+\startalignment[lefttoright]
70+and a ltr div. with a {\righttoleft rtl span}.
71+
72+\stopalignment
73+
74+Next paragraph with a {\righttoleft rtl span} and a
75+word-that-includesa{\lefttoright ltrspan}right?
76+
77+\section[languages]{Languages}
78+
79+Some text and
80+
81+\start\language[de]
82+German div contents
83+
84+\stop
85+
86+and more text.
87+
88+Next paragraph with a \start\language[en-gb]British span\stop and a
89+word-that-includesa\start\language[de-ch]Swiss German span\stop right?
90+
91+Some \start\language[es]Spanish text\stop .
92+
93+\section[combined]{Combined}
94+
95+Some text and
96+
97+\start\language[fr]
98+\startalignment[righttoleft]
99+French rtl div contents
100+
101+\stopalignment
102+\stop
103+
104+and more text.
105+
106+Next paragraph with a \start\language[en-gb]{\lefttoright British ltr
107+span}\stop and a
108+word-that-includesa\start\language[de-ch]{\lefttoright Swiss German ltr
109+span}\stop right?
110+
111+\stoptext
tests/writers-lang-and-dir.latexnew file+166
@@ -0,0 +1,166 @@
1+\documentclass[english,]{article}
2+\usepackage{lmodern}
3+\usepackage{amssymb,amsmath}
4+\usepackage{ifxetex,ifluatex}
5+\usepackage{fixltx2e} % provides \textsubscript
6+\ifnum 0\ifxetex 1\fi\ifluatex 1\fi=0 % if pdftex
7+ \usepackage[T1]{fontenc}
8+ \usepackage[utf8]{inputenc}
9+\else % if luatex or xelatex
10+ \ifxetex
11+ \usepackage{mathspec}
12+ \else
13+ \usepackage{fontspec}
14+ \fi
15+ \defaultfontfeatures{Mapping=tex-text,Scale=MatchLowercase}
16+ \newcommand{\euro}{€}
17+\fi
18+% use upquote if available, for straight quotes in verbatim environments
19+\IfFileExists{upquote.sty}{\usepackage{upquote}}{}
20+% use microtype if available
21+\IfFileExists{microtype.sty}{%
22+\usepackage{microtype}
23+\UseMicrotypeSet[protrusion]{basicmath} % disable protrusion for tt fonts
24+}{}
25+\makeatletter
26+\@ifpackageloaded{hyperref}{}{%
27+\ifxetex
28+ \usepackage[setpagesize=false, % page size defined by xetex
29+ unicode=false, % unicode breaks when used with xetex
30+ xetex]{hyperref}
31+\else
32+ \usepackage[unicode=true]{hyperref}
33+\fi
34+}
35+\@ifpackageloaded{color}{
36+ \PassOptionsToPackage{usenames,dvipsnames}{color}
37+}{%
38+ \usepackage[usenames,dvipsnames]{color}
39+}
40+\makeatother
41+\hypersetup{breaklinks=true,
42+ bookmarks=true,
43+ pdfauthor={},
44+ pdftitle={},
45+ colorlinks=true,
46+ citecolor=blue,
47+ urlcolor=blue,
48+ linkcolor=magenta,
49+ pdfborder={0 0 0}
50+ }
51+\urlstyle{same} % don't use monospace font for urls
52+\ifnum 0\ifxetex 1\fi\ifluatex 1\fi=0 % if pdftex
53+ \usepackage[shorthands=off,ngerman,british,ngerman,spanish,french,main=english]{babel}
54+ \newcommand{\textgerman}[2][]{\foreignlanguage{ngerman}{#2}}
55+ \newenvironment{german}[1]{\begin{otherlanguage}{ngerman}}{\end{otherlanguage}}
56+ \newcommand{\textenglish}[2][]{\foreignlanguage{british}{#2}}
57+ \newenvironment{english}[1]{\begin{otherlanguage}{british}}{\end{otherlanguage}}
58+ \let\oritextspanish\textspanish
59+ \AddBabelHook{spanish}{beforeextras}{\renewcommand{\textspanish}{\oritextspanish}}
60+ \AddBabelHook{spanish}{afterextras}{\renewcommand{\textspanish}[2][]{\foreignlanguage{spanish}{##2}}}
61+ \newcommand{\textfrench}[2][]{\foreignlanguage{french}{#2}}
62+ \newenvironment{french}[1]{\begin{otherlanguage}{french}}{\end{otherlanguage}}
63+\else
64+ \usepackage{polyglossia}
65+ \setmainlanguage[]{english}
66+ \setotherlanguage[]{german}
67+ \setotherlanguage[variant=british]{english}
68+ \setotherlanguage[variant=swiss]{german}
69+ \setotherlanguage[]{spanish}
70+ \setotherlanguage[]{french}
71+\fi
72+\setlength{\parindent}{0pt}
73+\setlength{\parskip}{6pt plus 2pt minus 1pt}
74+\setlength{\emergencystretch}{3em} % prevent overfull lines
75+\providecommand{\tightlist}{%
76+ \setlength{\itemsep}{0pt}\setlength{\parskip}{0pt}}
77+\setcounter{secnumdepth}{0}
78+\ifxetex
79+ % load bidi as late as possible as it modifies e.g. graphicx
80+ \usepackage{bidi}
81+ \fi
82+\ifnum 0\ifxetex 1\fi\ifluatex 1\fi=0 % if pdftex
83+ \TeXXeTstate=1
84+ \newcommand{\RL}[1]{\beginR #1\endR}
85+ \newcommand{\LR}[1]{\beginL #1\endL}
86+ \newenvironment{RTL}{\beginR}{\endR}
87+ \newenvironment{LTR}{\beginL}{\endL}
88+\fi
89+
90+\date{}
91+
92+% Redefines (sub)paragraphs to behave more like sections
93+\ifx\paragraph\undefined\else
94+\let\oldparagraph\paragraph
95+\renewcommand{\paragraph}[1]{\oldparagraph{#1}\mbox{}}
96+\fi
97+\ifx\subparagraph\undefined\else
98+\let\oldsubparagraph\subparagraph
99+\renewcommand{\subparagraph}[1]{\oldsubparagraph{#1}\mbox{}}
100+\fi
101+
102+\begin{document}
103+
104+\section{Empty Divs and Spans}\label{empty-divs-and-spans}
105+
106+Some text and
107+
108+div contents
109+
110+and more text.
111+
112+Next paragraph with a span and a word-thatincludesaspanright?
113+
114+\section{Directionality}\label{directionality}
115+
116+Some text and
117+
118+\begin{RTL}
119+rtl div contents
120+\end{RTL}
121+
122+and more text.
123+
124+\begin{LTR}
125+and a ltr div. with a \RL{rtl span}.
126+\end{LTR}
127+
128+Next paragraph with a \RL{rtl span} and a
129+word-that-includesa\LR{ltrspan}right?
130+
131+\section{Languages}\label{languages}
132+
133+Some text and
134+
135+\begin{german}
136+
137+German div contents
138+
139+\end{german}
140+
141+and more text.
142+
143+Next paragraph with a \textenglish[variant=british]{British span} and a
144+word-that-includesa\textgerman[variant=swiss]{Swiss German span}right?
145+
146+Some \textspanish{Spanish text}.
147+
148+\section{Combined}\label{combined}
149+
150+Some text and
151+
152+\begin{RTL}
153+\begin{french}
154+
155+French rtl div contents
156+
157+\end{french}
158+\end{RTL}
159+
160+and more text.
161+
162+Next paragraph with a \LR{\textenglish[variant=british]{British ltr
163+span}} and a word-that-includesa\LR{\textgerman[variant=swiss]{Swiss
164+German ltr span}}right?
165+
166+\end{document}
tests/writers-lang-and-dir.nativenew file+23
@@ -0,0 +1,23 @@
1+Pandoc (Meta {unMeta = fromList []})
2+[Header 1 ("empty-divs-and-spans",[],[]) [Str "Empty",Space,Str "Divs",Space,Str "and",Space,Str "Spans"]
3+,Plain [Str "Some",Space,Str "text",Space,Str "and"]
4+,Div ("",[],[]) [Para [Str "div",Space,Str "contents"]]
5+,Para [Str "and",Space,Str "more",Space,Str "text."]
6+,Para [Str "Next",Space,Str "paragraph",Space,Str "with",Space,Str "a",Space,Span ("",[],[]) [Str "span"],Space,Str "and",Space,Str "a",Space,Str "word-thatincludesa",Span ("",[],[]) [Str "span"],Str "right?"]
7+,Header 1 ("directionality",[],[]) [Str "Directionality"]
8+,Plain [Str "Some",Space,Str "text",Space,Str "and"]
9+,Div ("",[],[("dir","rtl")]) [Para [Str "rtl",Space,Str "div",Space,Str "contents"]]
10+,Para [Str "and",Space,Str "more",Space,Str "text."]
11+,Div ("",[],[("dir","ltr")]) [Para [Str "and",Space,Str "a",Space,Str "ltr",Space,Str "div.",Space,Str "with",Space,Str "a",Space,Span ("",[],[("dir","rtl")]) [Str "rtl",Space,Str "span"],Str "."]]
12+,Para [Str "Next",Space,Str "paragraph",Space,Str "with",Space,Str "a",Space,Span ("",[],[("dir","rtl")]) [Str "rtl",Space,Str "span"],Space,Str "and",Space,Str "a",Space,Str "word-that-includesa",Span ("",[],[("dir","ltr")]) [Str "ltrspan"],Str "right?"]
13+,Header 1 ("languages",[],[]) [Str "Languages"]
14+,Plain [Str "Some",Space,Str "text",Space,Str "and"]
15+,Div ("",[],[("lang","de")]) [Para [Str "German",Space,Str "div",Space,Str "contents"]]
16+,Para [Str "and",Space,Str "more",Space,Str "text."]
17+,Para [Str "Next",Space,Str "paragraph",Space,Str "with",Space,Str "a",Space,Span ("",[],[("lang","en-GB")]) [Str "British",Space,Str "span"],Space,Str "and",Space,Str "a",Space,Str "word-that-includesa",Span ("",[],[("lang","de-CH")]) [Str "Swiss",Space,Str "German",Space,Str "span"],Str "right?"]
18+,Para [Str "Some",Space,Span ("",[],[("lang","es")]) [Str "Spanish",Space,Str "text"],Str "."]
19+,Header 1 ("combined",[],[]) [Str "Combined"]
20+,Plain [Str "Some",Space,Str "text",Space,Str "and"]
21+,Div ("",[],[("lang","fr"),("dir","rtl")]) [Para [Str "French",Space,Str "rtl",Space,Str "div",Space,Str "contents"]]
22+,Para [Str "and",Space,Str "more",Space,Str "text."]
23+,Para [Str "Next",Space,Str "paragraph",Space,Str "with",Space,Str "a",Space,Span ("",[],[("lang","en-GB"),("dir","ltr")]) [Str "British",Space,Str "ltr",Space,Str "span"],Space,Str "and",Space,Str "a",Space,Str "word-that-includesa",Span ("",[],[("lang","de-CH"),("dir","ltr")]) [Str "Swiss",Space,Str "German",Space,Str "ltr",Space,Str "span"],Str "right?"]]