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