Makro pro vycpávkový text #14: první verze, při každém generování se stahuje ze Sítě.
1 <?xml version="1.0" encoding="UTF-8"?>
2 <xsl:stylesheet version="2.0"
3 xmlns="http://www.w3.org/1999/xhtml"
4 xmlns:h="http://www.w3.org/1999/xhtml"
5 xmlns:s="https://trac.frantovo.cz/xml-web-generator/wiki/xmlns/strana"
6 xmlns:k="https://trac.frantovo.cz/xml-web-generator/wiki/xmlns/konfigurace"
7 xmlns:m="https://trac.frantovo.cz/xml-web-generator/wiki/xmlns/makro"
8 xmlns:j="java:cz.frantovo.xmlWebGenerator.Funkce"
9 xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
10 xmlns:fn="http://www.w3.org/2005/xpath-functions"
11 xmlns:svg="http://www.w3.org/2000/svg"
12 xmlns:xs="http://www.w3.org/2001/XMLSchema"
13 exclude-result-prefixes="fn h s k m j xs">
18 doctype-public="-//W3C//DTD XHTML 1.1 plus MathML 2.0 plus SVG 1.1//EN"
19 doctype-system="http://www.w3.org/2002/04/xhtml-math-svg/xhtml-math-svg.dtd"/>
21 <xsl:param name="vstup" select="'../vstup/'"/>
22 <xsl:param name="výstup" select="'../výstup/'"/>
23 <xsl:param name="vstupníPřípona" select="'.xml'"/>
24 <xsl:param name="výstupníPřípona" select="'.xhtml'"/>
25 <xsl:param name="vsuvkováPřípona" select="'.inc'"/>
26 <xsl:param name="podporaZaostalýchProhlížečů" select="false()" as="xs:boolean"/>
28 <xsl:include href="makra.xsl"/>
30 <!-- Celý dokument: -->
31 <xsl:template match="/">
32 <xsl:variable name="konfigurace" select="document(concat($vstup, 'web.conf'))"/>
35 <xsl:if test="$podporaZaostalýchProhlížečů">
36 <meta http-equiv="Content-Type" content="application/xhtml+xml; charset=utf-8" />
38 <title><xsl:value-of select="s:stránka/s:nadpis"/></title>
39 <link title="Novinky (Atom)" href="atom.xml" type="application/atom+xml" rel="alternate"/>
40 <link title="Novinky (RSS)" href="rss.xml" type="application/rss+xml" rel="alternate"/>
41 <xsl:apply-templates select="$konfigurace/k:web/k:js"/>
42 <xsl:apply-templates select="$konfigurace/k:web/k:css"/>
47 <xsl:apply-templates select="document(fn:encode-for-uri(concat($vstup, 'záhlaví', $vsuvkováPřípona)))/s:stránka/h:text/node()"/>
50 <h1><xsl:value-of select="s:stránka/s:nadpis"/></h1>
52 <xsl:for-each select="collection(concat('./', $vstup ,'/?select=*', $vstupníPřípona))[s:stránka/s:pořadí]">
53 <xsl:sort select="empty(./s:stránka/s:pořadí)"/>
54 <xsl:sort select="./s:stránka/s:pořadí"/>
56 <xsl:variable name="xmlSoubor" select="tokenize(document-uri(.), '/')[last()]"/>
57 <xsl:variable name="xhtmlSoubor" select="replace($xmlSoubor, $vstupníPřípona, $výstupníPřípona)"/>
58 <a href="{fn:encode-for-uri($xhtmlSoubor)}"><xsl:value-of select="./s:stránka/s:nadpis"/></a>
63 <xsl:apply-templates select="s:stránka/h:text/node()"/>
67 <xsl:apply-templates select="document(fn:encode-for-uri(concat($vstup, 'zápatí', $vsuvkováPřípona)))/s:stránka/h:text/node()"/>
74 <!-- Kopírujeme elementy, ale vynecháme nepoužité xmlns deklarace: -->
75 <xsl:template match="*">
76 <xsl:element name="{name()}">
77 <xsl:copy-of select="@*"/>
78 <xsl:apply-templates/>
82 <!-- Varování pro případ, že jsme v režimu podpory pro zaostalé prohlížeče -->
83 <xsl:template name="varováníRetardace">
84 <xsl:if test="$podporaZaostalýchProhlížečů">
86 Generátor byl spuštěn v režimu podpory zaostalých prohlížečů.
87 Uživatelům doporučujeme upgrade na skutečný WWW prohlížeč,
88 jako je např. Firefox nebo Chromium (případně Opera či Safari).
93 <!-- Odkazy na JavaScript a kaskádové styly -->
94 <xsl:template match="k:web/k:js">
95 <script src="{text()}" type="text/javascript">
96 <xsl:call-template name="varováníRetardace"/>
99 <xsl:template match="k:web/k:css">
100 <link href="{text()}" type="text/css" rel="StyleSheet" />
104 TODO: makra vyčlenit do samostatných souborů
108 Makro pro převod interních odkazů:
109 - doplnění správné přípony
112 <xsl:template match="m:a">
114 <xsl:copy-of select="@*"/>
115 <xsl:attribute name="href">
116 <xsl:value-of select="fn:encode-for-uri(concat(@href, $výstupníPřípona))"/>
118 <xsl:apply-templates/>
123 Makro pro zvýraznění syntaxe:
125 <xsl:template match="m:pre">
126 <xsl:call-template name="zvýrazniZdroják">
127 <xsl:with-param name="zdroják" select="text()"/>
131 <xsl:template match="m:pre[@src]">
132 <xsl:call-template name="zvýrazniZdroják">
133 <xsl:with-param name="zdroják" select="unparsed-text(concat($vstup, @src))"/>
135 <xsl:if test="@odkaz = 'ano'">
136 <p class="zdroják-ke-stažení">
137 <span>Stáhnout: <a href="{encode-for-uri(@src)}"><xsl:value-of select="@src"/></a></span>
142 <xsl:template name="zvýrazniZdroják">
143 <xsl:param name="zdroják"/>
144 <xsl:variable name="zvýrazněnýZdroják" select="j:zvýrazniSyntaxi($zdroják, @jazyk)"/>
146 <xsl:when test="$zvýrazněnýZdroják">
147 <xsl:comment>Následující kód je v jazyce <xsl:value-of select="@jazyk"/></xsl:comment>
148 <xsl:value-of disable-output-escaping="yes" select="$zvýrazněnýZdroják"/>
151 <xsl:message>Zvýraznění syntaxe se nezdařilo → bude vložen původní nezvýrazněný kód.</xsl:message>
152 <pre><xsl:value-of select="$zdroják"/></pre>
158 Makro pro diagramy/grafy
160 <xsl:template match="m:diagram">
161 <xsl:variable name="souborDiagramu" select="j:vytvořDiagram(text(), @orientace = 'vodorovně')"/>
163 <xsl:when test="$souborDiagramu">
164 <div class="diagram">
165 <a href="{$souborDiagramu}.svg">
167 src="{$souborDiagramu}.svg"
168 alt="Diagram {$souborDiagramu} | pokud nevidíte obrázek, váš prohlížeč stojí za starou bačkoru"
169 title="{@nadpis} (klikněte pro zobrazení samotného diagramu)"/>
172 <xsl:variable name="svgDiagramu" select="document(concat($výstup, $souborDiagramu, '.svg'))/svg:svg"/>
174 data="{$souborDiagramu}.svg"
176 style="width: {$svgDiagramu/@width}; height: {$svgDiagramu/@height}">
177 <img src="{$souborDiagramu}.png" alt="Diagram {$souborDiagramu}"/>
180 <xsl:if test="@nadpis">
181 <p class="nadpis"><xsl:value-of select="@nadpis"/></p>
186 <xsl:message terminate="yes">Při vytváření diagramu došlo k chybě.</xsl:message>
192 Makro pro Wiki syntaxi
194 <xsl:template match="m:wiki">
195 <xsl:variable name="wikiXHTML" select="j:formátujWiki(text(), @syntaxe)"/>
197 <xsl:when test="$wikiXHTML">
198 <xsl:value-of select="$wikiXHTML" disable-output-escaping="yes"/>
201 <xsl:message terminate="yes">Při zpracování wiki syntaxe došlo k chybě.</xsl:message>
207 Makro pro vycpávkový text
209 <xsl:template match="m:vycpávka">
211 TODO: stáhnout jen jednou, uložit do souboru a při dalších generováních brát z něj.
213 <xsl:variable name="prostýText" select="document(concat('http://lipsum.lipsum.com/feed/xml?amount=', @odstavců, '&what=paragraphs'))/feed/lipsum"/>
214 <xsl:for-each select="fn:tokenize($prostýText, '\n')">
215 <p><xsl:value-of select="."/></p>