e85f3d8d27400419230f9c24598ad1af3a5a32f8
[librarian.git] / librarian / xslt / wl2tex.xslt
1 <?xml version="1.0" encoding="utf-8"?>
2 <!--
3  
4    This file is part of Librarian, licensed under GNU Affero GPLv3 or later.
5    Copyright © Fundacja Nowoczesna Polska. See NOTICE for more information.
6   
7 -->
8 <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
9     xmlns:wl="http://wolnelektury.pl/functions"
10     xmlns:dc="http://purl.org/dc/elements/1.1/"
11     xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" >
12
13 <xsl:output encoding="utf-8" indent="yes" version="2.0" />
14
15 <xsl:template match="utwor">
16     <TeXML xmlns="http://getfo.sourceforge.net/texml/ns1">
17         <TeXML escape="0">
18         \documentclass[a4paper, oneside, 11pt]{book}
19         \usepackage{wl}
20         </TeXML>
21
22         <xsl:choose>
23             <xsl:when test="@old-morefloats">
24                 <TeXML escape="0">
25                     \IfFileExists{morefloats.sty}{
26                         \usepackage{morefloats}
27                     }{}
28                 </TeXML>
29             </xsl:when>
30             <xsl:otherwise>
31                 <TeXML escape="0">
32                     \usepackage[maxfloats=64]{morefloats}
33                 </TeXML>
34             </xsl:otherwise>
35         </xsl:choose>
36
37         <xsl:apply-templates select="rdf:RDF" mode="titlepage" />
38         <xsl:apply-templates select="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" mode='titlepage' />
39
40         <env name="document">
41             <cmd name="maketitle" />
42
43             <xsl:choose>
44                 <xsl:when test="(powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny)/nazwa_utworu">
45                     <xsl:apply-templates select="(powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny)/autor_utworu" mode="title" />
46                     <!-- title in master -->
47                 </xsl:when>
48                 <xsl:otherwise>
49                     <!-- look for author title in dc -->
50                     <xsl:apply-templates select="rdf:RDF" mode="firstdctitle" />
51                     <xsl:apply-templates select="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" mode='firstdctitle' />
52                 </xsl:otherwise>
53             </xsl:choose>
54             <xsl:apply-templates select="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" />
55             <xsl:apply-templates select="utwor" mode="part" />
56         </env>
57     </TeXML>
58 </xsl:template>
59
60 <xsl:template match="utwor" mode="part">
61     <!-- title for empty dc -->
62     <xsl:choose>
63         <xsl:when test="(powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny)/nazwa_utworu">
64             <!-- title in master -->
65         </xsl:when>
66         <xsl:otherwise>
67             <!-- look for title in dc -->
68             <xsl:apply-templates select="rdf:RDF" mode="dctitle" />
69             <xsl:apply-templates select="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" mode='dctitle' />
70         </xsl:otherwise>
71     </xsl:choose>
72
73     <xsl:apply-templates select="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" />
74     <xsl:apply-templates select="utwor" mode="part" />
75 </xsl:template>
76
77 <!-- =================== -->
78 <!-- = MAIN TITLE PAGE = -->
79 <!-- = (from DC)       = -->
80 <!-- =================== -->
81
82 <xsl:template match="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" mode="titlepage">
83     <xsl:apply-templates select="rdf:RDF" mode="titlepage" />
84 </xsl:template>
85
86 <xsl:template match="rdf:RDF" mode="titlepage">
87     <cmd name='title'><parm>
88         <xsl:apply-templates select=".//dc:title/node()" mode="inline" />
89     </parm></cmd>
90     <cmd name='author'><parm>
91         <xsl:apply-templates select=".//dc:creator_parsed/node()" mode="inline" />
92     </parm></cmd>
93     <TeXML escape="0">
94         \def\sourceinfo{<TeXML escape="1"><xsl:apply-templates select=".//dc:source/node()" mode="inline" /></TeXML>}
95     </TeXML>
96 </xsl:template>
97
98
99 <!-- ============== -->
100 <!-- = BOOK TITLE = -->
101 <!-- = (from DC)  = -->
102 <!-- ============== -->
103
104 <xsl:template match="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" mode="dctitle">
105     <xsl:apply-templates select="rdf:RDF" mode="dctitle" />
106 </xsl:template>
107
108 <xsl:template match="rdf:RDF" mode="dctitle">
109     <cmd name="section*"><parm>
110         <xsl:value-of select=".//dc:title/text()" />
111     </parm></cmd>
112 </xsl:template>
113
114
115 <xsl:template match="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" mode="firstdctitle">
116     <xsl:apply-templates select="rdf:RDF" mode="firstdctitle" />
117 </xsl:template>
118
119 <xsl:template match="rdf:RDF" mode="firstdctitle">
120     <cmd name="subsection*"><parm>
121         <xsl:apply-templates select=".//dc:creator_parsed/node()" mode="inline" />
122     </parm></cmd>
123     <cmd name="section*"><parm>
124         <xsl:apply-templates select=".//dc:title/node()" mode="inline" />
125     </parm></cmd>
126 </xsl:template>
127
128
129 <!-- ============================================================================== -->
130 <!-- = MASTER TAG                                                                 = -->
131 <!-- = (can contain block tags, paragraph tags, standalone tags and special tags) = -->
132 <!-- ============================================================================== -->
133
134 <xsl:template match="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny">
135     <xsl:apply-templates />
136 </xsl:template>
137
138
139
140 <!-- ==================================================================================== -->
141 <!-- = BLOCK TAGS                                                                       = -->
142 <!-- = (can contain other block tags, paragraph tags, standalone tags and special tags) = -->
143 <!-- ==================================================================================== -->
144 <xsl:template match="nota">
145     <cmd name="par">
146         <parm><xsl:apply-templates /></parm>
147     </cmd>
148 </xsl:template>
149
150 <xsl:template match="lista_osob">
151     <cmd name="par"><parm>
152         <cmd name="textbf">
153             <parm><xsl:value-of select="naglowek_listy" /></parm>
154         </cmd>
155         <env name="itemize">
156             <xsl:apply-templates select="lista_osoba" />
157         </env>
158     </parm></cmd>
159 </xsl:template>
160
161 <xsl:template match="dedykacja">
162     <env name="em">
163         <env name="flushright">
164             <xsl:apply-templates/>
165         </env>
166     </env>
167 </xsl:template>
168
169 <xsl:template match="kwestia">
170     <cmd name="par">
171         <parm><xsl:apply-templates select="strofa|akap|didaskalia" /></parm>
172     </cmd>
173 </xsl:template>
174
175 <xsl:template match="dlugi_cytat">
176     <env name="quotation">
177         <xsl:apply-templates />
178     </env>
179 </xsl:template>
180
181 <xsl:template match="poezja_cyt">
182     <env name="verse">
183         <xsl:apply-templates />
184     </env>
185 </xsl:template>
186
187 <xsl:template match="motto">
188     <env name="em">
189         <xsl:apply-templates mode="inline" />
190     </env>
191 </xsl:template>
192
193
194 <!-- ========================================== -->
195 <!-- = PARAGRAPH TAGS                         = -->
196 <!-- = (can contain inline and special tags)  = -->
197 <!-- ========================================== -->
198
199 <!-- only in root -->
200 <xsl:template match="autor_utworu" mode="title">
201     <cmd name="subsection*"><parm>
202         <xsl:apply-templates mode="inline" />
203     </parm></cmd>
204 </xsl:template>
205
206 <xsl:template match="nazwa_utworu">
207     <cmd name="section*"><parm>
208         <xsl:apply-templates mode="inline" />
209     </parm></cmd>
210 </xsl:template>
211
212 <!-- Section headers (included in index)-->
213 <xsl:template match="naglowek_akt|naglowek_czesc|srodtytul">
214     <cmd name="subsection*">
215         <parm><xsl:apply-templates mode="inline" /></parm>
216     </cmd>
217 </xsl:template>
218
219 <xsl:template match="naglowek_scena|naglowek_rozdzial">
220     <cmd name="subsubsection*">
221         <parm><xsl:apply-templates mode="inline" /></parm>
222     </cmd>
223 </xsl:template>
224
225 <xsl:template match="naglowek_osoba|naglowek_podrozdzial">
226     <cmd name="par">
227         <parm><xsl:apply-templates mode="inline" /></parm>
228     </cmd><cmd name="nopagebreak" />
229 </xsl:template>
230
231 <!-- Other paragraph tags -->
232 <xsl:template match="miejsce_czas">
233     <cmd name="par"><parm>
234         <cmd name="emph">
235             <parm><xsl:apply-templates mode="inline" /></parm>
236         </cmd>
237     </parm></cmd>
238 </xsl:template>
239
240 <xsl:template match="didaskalia">
241     <cmd name="par"><parm>
242         <cmd name="emph">
243             <parm><xsl:apply-templates mode="inline" /></parm>
244         </cmd>
245     </parm></cmd>
246 </xsl:template>
247
248 <xsl:template match="lista_osoba">
249     <cmd name="item"><parm>
250         <xsl:apply-templates mode="inline" />
251     </parm></cmd>
252 </xsl:template>
253
254 <xsl:template match="akap|akap_dialog|akap_cd">
255     <cmd name="par"><parm>
256         <xsl:apply-templates mode="inline" />
257     </parm></cmd>
258 </xsl:template>
259
260 <xsl:template match="strofa">
261 <cmd name="par"><parm><cmd name="noindent"><parm>
262     <xsl:choose>
263         <xsl:when test="count(br) > 0">
264             <xsl:call-template name="verse">
265                 <xsl:with-param name="verse-content" select="br[1]/preceding-sibling::text() | br[1]/preceding-sibling::node()" />
266                 <xsl:with-param name="verse-type" select="br[1]/preceding-sibling::*[name() = 'wers_wciety' or name() = 'wers_akap' or name() = 'wers_cd'][1]" />
267             </xsl:call-template>
268             <xsl:for-each select="br">
269                 <TeXML escape="0">\\{}</TeXML>
270                 <!-- Each BR tag "consumes" text after it -->
271                 <xsl:variable name="lnum" select="count(preceding-sibling::br)" />
272                 <xsl:call-template name="verse">
273                     <xsl:with-param name="verse-content"
274                         select="following-sibling::text()[count(preceding-sibling::br) = $lnum+1] | following-sibling::node()[count(preceding-sibling::br) = $lnum+1]" />
275                     <xsl:with-param name="verse-type" select="following-sibling::*[count(preceding-sibling::br) = $lnum+1 and (name() = 'wers_wciety' or name() = 'wers_akap' or name() = 'wers_cd')][1]" />
276                 </xsl:call-template>
277             </xsl:for-each>
278         </xsl:when>
279         <xsl:otherwise>
280             <xsl:call-template name="verse">
281                 <xsl:with-param name="verse-content" select="text() | node()" />
282                 <xsl:with-param name="verse-type" select="wers_wciety|wers_akap|wers_cd[1]" />
283             </xsl:call-template>
284         </xsl:otherwise>
285     </xsl:choose>
286     <cmd name="vspace"><parm>1em</parm></cmd>
287 </parm></cmd></parm></cmd>
288 </xsl:template>
289
290
291 <xsl:template name="verse">
292     <xsl:param name="verse-content" />
293     <xsl:param name="verse-type" />
294         <xsl:choose><xsl:when test="name($verse-type) = 'wers_akap'"><cmd name="hspace" ><parm>1em</parm></cmd></xsl:when>
295             <xsl:when test="name($verse-type) = 'wers_wciety'">
296                 <xsl:choose>
297                     <xsl:when test="string($verse-content/@typ)">
298                         <cmd name="hspace" ><parm><xsl:value-of select="$verse-content/@typ" />em</parm></cmd>
299                     </xsl:when>
300                     <xsl:otherwise>
301                         <cmd name="hspace" ><parm>1em</parm></cmd>
302                     </xsl:otherwise>
303                 </xsl:choose>
304             </xsl:when>
305             <xsl:when test="name($verse-type) = 'wers_cd'">
306                 <cmd name="hspace" ><parm>8em</parm></cmd>
307             </xsl:when>
308         </xsl:choose>
309         <xsl:apply-templates select="$verse-content" mode="inline" />
310 </xsl:template>
311
312 <xsl:template match="motto_podpis">
313     <env name="em">
314         <env name="flushright">
315             <xsl:apply-templates mode="inline"/>
316         </env>
317     </env>
318 </xsl:template>
319
320 <!-- ================================================ -->
321 <!-- = INLINE TAGS                                  = -->
322 <!-- = (contain other inline tags and special tags) = -->
323 <!-- ================================================ -->
324
325 <!-- Annotations -->
326 <xsl:template match="pa|pe|pr|pt" mode="inline">
327     <cmd name="footnote"><parm><xsl:apply-templates mode="inline" /></parm></cmd>
328 </xsl:template>
329
330 <!-- Other inline tags -->
331 <xsl:template match="mat" mode="inline">
332     <math><xsl:apply-templates mode="inline" /></math>
333 </xsl:template>
334
335 <xsl:template match="didask_tekst" mode="inline">
336     <cmd name="emph"><parm><xsl:apply-templates mode="inline" /></parm></cmd>
337 </xsl:template>
338
339 <xsl:template match="slowo_obce" mode="inline">
340     <cmd name="emph"><parm><xsl:apply-templates mode="inline" /></parm></cmd>
341 </xsl:template>
342
343 <xsl:template match="tytul_dziela" mode="inline">
344     <cmd name="emph"><parm>
345         <xsl:if test="@typ = '1'">„</xsl:if><xsl:apply-templates mode="inline" /><xsl:if test="@typ = '1'">”</xsl:if>
346     </parm></cmd>
347 </xsl:template>
348
349 <xsl:template match="wyroznienie" mode="inline">
350     <cmd name="emph"><parm><xsl:apply-templates mode="inline" /></parm></cmd>
351 </xsl:template>
352
353 <xsl:template match="osoba" mode="inline">
354     <cmd name="textsc"><parm><xsl:apply-templates mode="inline" /></parm></cmd>
355 </xsl:template>
356
357
358 <!-- ============================================== -->
359 <!-- = STANDALONE TAGS                            = -->
360 <!-- = (cannot contain any other tags)            = -->
361 <!-- ============================================== -->
362 <xsl:template match="sekcja_swiatlo">
363     <cmd name="hspace"><parm>30pt</parm></cmd>
364 </xsl:template>
365
366 <xsl:template match="sekcja_asterysk">
367     <!-- TODO: padding? -->
368     <cmd name="par"><parm>*</parm></cmd>
369 </xsl:template>
370
371 <xsl:template match="separator_linia">
372     <cmd name="hrule" />
373 </xsl:template>
374
375
376
377 <!-- ================ -->
378 <!-- = SPECIAL TAGS = -->
379 <!-- ================ -->
380 <!-- Themes -->
381
382
383 <xsl:template match="begin|end|motyw">
384     <xsl:apply-templates select='.' mode="inline" />
385 </xsl:template>
386
387 <xsl:template match="begin" mode="inline" />
388 <xsl:template match="end" mode="inline" />
389
390 <xsl:template match="motyw" mode="inline">
391     <cmd name="mbox" />
392     <cmd name="marginpar">
393         <parm>
394             <cmd name="vspace"><parm>-8pt</parm></cmd>
395             <xsl:if test="@moved">
396                 <cmd name="vspace"><parm>-<xsl:value-of select="@moved" /><cmd name="baselineskip" /></parm></cmd>
397             </xsl:if>
398             <cmd name="raggedright"><parm>
399                 <cmd name="hspace"><parm>0pt</parm></cmd>
400                 <cmd name="footnotesize"><parm>
401                     <cmd name="color"><parm>theme</parm><parm>
402                         <xsl:value-of select="." />
403                     </parm></cmd>
404                 </parm></cmd>
405             </parm></cmd>
406         </parm>
407     </cmd>
408 </xsl:template>
409
410
411 <!-- ============== -->
412 <!-- = ADDED TAGS = -->
413 <!-- ============== -->
414
415
416 <xsl:template match="dywiz" mode="inline">
417     <cmd name="dywiz" />
418 </xsl:template>
419
420 <xsl:template match="nbsp" mode="inline">
421     <spec cat="tilde" />
422 </xsl:template>
423
424 <!-- ================ -->
425 <!-- = IGNORED TAGS = -->
426 <!-- ================ -->
427 <xsl:template match="extra|uwaga" />
428 <xsl:template match="extra|uwaga" mode="inline" />
429
430 <xsl:template match="nota_red" />
431
432 <!-- ======== -->
433 <!-- = TEXT = -->
434 <!-- ======== -->
435 <xsl:template match="text()" />
436 <xsl:template match="text()" mode="inline">
437     <xsl:if test="preceding-sibling::node() and wl:starts_white(.)">
438       <xsl:text> </xsl:text>
439     </xsl:if>
440
441     <xsl:value-of select="wl:substitute_entities(wl:strip(.))" />
442
443     <xsl:if test="following-sibling::node() and wl:ends_white(.)">
444       <xsl:text> </xsl:text>
445     </xsl:if>
446 </xsl:template>
447
448
449 </xsl:stylesheet>