helpers/mimeXhtmlPart.xsl
author František Kučera <franta-hg@frantovo.cz>
Fri, 14 Oct 2011 15:36:54 +0200
changeset 79 245311d10726
parent 78 969f001a0f5f
child 80 1f9e5757caf4
permissions -rwxr-xr-x
Drupal: XSLT odstavce – vnořující se.
franta-hg@76
     1
<?xml version="1.0" encoding="UTF-8"?>
franta-hg@77
     2
<xsl:stylesheet version="2.0"
franta-hg@76
     3
	xmlns="http://www.w3.org/1999/xhtml"
franta-hg@76
     4
	xmlns:h="http://www.w3.org/1999/xhtml"
franta-hg@76
     5
	xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
franta-hg@76
     6
	xmlns:fn="http://www.w3.org/2005/xpath-functions"
franta-hg@76
     7
	xmlns:svg="http://www.w3.org/2000/svg"
franta-hg@76
     8
	xmlns:xs="http://www.w3.org/2001/XMLSchema"
franta-hg@76
     9
	exclude-result-prefixes="fn h xs">
franta-hg@76
    10
	<xsl:output 
franta-hg@76
    11
		method="xml" 
franta-hg@76
    12
		indent="yes" 
franta-hg@76
    13
		encoding="UTF-8"		
franta-hg@76
    14
		doctype-public="-//W3C//DTD XHTML 1.1 plus MathML 2.0 plus SVG 1.1//EN" 
franta-hg@76
    15
		doctype-system="http://www.w3.org/2002/04/xhtml-math-svg/xhtml-math-svg.dtd"/>
franta-hg@76
    16
	
franta-hg@76
    17
		
franta-hg@76
    18
	<xsl:param name="title"/>
franta-hg@76
    19
	<xsl:param name="isRoot"/>
franta-hg@76
    20
	<xsl:param name="urlBase"/>
franta-hg@76
    21
	<xsl:param name="wwwRead"/>
franta-hg@76
    22
	<xsl:param name="wwwPost"/>
franta-hg@76
    23
	
franta-hg@76
    24
	
franta-hg@76
    25
	<!-- Celý dokument -->
franta-hg@76
    26
	<xsl:template match="/">
franta-hg@76
    27
		<html>
franta-hg@76
    28
			<head>
franta-hg@76
    29
				<meta http-equiv="Content-Type" content="application/xhtml+xml; charset=utf-8" />
franta-hg@77
    30
				<meta http-equiv="X-NNTP-Generated" content="{fn:current-dateTime()}" />
franta-hg@76
    31
				<xsl:if test="$urlBase">
franta-hg@76
    32
					<base href="{$urlBase}"/>
franta-hg@76
    33
				</xsl:if>
franta-hg@76
    34
				<xsl:if test="$title">
franta-hg@76
    35
					<title><xsl:value-of select="$title"/></title>
franta-hg@76
    36
				</xsl:if>
franta-hg@76
    37
				<style type="text/css">
franta-hg@76
    38
					body {
franta-hg@76
    39
						font-family: sans-serif;
franta-hg@76
    40
						font-size: 16px;
franta-hg@76
    41
					}
franta-hg@76
    42
					
franta-hg@76
    43
					.wwwLinks {
franta-hg@76
    44
						border-top: 2px solid grey;
franta-hg@76
    45
						margin-top: 16px;
franta-hg@76
    46
						font-size: 66%;
franta-hg@76
    47
					}
franta-hg@76
    48
					
franta-hg@76
    49
					blockquote {
franta-hg@76
    50
						background-color: #eee;
franta-hg@76
    51
						font-style: italic;
franta-hg@76
    52
						padding: 2px 20px;
franta-hg@76
    53
						margin: 10px 32px;
franta-hg@76
    54
						border-left: 3px solid silver;
franta-hg@76
    55
					}
franta-hg@76
    56
					
franta-hg@76
    57
					pre {
franta-hg@76
    58
						background-color: #eee;
franta-hg@76
    59
						padding: 2px 20px;
franta-hg@76
    60
						margin: 10px 32px;
franta-hg@76
    61
						border-left: 3px solid #a00;
franta-hg@76
    62
					}
franta-hg@76
    63
					
franta-hg@76
    64
					img {
franta-hg@76
    65
						margin: 8px;
franta-hg@76
    66
					}
franta-hg@76
    67
					
franta-hg@76
    68
					a img {
franta-hg@76
    69
						border: none;
franta-hg@76
    70
					}
