initial, incomplete pdf support
authorRadek Czajka <radoslaw.czajka@nowoczesnapolska.org.pl>
Wed, 15 Sep 2010 10:41:39 +0000 (12:41 +0200)
committerRadek Czajka <radoslaw.czajka@nowoczesnapolska.org.pl>
Wed, 15 Sep 2010 10:41:39 +0000 (12:41 +0200)
librarian/functions.py [new file with mode: 0644]
librarian/html.py
librarian/parser.py
librarian/pdf.py [new file with mode: 0644]
librarian/text.py
librarian/xslt/wl2tex.xslt [new file with mode: 0644]

diff --git a/librarian/functions.py b/librarian/functions.py
new file mode 100644 (file)
index 0000000..6d52b84
--- /dev/null
@@ -0,0 +1,65 @@
+# -*- coding: utf-8 -*-
+#
+# This file is part of Librarian, licensed under GNU Affero GPLv3 or later.
+# Copyright © Fundacja Nowoczesna Polska. See NOTICE for more information.
+#
+from lxml import etree
+import re
+
+def _register_function(f):
+    """ Register extension function with lxml """
+    ns = etree.FunctionNamespace('http://wolnelektury.pl/functions')
+    ns[f.__name__] = f
+
+
+def reg_substitute_entities(): 
+    ENTITY_SUBSTITUTIONS = [
+        (u'---', u'—'),
+        (u'--', u'–'),
+        (u'...', u'…'),
+        (u',,', u'„'),
+        (u'"', u'”'),
+    ]
+
+    def substitute_entities(context, text):
+        """XPath extension function converting all entites in passed text."""
+        if isinstance(text, list):
+            text = ''.join(text)
+        for entity, substitutution in ENTITY_SUBSTITUTIONS:
+            text = text.replace(entity, substitutution)
+        return text
+
+    _register_function(substitute_entities)
+
+
+def reg_strip():
+    def strip(context, text):
+        """Remove unneeded whitespace from beginning and end"""
+        if isinstance(text, list):
+            text = ''.join(text)
+        return re.sub(r'\s+', ' ', text).strip()
+    _register_function(strip)
+
+
+def reg_wrap_words():
+    def wrap_words(context, text, wrapping):
+        """XPath extension function automatically wrapping words in passed text"""
+        if isinstance(text, list):
+            text = ''.join(text)
+        if not wrapping:
+            return text
+    
+        words = re.split(r'\s', text)
+    
+        line_length = 0
+        lines = [[]]
+        for word in words:
+            line_length += len(word) + 1
+            if line_length > wrapping:
+                # Max line length was exceeded. We create new line
+                lines.append([])
+                line_length = len(word)
+            lines[-1].append(word)
+        return '\n'.join(' '.join(line) for line in lines)
+    _register_function(wrap_words)
+
index 92fc134..3912fbc 100644 (file)
@@ -11,16 +11,11 @@ import copy
 from lxml import etree
 from librarian.parser import WLDocument
 from librarian import XHTMLNS, ParseError
 from lxml import etree
 from librarian.parser import WLDocument
 from librarian import XHTMLNS, ParseError
+from librarian import functions
 
 from lxml.etree import XMLSyntaxError, XSLTApplyError
 
 
 from lxml.etree import XMLSyntaxError, XSLTApplyError
 
