4ca109e10470d0cfb65bf3db0fa32a8f592a2913
[librarian.git] / librarian / pdf / 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="@morefloats = 'new'">
24                 <TeXML escape="0">
25                     \usepackage[maxfloats=64]{morefloats}
26                 </TeXML>
27             </xsl:when>
28             <xsl:when test="@morefloats = 'old'">
29                 <TeXML escape="0">
30                     \usepackage{morefloats}
31                 </TeXML>
32             </xsl:when>
33             <xsl:when test="@morefloats = 'none'" />
34             <xsl:otherwise>
35                 <TeXML escape="0">
36                     \IfFileExists{morefloats.sty}{
37                         \usepackage{morefloats}
38                     }{}
39                 </TeXML>
40             </xsl:otherwise>
41         </xsl:choose>
42
43         <xsl:apply-templates select="rdf:RDF" mode="titlepage" />
44         <xsl:apply-templates select="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" mode='titlepage' />
45
46         <env name="document">
47             <cmd name="maketitle" />
48
49             <cmd name="tytul"><parm>
50               <xsl:choose>
51                 <xsl:when test="(powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny)/nazwa_utworu">
52                     <!-- title in master -->
53                     <xsl:apply-templates select="(powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny)/autor_utworu" mode="title" />
54                     <xsl:apply-templates select="(powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny)/dzielo_nadrzedne" mode="title" />
55                     <xsl:apply-templates select="(powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny)/nazwa_utworu" mode="title" />
56                     <xsl:apply-templates select="(powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny)/podtytul" mode="title" />
57                     <!-- dc in master or not -->
58                     <cmd name="translatorsline" />
59                 </xsl:when>
60                 <xsl:otherwise>
61                     <!-- look for author title in dc -->
62                     <xsl:apply-templates select="rdf:RDF" mode="firstdctitle" />
63                     <xsl:apply-templates select="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" mode='firstdctitle' />
64                 </xsl:otherwise>
65               </xsl:choose>
66             </parm></cmd>
67             <xsl:apply-templates select="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" />
68             <xsl:apply-templates select="utwor" mode="part" />
69             <cmd name="editorialsection" />
70         </env>
71     </TeXML>
72 </xsl:template>
73
74 <xsl:template match="utwor" mode="part">
75     <cmd name="tytul"><parm>
76       <xsl:choose>
77         <xsl:when test="(powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny)/nazwa_utworu">
78             <!-- title in master -->
79             <xsl:apply-templates select="(powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny)/nazwa_utworu" mode="title" />
80             <xsl:apply-templates select="(powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny)/podtytul" mode="title" />
81         </xsl:when>
82         <xsl:otherwise>
83             <!-- look for title in dc -->
84             <xsl:apply-templates select="rdf:RDF" mode="dctitle" />
85             <xsl:apply-templates select="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" mode='dctitle' />
86         </xsl:otherwise>
87       </xsl:choose>
88     </parm></cmd>
89
90     <xsl:apply-templates select="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" />
91     <xsl:apply-templates select="utwor" mode="part" />
92 </xsl:template>
93
94 <!-- =================== -->
95 <!-- = MAIN TITLE PAGE = -->
96 <!-- = (from DC)       = -->
97 <!-- =================== -->
98
99 <xsl:template match="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" mode="titlepage">
100     <xsl:apply-templates select="rdf:RDF" mode="titlepage" />
101 </xsl:template>
102
103 <xsl:template match="rdf:RDF" mode="titlepage">
104     <TeXML escape="0">
105         \def\authors{<xsl:call-template name="authors" />}
106         \author{\authors}
107         \title{<xsl:apply-templates select=".//dc:title" />}
108         \def\translatorsline{<xsl:call-template name="translators" />}
109
110         \def\bookurl{<xsl:value-of select=".//dc:identifier.url" />}
111
112         \def\rightsinfo{Ten utwór nie jest chroniony prawem autorskim i~znajduje się w~domenie
113             publicznej, co oznacza że możesz go swobodnie wykorzystywać, publikować
114             i~rozpowszechniać. Jeśli utwór opatrzony jest dodatkowymi materiałami
115             (przypisy, motywy literackie etc.), które podlegają prawu autorskiemu, to
116             te dodatkowe materiały udostępnione są na licencji
117             \href{http://creativecommons.org/licenses/by-sa/3.0/}{Creative Commons
118             Uznanie Autorstwa – Na Tych Samych Warunkach 3.0 PL}.}
119         <xsl:if test=".//dc:rights.license">
120             \def\rightsinfo{Ten utwór jest udostepniony na licencji
121             \href{<xsl:value-of select=".//dc:rights.license" />}{<xsl:value-of select=".//dc:rights" />}.}
122         </xsl:if>
123
124         \def\sourceinfo{
125             <xsl:if test=".//dc:source">
126                 Tekst opracowany na podstawie: <xsl:apply-templates select=".//dc:source" mode="inline" />
127                 \vspace{.6em}
128             </xsl:if>}
129         \def\description{<xsl:apply-templates select=".//dc:description" mode="inline" />}
130         \def\editors{<xsl:call-template name="editors" />}
131     </TeXML>
132 </xsl:template>
133
134
135 <!-- ============== -->
136 <!-- = BOOK TITLE = -->
137 <!-- = (from DC)  = -->
138 <!-- ============== -->
139
140 <xsl:template match="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" mode="dctitle">
141     <xsl:apply-templates select="rdf:RDF" mode="dctitle" />
142 </xsl:template>
143
144 <xsl:template match="rdf:RDF" mode="dctitle">
145     <cmd name="nazwapodutworu"><parm>
146         <xsl:apply-templates select=".//dc:title/node()" mode="inline" />
147     </parm></cmd>
148 </xsl:template>
149
150 <xsl:template match="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" mode="firstdctitle">
151     <xsl:apply-templates select="rdf:RDF" mode="firstdctitle" />
152 </xsl:template>
153
154 <xsl:template match="rdf:RDF" mode="firstdctitle">
155     <cmd name="autorutworu"><parm><cmd name="authors"/></parm></cmd>
156     <cmd name="nazwautworu"><parm>
157         <xsl:apply-templates select=".//dc:title/node()" mode="inline" />
158     </parm></cmd>
159     <cmd name="translatorsline" />
160 </xsl:template>
161
162
163 <!-- ============================================================================== -->
164 <!-- = MASTER TAG                                                                 = -->
165 <!-- = (can contain block tags, paragraph tags, standalone tags and special tags) = -->
166 <!-- ============================================================================== -->
167 <!-- ==================================================================================== -->
168 <!-- = BLOCK TAGS                                                                       = -->
169 <!-- = (can contain other block tags, paragraph tags, standalone tags and special tags) = -->
170 <!-- ==================================================================================== -->
171
172 <xsl:template 
173     match="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny|nota|dedykacja|dlugi_cytat|poezja_cyt|motto">
174     <cmd>
175         <xsl:attribute name="name">
176             <xsl:value-of select="wl:texcommand(name())" />
177         </xsl:attribute>
178         <parm><xsl:apply-templates/></parm>
179     </cmd>
180 </xsl:template>
181
182 <xsl:template match="lista_osob">
183     <cmd name="listaosob">
184         <parm><xsl:apply-templates select="naglowek_listy" /></parm>
185         <parm><xsl:apply-templates select="lista_osoba" /></parm>
186     </cmd>
187 </xsl:template>
188
189 <xsl:template match="kwestia">
190     <cmd name="kwestia">
191         <parm><xsl:apply-templates select="strofa|akap|didaskalia" /></parm>
192     </cmd>
193 </xsl:template>
194
195
196 <!-- ========================================== -->
197 <!-- = PARAGRAPH TAGS                         = -->
198 <!-- = (can contain inline and special tags)  = -->
199 <!-- ========================================== -->
200
201 <!-- only in root -->
202 <xsl:template 
203     match="autor_utworu|dzielo_nadrzedne|nazwa_utworu|podtytul"
204     mode="title">
205     <cmd>
206         <xsl:attribute name="name">
207             <xsl:value-of select="wl:texcommand(name())" />
208         </xsl:attribute>
209         <parm><xsl:apply-templates mode="inline"/></parm>
210     </cmd>
211 </xsl:template>
212
213
214 <xsl:template 
215     match="naglowek_akt|naglowek_czesc|srodtytul|naglowek_osoba|naglowek_podrozdzial|naglowek_scena|naglowek_rozdzial|miejsce_czas|didaskalia|lista_osoba|akap|akap_dialog|akap_cd|motto_podpis|naglowek_listy">
216     <cmd>
217         <xsl:attribute name="name">
218             <xsl:value-of select="wl:texcommand(name())" />
219         </xsl:attribute>
220         <parm><xsl:apply-templates mode="inline"/></parm>
221     </cmd>
222 </xsl:template>
223
224 <xsl:template match="strofa">
225   <cmd name="strofa"><parm>
226     <xsl:choose>
227         <xsl:when test="count(br) > 0">
228             <xsl:call-template name="verse">
229                 <xsl:with-param name="verse-content" select="br[1]/preceding-sibling::text() | br[1]/preceding-sibling::node()" />
230                 <xsl:with-param name="verse-type" select="br[1]/preceding-sibling::*[name() = 'wers_wciety' or name() = 'wers_akap' or name() = 'wers_cd'][1]" />
231             </xsl:call-template>
232             <xsl:for-each select="br">
233                 <TeXML escape="0">\\{}</TeXML>
234                 <!-- Each BR tag "consumes" text after it -->
235                 <xsl:variable name="lnum" select="count(preceding-sibling::br)" />
236                 <xsl:call-template name="verse">
237                     <xsl:with-param name="verse-content"
238                         select="following-sibling::text()[count(preceding-sibling::br) = $lnum+1] | following-sibling::node()[count(preceding-sibling::br) = $lnum+1]" />
239                     <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]" />
240                 </xsl:call-template>
241             </xsl:for-each>
242         </xsl:when>
243         <xsl:otherwise>
244             <xsl:call-template name="verse">
245                 <xsl:with-param name="verse-content" select="text() | node()" />
246                 <xsl:with-param name="verse-type" select="wers_wciety|wers_akap|wers_cd[1]" />
247             </xsl:call-template>
248         </xsl:otherwise>
249     </xsl:choose>
250   </parm></cmd>
251 </xsl:template>
252
253
254 <xsl:template name="verse">
255     <xsl:param name="verse-content" />
256     <xsl:param name="verse-type" />
257
258     <cmd>
259         <xsl:attribute name="name">
260             <xsl:choose>
261                 <xsl:when test="$verse-type != ''">
262                     <xsl:value-of select='wl:texcommand(name($verse-type))' />
263                 </xsl:when>
264                 <xsl:otherwise>wers</xsl:otherwise>
265             </xsl:choose>
266         </xsl:attribute>
267         <xsl:if test="string($verse-content/@typ)">
268             <opt><xsl:value-of select="$verse-content/@typ" />em</opt>
269         </xsl:if>
270         <parm><xsl:apply-templates select="$verse-content" mode="inline"/></parm>
271     </cmd>
272 </xsl:template>
273
274 <!-- ================================================ -->
275 <!-- = INLINE TAGS                                  = -->
276 <!-- = (contain other inline tags and special tags) = -->
277 <!-- ================================================ -->
278
279 <xsl:template mode="inline"
280     match="pa|pe|pr|pt|mat|didask_tekst|slowo_obce|wyroznienie|osoba">
281     <cmd>
282         <xsl:attribute name="name">
283             <xsl:value-of select="wl:texcommand(name())" />
284         </xsl:attribute>
285         <parm><xsl:apply-templates mode="inline"/></parm>
286     </cmd>
287 </xsl:template>
288
289
290
291 <xsl:template match="tytul_dziela" mode="inline">
292     <cmd name="tytuldziela"><parm>
293         <xsl:if test="@typ = '1'">„</xsl:if><xsl:apply-templates mode="inline" /><xsl:if test="@typ = '1'">”</xsl:if>
294     </parm></cmd>
295 </xsl:template>
296
297
298
299 <!-- ============================================== -->
300 <!-- = STANDALONE TAGS                            = -->
301 <!-- = (cannot contain any other tags)            = -->
302 <!-- ============================================== -->
303 <xsl:template
304     match="sekcja_swiatlo|sekcja_asterysk|separator_linia">
305     <cmd>
306         <xsl:attribute name="name">
307             <xsl:value-of select="wl:texcommand(name())" />
308         </xsl:attribute>
309     </cmd>
310 </xsl:template>
311
312
313 <!-- ================ -->
314 <!-- = SPECIAL TAGS = -->
315 <!-- ================ -->
316 <!-- Themes -->
317
318
319 <xsl:template match="begin|end|motyw">
320     <xsl:apply-templates select='.' mode="inline" />
321 </xsl:template>
322
323 <xsl:template match="begin" mode="inline" />
324 <xsl:template match="end" mode="inline" />
325
326 <xsl:template match="motyw" mode="inline">
327     <cmd name="motyw">
328         <xsl:if test="@moved">
329             <opt name="moved"><xsl:value-of select="@moved" /></opt>
330         </xsl:if>
331         <parm><xsl:apply-templates mode="inline" /></parm>
332     </cmd>
333 </xsl:template>
334
335 <xsl:template name="authors">
336     <xsl:for-each select=".//dc:creator_parsed">
337         <xsl:if test="position() != 1">, </xsl:if>
338         <xsl:apply-templates mode="inline" />
339     </xsl:for-each>
340 </xsl:template>
341
342 <xsl:template name="editors">
343     <xsl:for-each select=".//dc:contributor.editor_parsed|.//dc:contributor.technical_editor_parsed">
344         <xsl:if test="position() != 1">, </xsl:if>
345         <xsl:apply-templates mode="inline" />
346     </xsl:for-each>
347 </xsl:template>
348
349 <xsl:template name="translators">
350     <xsl:if test=".//dc:contributor.translator_parsed">
351         <cmd name='translator'><parm>
352             <xsl:for-each select=".//dc:contributor.translator_parsed">
353                 <xsl:if test="position() != 1">, </xsl:if>
354                 <xsl:apply-templates mode="inline" />
355             </xsl:for-each>
356         </parm></cmd>
357     </xsl:if>
358 </xsl:template>
359
360
361 <!-- ============== -->
362 <!-- = ADDED TAGS = -->
363 <!-- ============== -->
364
365
366 <xsl:template match="dywiz" mode="inline">
367     <cmd name="dywiz" />
368 </xsl:template>
369
370 <xsl:template match="nbsp" mode="inline">
371     <spec cat="tilde" />
372 </xsl:template>
373
374 <xsl:template match="alien" mode="inline">
375     <group>
376         <cmd name="alien" />
377         <xsl:apply-templates mode="inline" />
378     </group>
379 </xsl:template>
380
381 <!-- ================ -->
382 <!-- = IGNORED TAGS = -->
383 <!-- ================ -->
384 <xsl:template match="extra|uwaga" />
385 <xsl:template match="extra|uwaga" mode="inline" />
386
387 <xsl:template match="nota_red" />
388
389 <!-- ======== -->
390 <!-- = TEXT = -->
391 <!-- ======== -->
392 <xsl:template match="text()" />
393 <xsl:template match="text()" mode="inline">
394     <xsl:if test="preceding-sibling::node() and wl:starts_white(.)">
395       <xsl:text> </xsl:text>
396     </xsl:if>
397
398     <xsl:value-of select="wl:substitute_entities(wl:strip(.))" />
399
400     <xsl:if test="following-sibling::node() and wl:ends_white(.)">
401       <xsl:text> </xsl:text>
402     </xsl:if>
403 </xsl:template>
404
405
406 </xsl:stylesheet>