franta-hg@77
    71
					
franta-hg@77
    72
					/** TODO: smazat */
franta-hg@77
    73
					.mešuge {
franta-hg@77
    74
						background-color: #afa;
franta-hg@77
    75
					}
franta-hg@76
    76
				</style>
franta-hg@76
    77
			</head>
franta-hg@76
    78
			<body>
franta-hg@76
    79
				<xsl:if test="$title and $isRoot">
franta-hg@76
    80
					<h1><xsl:value-of select="$title"/></h1>			
franta-hg@76
    81
				</xsl:if>
franta-hg@78
    82
				<xsl:call-template name="zpracujTělo">
franta-hg@78
    83
					<xsl:with-param name="prvek" select="h:html/h:body/node()[1]"/>
franta-hg@78
    84
				</xsl:call-template>
franta-hg@76
    85
				
franta-hg@76
    86
				<xsl:if test="$wwwRead or $wwwPost">
franta-hg@76
    87
					<div class="wwwLinks">
franta-hg@76
    88
						<p>Přístup přes síť www:</p>
franta-hg@76
    89
						<ul>
franta-hg@76
    90
							<xsl:if test="$wwwRead"><li><a href="{$wwwRead}">číst tento příspěvek</a></li></xsl:if>
franta-hg@76
    91
							<xsl:if test="$wwwPost"><li><a href="{$wwwPost}">odpovědět na tento příspěvek</a></li></xsl:if>
franta-hg@76
    92
						</ul>
franta-hg@76
    93
					</div>
franta-hg@76
    94
				</xsl:if>
franta-hg@76
    95
			</body>
franta-hg@76
    96
		</html>
franta-hg@76
    97
	</xsl:template>
franta-hg@76
    98
	
franta-hg@76
    99
	
franta-hg@76
   100
	<!-- Odkazy -->
franta-hg@76
   101
	<xsl:template match="h:a">
franta-hg@76
   102
		<a href="{@href}" title="{@title}"><xsl:apply-templates/></a>
franta-hg@76
   103
	</xsl:template>
franta-hg@76
   104
	
franta-hg@76
   105
	
franta-hg@76
   106
	<!-- Obrázky -->
franta-hg@76
   107
	<xsl:template match="h:img">
franta-hg@76
   108
		<img src="{@src}" alt="{@alt}" title="{@title}"><xsl:apply-templates/></img>
franta-hg@76
   109
	</xsl:template>
franta-hg@76
   110
	
franta-hg@76
   111
	<!-- Zkratky -->
franta-hg@76
   112
	<xsl:template match="h:abbr">
franta-hg@76
   113
		<abbr title="{@title}"><xsl:apply-templates/></abbr>
franta-hg@76
   114
	</xsl:template>
franta-hg@76
   115
	
franta-hg@76
   116
	
franta-hg@76
   117
	<!-- Další povolené značky – ostatní odfiltrujeme (zbude z nich jen text) -->
franta-hg@76
   118
	<xsl:template match="*">
franta-hg@76
   119
		<xsl:choose>		
franta-hg@76
   120
			<xsl:when test="
franta-hg@76
   121
				name() = 'h1' or
franta-hg@76
   122
				name() = 'h2' or
franta-hg@76
   123
				name() = 'h3' or
franta-hg@76
   124
				name() = 'h4' or
franta-hg@76
   125
				name() = 'h5' or
franta-hg@76
   126
				name() = 'h6' or
franta-hg@76
   127
				name() = 'p' or
franta-hg@76
   128
				name() = 'div' or
franta-hg@76
   129
				name() = 'br' or
franta-hg@76
   130
				name() = 'strong' or
franta-hg@76
   131
				name() = 'em' or
franta-hg@76
   132
				name() = 'sub' or
franta-hg@76
   133
				name() = 'sup' or
franta-hg@76
   134
				name() = 'del' or
franta-hg@76
   135
				name() = 'ul' or
franta-hg@76
   136
				name() = 'ol' or
franta-hg@76
   137
				name() = 'li' or
franta-hg@76
   138
				name() = 'pre' or
franta-hg@76
   139
				name() = 'code' or
franta-hg@76
   140
				name() = 'blockquote'">
franta-hg@76
   141
				<xsl:element name="{name()}">
franta-hg@76
   142
					<xsl:apply-templates/>
franta-hg@76
   143
				</xsl:element>
franta-hg@76
   144
			</xsl:when>