-ENTITY_SUBSTITUTIONS = [
-    (u'---', u'—'),
-    (u'--', u'–'),
-    (u'...', u'…'),
-    (u',,', u'„'),
-    (u'"', u'”'),
-]
+functions.reg_substitute_entities()
 
 STYLESHEETS = {
     'legacy': 'xslt/book2html.xslt',
 
 STYLESHEETS = {
     'legacy': 'xslt/book2html.xslt',
@@ -31,18 +26,6 @@ STYLESHEETS = {
 def get_stylesheet(name):
     return os.path.join(os.path.dirname(__file__), STYLESHEETS[name])
 
 def get_stylesheet(name):
     return os.path.join(os.path.dirname(__file__), STYLESHEETS[name])
 
-def substitute_entities(context, text):
-    """XPath extension function converting all entites in passed text."""
-    if isinstance(text, list):
-        text = ''.join(text)
-    for entity, substitutution in ENTITY_SUBSTITUTIONS:
-        text = text.replace(entity, substitutution)
-    return text
-
-# Register substitute_entities function with lxml
-ns = etree.FunctionNamespace('http://wolnelektury.pl/functions')
-ns['substitute_entities'] = substitute_entities
-
 def html_has_content(text):
     return etree.ETXPath('//p|//{%(ns)s}p|//h1|//{%(ns)s}h1' % {'ns': str(XHTMLNS)})(text)
 
 def html_has_content(text):
     return etree.ETXPath('//p|//{%(ns)s}p|//h1|//{%(ns)s}h1' % {'ns': str(XHTMLNS)})(text)
 
index 2cd86ab..b470957 100644 (file)
@@ -38,11 +38,11 @@ class WLDocument(object):
             self.book_info = None
 
     @classmethod
             self.book_info = None
 
     @classmethod
-    def from_string(cls, xml, swap_endlines=False, parse_dublincore=True):
-        return cls.from_file(StringIO(xml), swap_endlines, parse_dublincore=parse_dublincore)
+    def from_string(cls, xml, *args, **kwargs):
+        return cls.from_file(StringIO(xml), *args, **kwargs)
 
     @classmethod
 
     @classmethod
-    def from_file(cls, xmlfile, swap_endlines=False, parse_dublincore=True):
+    def from_file(cls, xmlfile, swap_endlines=False, parse_dublincore=True, preserve_lines=True):
 
         # first, prepare for parsing
         if isinstance(xmlfile, basestring):
 
         # first, prepare for parsing
         if isinstance(xmlfile, basestring):
@@ -58,7 +58,10 @@ class WLDocument(object):
             data = data.decode('utf-8')
 
         if swap_endlines:
             data = data.decode('utf-8')
 
         if swap_endlines:
-            data = cls.LINE_SWAP_EXPR.sub(u'<br />\n', data)
+            sub = u'<br/>'
+            if preserve_lines:
+                sub += u'\n'
+            data = cls.LINE_SWAP_EXPR.sub(sub, data)
 
         try:
             parser = etree.XMLParser(remove_blank_text=False)
 
         try:
             parser = etree.XMLParser(remove_blank_text=False)
diff --git a/librarian/pdf.py b/librarian/pdf.py
new file mode 100644 (file)
index 0000000..169d661
--- /dev/null
@@ -0,0 +1,157 @@
+# -*- coding: utf-8 -*-
+#
+# This file is part of Librarian, licensed under GNU Affero GPLv3 or later.
+# Copyright © Fundacja Nowoczesna Polska. See NOTICE for more information.
+#
+import os
+import os.path
+import shutil
+from StringIO import StringIO
+from tempfile import mkdtemp
+import re
+
+from Texml.processor import process
+from lxml import etree
+from lxml.etree import XMLSyntaxError, XSLTApplyError
+
+from librarian.parser import WLDocument
+from librarian import ParseError
+from librarian import functions
+
+functions.reg_substitute_entities()
+
+STYLESHEETS = {
+    'wl2tex': 'xslt/wl2tex.xslt',
+}
+
+
+def insert_tags(doc, split_re, tagname):
+    print tagname
+    for elem in doc.iter():
+        if elem.text:
+            chunks = split_re.split(elem.text)
+            elem.text = chunks.pop(0)
+            while chunks:
+                ins = etree.Element(tagname)
+                ins.tail = chunks.pop()
+                elem.insert(0, ins)
+        if elem.tail:
+            chunks = split_re.split(elem.tail)
+            parent = elem.getparent()
+            ins_index = parent.index(elem) + 1
+            elem.tail = chunks.pop(0)
+            while chunks:
+                ins = etree.Element(tagname)
+                ins.tail = chunks.pop(0)
+                parent.insert(ins_index, ins)
+
+
+def substitute_hyphens(doc):
+    insert_tags(doc, 
+                re.compile("(?<=[^-\s])-(?=[^-\s])"),
+                "dywiz")
+
+
+def fix_hanging(doc):
+    insert_tags(doc, 
+                re.compile("(?<=\s\w)\s+"),
+                "nbsp")
+
+
+def get_stylesheet(name):
+    return os.path.join(os.path.dirname(__file__), STYLESHEETS[name])
+
+def transform(provider, slug, output_file=None, output_dir=None):
+    """ produces a pdf file
+
+    provider is a DocProvider
+    either output_file (a file-like object) or output_dir (path to file/dir) should be specified
+    if output_dir is specified, file will be written to <output_dir>/<author>/<slug>.pdf
+    """
+
+    # Parse XSLT
+    try:
+        style_filename = get_stylesheet("wl2tex")
+        style = etree.parse(style_filename)
+
+        document = load_including_children(provider, slug)
+
+        substitute_hyphens(document.edoc)
+        fix_hanging(document.edoc)
+        
+        print etree.tostring(document.edoc)
+
+        # if output to dir, create the file
+        if output_dir is not None:
+            author = unicode(document.book_info.author)
+            output_dir = os.path.join(output_dir, author)
+
+        texml = document.transform(style)
+        del document # no longer needed large object :)
+
+        temp = mkdtemp('wl2pdf-')
+        tex_path = os.path.join(temp, 'doc.tex')
+        fout = open(tex_path, 'w')
+        process(StringIO(texml), fout, 'utf8', 255, 0, 0)
+        fout.close()
+        del texml
+
+        print "pdflatex -output-directory %s %s" % (temp, os.path.join(temp, 'doc.tex'))
+        if os.system("pdflatex -output-directory %s %s" % (temp, os.path.join(temp, 'doc.tex'))):
+            raise ParseError("Error parsing .tex file")
+
+        pdf_path = os.path.join(temp, 'doc.pdf')
+        if output_dir is not None:
+            try:
+                os.makedirs(output_dir)
+            except OSError:
+                pass
+            output_path = os.path.join(output_dir, '%s.pdf' % slug)
+            shutil.move(pdf_path, output_path)
+        else:
+            with open(pdf_path) as f:
+                output_file.write(f.read())
+            output_file.close()
+
+        return True
+    except (XMLSyntaxError, XSLTApplyError), e:
+        raise ParseError(e)
+
+
+def load_including_children(provider, slug=None, uri=None):
+    """ makes one big xml file with children inserted at end 
+    either slug or uri must be provided
+    """
+
+    if uri:
+        f = provider.by_uri(uri)
+    elif slug:
+        f = provider[slug]
+    else:
+        raise ValueError('Neither slug nor URI provided for a book.')
+
+    document = WLDocument.from_file(f, True,
+        parse_dublincore=True,
+        preserve_lines=False)
+
+    for child_uri in document.book_info.parts:
+        child = load_including_children(provider, uri=child_uri)
+        document.edoc.getroot().append(child.edoc.getroot())
+
+    return document
+
+
+if __name__ == '__main__':
+    import sys
+    from librarian import DirDocProvider
+
+    if len(sys.argv) < 2:
+        print >> sys.stderr, 'Usage: python pdf.py <input file>'
+        sys.exit(1)
+
+    main_input = sys.argv[1]
+    basepath, ext = os.path.splitext(main_input)
+    path, slug = os.path.realpath(basepath).rsplit('/', 1)
+    provider = DirDocProvider(path)
+    transform(provider, slug, output_dir=path)
+
index a6acd8a..b7fbad6 100644 (file)
@@ -3,7 +3,7 @@
 # This file is part of Librarian, licensed under GNU Affero GPLv3 or later.
 # Copyright © Fundacja Nowoczesna Polska. See NOTICE for more information.
 #
 # This file is part of Librarian, licensed under GNU Affero GPLv3 or later.
 # Copyright © Fundacja Nowoczesna Polska. See NOTICE for more information.
 #
-from librarian import dcparser, parser
+from librarian import dcparser, parser, functions
 from lxml import etree
 import cStringIO
 import codecs
 from lxml import etree
 import cStringIO
 import codecs
@@ -11,14 +11,9 @@ import os
 import re
 
 
 import re
 
 
-ENTITY_SUBSTITUTIONS = [
-    (u'---', u'—'),
-    (u'--', u'–'),
-    (u'...', u'…'),
-    (u',,', u'„'),
-    (u'"', u'”'),
-]
-
+functions.reg_substitute_entities()
+functions.reg_wrap_words()
+functions.reg_split()
 
 TEMPLATE = u"""\
 Kodowanie znaków w dokumencie: UTF-8.
 
 TEMPLATE = u"""\
 Kodowanie znaków w dokumencie: UTF-8.
@@ -35,51 +30,6 @@ Wersja lektury w opracowaniu merytorycznym i krytycznym (przypisy i motywy) dost
 %(text)s
 """
 
 %(text)s
 """
 
-
-def strip(context, text):
-    """Remove unneeded whitespace from beginning and end"""
-    if isinstance(text, list):
-        text = ''.join(text)
-    return re.sub(r'\s+', ' ', text).strip()
-
-
-def substitute_entities(context, text):
-    """XPath extension function converting all entites in passed text."""
-    if isinstance(text, list):
-        text = ''.join(text)
-    for entity, substitutution in ENTITY_SUBSTITUTIONS:
-        text = text.replace(entity, substitutution)
-    return text
-
-
-def wrap_words(context, text, wrapping):
-    """XPath extension function automatically wrapping words in passed text"""
-    if isinstance(text, list):
-        text = ''.join(text)
-    if not wrapping:
-        return text
-
-    words = re.split(r'\s', text)
-
-    line_length = 0
-    lines = [[]]
-    for word in words:
-        line_length += len(word) + 1
-        if line_length > wrapping:
-            # Max line length was exceeded. We create new line
-            lines.append([])
-            line_length = len(word)
-        lines[-1].append(word)
-    return '\n'.join(' '.join(line) for line in lines)
-
-
-# Register substitute_entities function with lxml
-ns = etree.FunctionNamespace('http://wolnelektury.pl/functions')
-ns['strip'] = strip
-ns['substitute_entities'] = substitute_entities
-ns['wrap_words'] = wrap_words
-
-
 def transform(input_filename, output_filename, is_file=True, parse_dublincore=True, **options):
     """Transforms file input_filename in XML to output_filename in TXT."""
     # Parse XSLT
 def transform(input_filename, output_filename, is_file=True, parse_dublincore=True, **options):
     """Transforms file input_filename in XML to output_filename in TXT."""
     # Parse XSLT
diff --git a/librarian/xslt/wl2tex.xslt b/librarian/xslt/wl2tex.xslt
new file mode 100644 (file)
index 0000000..74292a7
--- /dev/null
@@ -0,0 +1,407 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!--
+   This file is part of Librarian, licensed under GNU Affero GPLv3 or later.
+   Copyright © Fundacja Nowoczesna Polska. See NOTICE for more information.
+  
+-->
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+    xmlns:wl="http://wolnelektury.pl/functions"
+    xmlns:dc="http://purl.org/dc/elements/1.1/"
+    xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" >
+
+<xsl:output encoding="utf-8" indent="yes" version="2.0" />
+
+
+<xsl:template match="utwor">
+    <TeXML xmlns="http://getfo.sourceforge.net/texml/ns1">
+        <TeXML escape="0">
+        \documentclass[a4paper, oneside, 11pt]{book}
+        \usepackage[MeX]{polski}
+        \usepackage[utf8]{inputenc}
+        \pagestyle{plain}
+        \usepackage{antpolt}
+        \usepackage[bottom]{footmisc}
+
+        \usepackage{color}
+        \definecolor{theme-gray}{gray}{.3}
+
+
+        \setlength{\marginparsep}{2em}
+        \setlength{\marginparwidth}{8.5em}
+        \setlength{\oddsidemargin}{0pt}
+        \clubpenalty=10000
+        \widowpenalty=10000 
+        </TeXML>
+
+        <xsl:apply-templates select="rdf:RDF" mode='title' />
+        <xsl:apply-templates select="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" mode='title' />
+
+        <env name="document">
+            <cmd name="maketitle" />
+            <xsl:apply-templates select="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" />
+            <xsl:apply-templates select="utwor" mode="part" />
+        </env>
+    </TeXML>
+</xsl:template>
+
+<xsl:template match="utwor" mode="part">
+    <xsl:if test="utwor">
+        <xsl:apply-templates select="rdf:RDF" mode='subtitle' />
+        <xsl:apply-templates select="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" mode='subtitle' />
+    </xsl:if>
+    <xsl:apply-templates select="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" />
+    <xsl:apply-templates select="utwor" mode="part" />
+</xsl:template>
+
+
+<!-- ============================================================================== -->
+<!-- = MASTER TAG                                                                 = -->
+<!-- = (can contain block tags, paragraph tags, standalone tags and special tags) = -->
+<!-- ============================================================================== -->
+
+<xsl:template match="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" mode="title">
+    <xsl:apply-templates select="rdf:RDF" mode='title' />
+</xsl:template>
+
+<xsl:template match="rdf:RDF" mode="title">
+
+<!-- TODO!
+            <cmd name='title'><parm>
+                <xsl:apply-templates select="dzielo_nadrzedne|podtytul" mode="header" />
+            </parm></cmd>
+            czytanie z tagów nazwa_utworu, autor_utworu
+-->
+
+                <cmd name='title'><parm>
+                    <xsl:apply-templates select=".//dc:title" mode="header" />
+                </parm></cmd>
+                <cmd name='author'><parm>
+                    <xsl:apply-templates select=".//dc:author" mode="header" />
+                </parm></cmd>
+</xsl:template>
+
+<xsl:template match="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny" mode="subtitle">
+    <xsl:apply-templates select="rdf:RDF" mode='subtitle' />
+</xsl:template>
+
+<xsl:template match="rdf:RDF" mode="subtitle">
+                <cmd name='part*'><parm>
+                    <xsl:apply-templates select=".//dc:title" mode="header" />
+                </parm></cmd>
+</xsl:template>
+
+
+
+<xsl:template match="powiesc|opowiadanie|liryka_l|liryka_lp|dramat_wierszowany_l|dramat_wierszowany_lp|dramat_wspolczesny">
+    <xsl:apply-templates />
+</xsl:template>
+
+
+
+<!-- ==================================================================================== -->
+<!-- = BLOCK TAGS                                                                       = -->
+<!-- = (can contain other block tags, paragraph tags, standalone tags and special tags) = -->
+<!-- ==================================================================================== -->
+<xsl:template match="nota">
+    <cmd name="par">
+        <parm><xsl:apply-templates /></parm>
+    </cmd>
+</xsl:template>
+
+<xsl:template match="lista_osob">
+    <cmd name="par">
+        <cmd name="textbf">
+            <parm><xsl:value-of select="naglowek_listy" /></parm>
+        </cmd>
+        <env name="itemize">
+            <xsl:apply-templates select="lista_osoba" />
+        </env>
+    </cmd>
+</xsl:template>
+
+<xsl:template match="dedykacja">
+    <cmd name="raggedleft"><parm>
+        <env name="em">
+            <xsl:apply-templates />
+        </env>
+    </parm></cmd>
+</xsl:template>
+
+<xsl:template match="kwestia">
+    <cmd name="par">
+        <parm><xsl:apply-templates select="strofa|akap|didaskalia" /></parm>
+    </cmd>
+</xsl:template>
+
+<xsl:template match="dlugi_cytat">
+    <env name="quotation">
+        <xsl:apply-templates />
+    </env>
+</xsl:template>
+
+<xsl:template match="poezja_cyt">
+    <env name="verse">
+        <xsl:apply-templates />
+    </env>
+</xsl:template>
+
+<xsl:template match="motto">
+    <env name="em">
+        <xsl:apply-templates mode="inline" />
+    </env>
+</xsl:template>
+
+
+<!-- ========================================== -->
+<!-- = PARAGRAPH TAGS                         = -->
+<!-- = (can contain inline and special tags)  = -->
+<!-- ========================================== -->
+<!-- Title page -->
+<xsl:template match="autor_utworu" mode="header">
+    <xsl:apply-templates mode="inline" />
+</xsl:template>
+
+<xsl:template match="nazwa_utworu" mode="header">
+    <xsl:apply-templates mode="inline" />
+</xsl:template>
+
+<xsl:template match="dzielo_nadrzedne" mode="header">
+    <xsl:apply-templates mode="inline" />
+</xsl:template>
+
+<xsl:template match="podtytul" mode="header">
+    <xsl:apply-templates mode="inline" />
+</xsl:template>
+
+
+<xsl:template match="nazwa_utworu">
+    <cmd name="pagebreak" />
+    <cmd name="section*"><parm>
+        <xsl:apply-templates mode="inline" />
+    </parm></cmd>
+</xsl:template>
+
+<!-- Section headers (included in index)-->
+<xsl:template match="naglowek_akt|naglowek_czesc|srodtytul">
+    <cmd name="subsection*">
+        <parm><xsl:apply-templates mode="inline" /></parm>
+    </cmd>
+</xsl:template>
+
+<xsl:template match="naglowek_scena|naglowek_rozdzial">
+    <cmd name="subsubsection*">
+        <parm><xsl:apply-templates mode="inline" /></parm>
+    </cmd>
+</xsl:template>
+
+<xsl:template match="naglowek_osoba|naglowek_podrozdzial">
+    <cmd name="paragraph*">
+        <parm><xsl:apply-templates mode="inline" /></parm>
+    </cmd>
+</xsl:template>
+
+<!-- Other paragraph tags -->
+<xsl:template match="miejsce_czas">
+    <cmd name="par"><parm>
+        <cmd name="emph">
+            <parm><xsl:apply-templates mode="inline" /></parm>
+        </cmd>
+    </parm></cmd>
+</xsl:template>
+
+<xsl:template match="didaskalia">
+    <cmd name="par"><parm>
+        <cmd name="emph">
+            <parm><xsl:apply-templates mode="inline" /></parm>
+        </cmd>
+    </parm></cmd>
+</xsl:template>
+
+<xsl:template match="lista_osoba">
+    <cmd name="item"><parm>
+        <xsl:apply-templates mode="inline" />
+    </parm></cmd>
+</xsl:template>
+
+<xsl:template match="akap|akap_dialog|akap_cd">
+    <cmd name="par"><parm>
+        <xsl:apply-templates mode="inline" />
+    </parm></cmd>
+</xsl:template>
+
+<xsl:template match="strofa">
+<cmd name="par"><parm><cmd name="noindent"><parm>
+            <xsl:choose>
+            <xsl:when test="count(br) > 0">
+                <xsl:call-template name="verse">
+                    <xsl:with-param name="verse-content" select="br[1]/preceding-sibling::text() | br[1]/preceding-sibling::node()" />
+                    <xsl:with-param name="verse-type" select="br[1]/preceding-sibling::*[name() = 'wers_wciety' or name() = 'wers_akap' or name() = 'wers_cd'][1]" />
+                </xsl:call-template>
+                <xsl:for-each select="br">
+                    <cmd name="newline" />
+                    <!-- Each BR tag "consumes" text after it -->
+                    <xsl:variable name="lnum" select="count(preceding-sibling::br)" />
+                    <xsl:call-template name="verse">
+                        <xsl:with-param name="verse-content"
+                            select="following-sibling::text()[count(preceding-sibling::br) = $lnum+1] | following-sibling::node()[count(preceding-sibling::br) = $lnum+1]" />
+                        <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]" />
+                    </xsl:call-template>
+                </xsl:for-each>
+            </xsl:when>
+            <xsl:otherwise>
+                <xsl:call-template name="verse">
+                    <xsl:with-param name="verse-content" select="text() | node()" />
+                    <xsl:with-param name="verse-type" select="wers_wciety|wers_akap|wers_cd[1]" />
+                 </xsl:call-template>
+            </xsl:otherwise>
+        </xsl:choose>
+    <cmd name="vspace"><parm>1em</parm></cmd>
+</parm></cmd></parm></cmd>
+</xsl:template>
+
+
+<xsl:template name="verse">
+    <xsl:param name="verse-content" />
+    <xsl:param name="verse-type" />
+        <xsl:choose><xsl:when test="name($verse-type) = 'wers_akap'"><cmd name="hspace" ><parm><xsl:value-of select="$firet" />pt</parm></cmd></xsl:when>
+            <xsl:when test="name($verse-type) = 'wers_wciety'">
+                <xsl:choose>
+                    <xsl:when test="$verse-content/@typ">
+                        <cmd name="hspace" ><parm><xsl:value-of select="$verse-content/@typ" />em</parm></cmd>
+                    </xsl:when>
+                    <xsl:otherwise>
+                        <cmd name="hspace" ><parm>1em</parm></cmd>
+                    </xsl:otherwise>
+                </xsl:choose>
+            </xsl:when>
+            <xsl:when test="name($verse-type) = 'wers_cd'">
+                <cmd name="hspace" ><parm>12em</parm></cmd>
+            </xsl:when>
+        </xsl:choose>
+        <xsl:apply-templates select="$verse-content" mode="inline" />
+</xsl:template>
+
+<xsl:template match="motto_podpis">
+    <cmd name="raggedleft"><parm>
+        <xsl:apply-templates mode="inline" />
+    </parm></cmd>
+</xsl:template>
+
+
+<!-- ================================================ -->
+<!-- = INLINE TAGS                                  = -->
+<!-- = (contain other inline tags and special tags) = -->
+<!-- ================================================ -->
+<!-- Annotations -->
+<xsl:template match="pa|pe|pr|pt" mode="inline">
+    <cmd name="footnote"><parm><xsl:apply-templates mode="inline" /></parm></cmd>
+</xsl:template>
+
+<!-- Other inline tags -->
+<xsl:template match="mat" mode="inline">
+    <math><xsl:apply-templates mode="inline" /></math>
+</xsl:template>
+
+<xsl:template match="didask_tekst" mode="inline">
+    <cmd name="emph"><parm><xsl:apply-templates mode="inline" /></parm></cmd>
+</xsl:template>
+
+<xsl:template match="slowo_obce" mode="inline">
+    <cmd name="emph"><parm><xsl:apply-templates mode="inline" /></parm></cmd>
+</xsl:template>
+
+<xsl:template match="tytul_dziela" mode="inline">
+    <cmd name="emph"><parm>
+        <xsl:if test="@typ = '1'">„</xsl:if><xsl:apply-templates mode="inline" /><xsl:if test="@typ = '1'">”</xsl:if>
+    </parm></cmd>
+</xsl:template>
+
+<xsl:template match="wyroznienie" mode="inline">
+    <!-- TODO: letterspacing 1pt -->
+    <cmd name="emph"><parm><xsl:apply-templates mode="inline" /></parm></cmd>
+</xsl:template>
+
+<xsl:template match="osoba" mode="inline">
+    <cmd name="textsc"><parm><xsl:apply-templates mode="inline" /></parm></cmd>
+</xsl:template>
+
+
+<!-- ============================================== -->
+<!-- = STANDALONE TAGS                            = -->
+<!-- = (cannot contain any other tags)            = -->
+<!-- ============================================== -->
+<xsl:template match="sekcja_swiatlo">
+    <cmd name="hspace"><parm>30pt</parm></cmd>
+</xsl:template>
+
+<xsl:template match="sekcja_asterysk">
+    <!-- TODO: padding? -->
+    <cmd name="par"><parm>*</parm></cmd>
+</xsl:template>
+
+<xsl:template match="separator_linia">
+    <cmd name="hrule" />
+</xsl:template>
+
+
+
+<!-- ================ -->
+<!-- = SPECIAL TAGS = -->
+<!-- ================ -->
+<!-- Themes -->
+
+
+<xsl:template match="begin" mode="inline">
+    <xsl:variable name="mnum" select="concat('m', substring(@id, 2))" />
+    <cmd name="mbox" />
+    <cmd name="marginpar">
+        <parm><cmd name="raggedright"><parm>
+            <cmd name="hspace"><parm>0pt</parm></cmd>
+            <cmd name="footnotesize"><parm>
+                <cmd name="color"><parm>theme-gray</parm><parm>
+                    <xsl:value-of select="string(following::motyw[@id=$mnum]/text())" />
+                </parm></cmd>
+            </parm></cmd>
+        </parm></cmd></parm>
+    </cmd>
+</xsl:template>
+
+<xsl:template match="begin|end">
+    <xsl:apply-templates select='.' mode="inline" />
+</xsl:template>
+
+<xsl:template match="end" mode="inline" />
+<xsl:template match="motyw" mode="inline" />
+
+
+<!-- ============== -->
+<!-- = ADDED TAGS = -->
+<!-- ============== -->
+
+
+<xsl:template match="dywiz" mode="inline">
+    <cmd name="dywiz" />
+</xsl:template>
+
+<xsl:template match="nbsp" mode="inline">
+    <spec cat="tilde" />
+</xsl:template>
+
+<!-- ================ -->
+<!-- = IGNORED TAGS = -->
+<!-- ================ -->
+<xsl:template match="extra|uwaga" />
+<xsl:template match="extra|uwaga" mode="inline" />
+
+
+<!-- ======== -->
+<!-- = TEXT = -->
+<!-- ======== -->
+<xsl:template match="text()" />
+<xsl:template match="text()" mode="inline">
+    <xsl:value-of select="wl:substitute_entities(.)" />
+</xsl:template>
+
+
+</xsl:stylesheet>
\ No newline at end of file