šablona/makra/tabulka.xsl
author František Kučera <franta-hg@frantovo.cz>
Sat Jan 07 17:34:57 2012 +0100 (2012-01-07)
changeset 66 a8085dedd92b
parent 51 df1f942f7b69
child 70 032c62852ef1
permissions -rw-r--r--
Odkazy #16: oprava chyby: Zachováme pouze povolené atributy.
     1 <?xml version="1.0" encoding="UTF-8"?>
     2 <!--
     3 XML Web generátor – program na generování webových stránek
     4 Copyright © 2012 František Kučera (frantovo.cz)
     5 
     6 This program is free software: you can redistribute it and/or modify
     7 it under the terms of the GNU General Public License as published by
     8 the Free Software Foundation, either version 3 of the License, or
     9 (at your option) any later version.
    10 
    11 This program is distributed in the hope that it will be useful,
    12 but WITHOUT ANY WARRANTY; without even the implied warranty of
    13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    14 GNU General Public License for more details.
    15 
    16 You should have received a copy of the GNU General Public License
    17 along with this program.  If not, see <http://www.gnu.org/licenses/>.
    18 -->
    19 <xsl:stylesheet version="2.0"
    20 	xmlns="http://www.w3.org/1999/xhtml"
    21 	xmlns:m="https://trac.frantovo.cz/xml-web-generator/wiki/xmlns/makro"
    22 	xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
    23 	exclude-result-prefixes="m">
    24 	    
    25 	<!--
    26 		Jednoduché tabulky
    27 		******************
    28 		Data zadáváme do těla elementu.
    29 		Sloupce oddělujeme tabulátorem (může jich být víc, minimálně však jeden, mezery nestačí).
    30 		První řádek se považuje za záhlaví (nadpisy sloupců).
    31 		*
    32 	-->
    33     <xsl:template match="m:tabulka">
    34     	<table>
    35     		<xsl:variable name="data" select="replace(replace(text(), '^\s+', ''),'\s+$','')"/>
    36     		<xsl:variable name="hlavička" select="substring-before($data, '&#10;')"/>
    37     		<xsl:variable name="tělo" select="substring-after($data, '&#10;')"/>
    38     		<thead>
    39     			<tr>
    40     				<xsl:for-each select="tokenize($hlavička, '\t+')">
    41     					<xsl:if test="normalize-space(.)">
    42 							<td><xsl:value-of select="normalize-space(.)"/></td>
    43 						</xsl:if>
    44 					</xsl:for-each>
    45     			</tr>
    46     		</thead>
    47     		<tbody>
    48 				<xsl:for-each select="tokenize($tělo, '\n')">
    49 					<xsl:if test="normalize-space(.)">
    50 						<tr>
    51 							<xsl:for-each select="tokenize(., '\t+')">
    52 								<xsl:if test="normalize-space(.)">
    53 									<td><xsl:value-of select="normalize-space(.)"/></td>
    54 								</xsl:if>
    55 							</xsl:for-each>
    56 						</tr>
    57 					</xsl:if>
    58 				</xsl:for-each>
    59     		</tbody>
    60     	</table>    
    61     </xsl:template>
    62 
    63 </xsl:stylesheet>
    64