franta-hg@76
   145
			<xsl:otherwise>
franta-hg@76
   146
				<xsl:value-of select="."/>
franta-hg@76
   147
			</xsl:otherwise>
franta-hg@76
   148
		</xsl:choose>		
franta-hg@76
   149
    </xsl:template>
franta-hg@76
   150
    
franta-hg@76
   151
    
franta-hg@76
   152
    <!-- 
franta-hg@76
   153
    	Z neuzavřeného (nevalidně se vyskytujícího v body) textu uděláme odstavce.
franta-hg@76
   154
    -->
franta-hg@78
   155
	<xsl:template name="zpracujTělo">
franta-hg@78
   156
		<xsl:param name="prvek"/>
franta-hg@78
   157
		<xsl:if test="$prvek">
franta-hg@79
   158
			<xsl:choose>
franta-hg@79
   159
				<xsl:when test="$prvek/self::text()">
franta-hg@79
   160
					<!--
franta-hg@79
   161
						Textový uzel → budeme dělat odstavce
franta-hg@79
   162
						(rekurzivně se opět zavolá šablona zpracujTělo)
franta-hg@79
   163
					-->
franta-hg@79
   164
					<xsl:call-template name="dělejOdstavceX">
franta-hg@79
   165
						<xsl:with-param name="blokTextu" select="$prvek"/>
franta-hg@79
   166
					</xsl:call-template>
franta-hg@79
   167
				</xsl:when>
franta-hg@79
   168
				<xsl:otherwise>
franta-hg@79
   169
					<!--
franta-hg@79
   170
						Jiný uzel → aplikujeme obecné šablony
franta-hg@79
   171
						a zpracujeme následující uzel.
franta-hg@79
   172
					-->
franta-hg@79
   173
					<xsl:apply-templates select="$prvek"/>
franta-hg@79
   174
					<xsl:call-template name="zpracujTělo">
franta-hg@79
   175
						<xsl:with-param name="prvek" select="$prvek/following-sibling::node()[1]"/>
franta-hg@79
   176
					</xsl:call-template>
franta-hg@79
   177
				</xsl:otherwise>					
franta-hg@79
   178
			</xsl:choose>				
franta-hg@78
   179
		</xsl:if>
franta-hg@76
   180
	</xsl:template>
franta-hg@78
   181
	
franta-hg@79
   182
	<xsl:template name="dělejOdstavceX">
franta-hg@79
   183
		<xsl:param name="blokTextu"/>
franta-hg@79
   184
		<xsl:variable name="oddělovač" select="'\n\s+\n\s+'"/>
franta-hg@79
   185
		<xsl:variable name="dalšíUzel" select="$blokTextu/following-sibling::node()[1]"/>
franta-hg@79
   186
		
franta-hg@79
   187
		<xsl:variable name="navázat" select="
franta-hg@79
   188
				not(fn:matches($blokTextu, concat('.*', $oddělovač ,'$'))) and
franta-hg@79
   189
				$dalšíUzel and
franta-hg@79
   190
				not(
franta-hg@79
   191
					$dalšíUzel/name() = 'p' or
franta-hg@79
   192
					$dalšíUzel/name() = 'div' or								
franta-hg@79
   193
					$dalšíUzel/name() = 'h1' or								
franta-hg@79
   194
					$dalšíUzel/name() = 'h2' or								
franta-hg@79
   195
					$dalšíUzel/name() = 'h3' or								
franta-hg@79
   196
					$dalšíUzel/name() = 'h4' or								
franta-hg@79
   197
					$dalšíUzel/name() = 'h5' or								
franta-hg@79
   198
					$dalšíUzel/name() = 'h6' or								
franta-hg@79
   199
					$dalšíUzel/name() = 'pre' or								
franta-hg@79
   200
					$dalšíUzel/name() = 'table' or								
franta-hg@79
   201
					$dalšíUzel/name() = 'blockquote' or								
franta-hg@79
   202
					$dalšíUzel/name() = 'hr'								
franta-hg@79
   203
				)
franta-hg@79
   204
				"/>
franta-hg@79
   205
		
franta-hg@79
   206
		<xsl:for-each select="fn:tokenize($blokTextu, $oddělovač)">
franta-hg@79
   207
			<xsl:if test="normalize-space(.)">
franta-hg@79
   208
				<p class="mešuge">
franta-hg@79
   209
					<xsl:value-of select="."/>
franta-hg@79
   210
					<xsl:if test="$navázat and position() = last()">
franta-hg@79
   211
						<xsl:apply-templates select="$dalšíUzel"/>
franta-hg@79
   212
					</xsl:if>
franta-hg@79
   213
					<xsl:call-template name="zpracujTělo">
franta-hg@79
   214
						<xsl:with-param name="prvek" select="$dalšíUzel/following-sibling::node()[1]"/>
franta-hg@79
   215
					</xsl:call-template>
franta-hg@79
   216
				</p>
franta-hg@79
   217
			</xsl:if>
franta-hg@79
   218
		</xsl:for-each>
franta-hg@79
   219
		
franta-hg@79
   220
		<xsl:if test="not($navázat)">
franta-hg@79
   221
			<xsl:call-template name="zpracujTělo">
franta-hg@79
   222
				<xsl:with-param name="prvek" select="$dalšíUzel"/>
franta-hg@79
   223
			</xsl:call-template>
franta-hg@79
   224
		</xsl:if>
franta-hg@79
   225
	</xsl:template>
franta-hg@79
   226
	
franta-hg@79
   227
	
franta-hg@79
   228
	
franta-hg@79
   229
	
franta-hg@79
   230
	
franta-hg@79
   231
	
franta-hg@77
   232
	<xsl:template name="dělejOdstavce">
franta-hg@77
   233
		<xsl:param name="blokTextu"/>
franta-hg@77
   234
		<xsl:variable name="oddělovač" select="'\n\s+\n\s+'"/>
franta-hg@77
   235
		<xsl:for-each select="fn:tokenize(., $oddělovač)">
franta-hg@77
   236
			<xsl:if test="normalize-space(.)">
franta-hg@77
   237
				<p class="mešuge">
franta-hg@77
   238
					<xsl:value-of select="."/>
franta-hg@77
   239
					<!-- 
franta-hg@77
   240
						Toto je poslední odstavec bloku textu 
franta-hg@77
   241
						a blok nekončí dvěma konci řádku → 
franta-hg@77
   242
						může za ním následovat značka (např. odkaz nebo tučné písmo)
franta-hg@77
   243
						vnořená do téhož odstavce
franta-hg@77
   244
					-->
franta-hg@77
   245
					<xsl:if test="
franta-hg@77
   246
						position() = last() and
franta-hg@77
   247
						not(fn:matches($blokTextu, concat('.*', $oddělovač ,'$')))
franta-hg@77
   248
						">
franta-hg@79
   249
						<xsl:variable name="n" select="$blokTextu/following-sibling::*[1]"/>
franta-hg@77
   250
						<xsl:variable name="nn" select="$n/name()"/>
franta-hg@77
   251
						<!--
franta-hg@77
   252
							Za blokem textu nenásleduje značka, která nemůže být uvnitř odstavce.
franta-hg@77
   253
						-->
franta-hg@77
   254
						<xsl:if test="not(
franta-hg@77
   255
								$nn = 'p' or
franta-hg@77
   256
								$nn = 'div' or								
franta-hg@77
   257
								$nn = 'h1' or								
franta-hg@77
   258
								$nn = 'h2' or								
franta-hg@77
   259
								$nn = 'h3' or								
franta-hg@77
   260
								$nn = 'h4' or								
franta-hg@77
   261
								$nn = 'h5' or								
franta-hg@77
   262
								$nn = 'h6' or								
franta-hg@77
   263
								$nn = 'pre' or								
franta-hg@77
   264
								$nn = 'table' or								
franta-hg@77
   265
								$nn = 'blockquote' or								
franta-hg@77
   266
								$nn = 'hr'								
franta-hg@77
   267
							)">
franta-hg@77
   268
							<xsl:apply-templates select="$n"/>
franta-hg@79
   269
						</xsl:if>
franta-hg@79
   270
						
franta-hg@79
   271
						<xsl:call-template name="zpracujTělo">
franta-hg@79
   272
							<xsl:with-param name="prvek" select="$blokTextu/following-sibling::node()[1]"/>
franta-hg@79
   273
						</xsl:call-template>
franta-hg@79
   274
				
franta-hg@77
   275
					</xsl:if>
franta-hg@79
   276
				</p>				
franta-hg@77
   277
			</xsl:if>
franta-hg@77
   278
		</xsl:for-each>
franta-hg@76
   279
	</xsl:template>
franta-hg@77
   280
    
franta-hg@77
   281
	
franta-hg@76
   282
</xsl:stylesheet>