franta-hg@17: <?xml version="1.0" encoding="UTF-8"?>
franta-hg@17: <!--
franta-hg@17: 	Převzato z projektu hellDesk.
franta-hg@17: -->
franta-hg@17: <xsl:stylesheet version="1.0"
franta-hg@17: 				xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
franta-hg@17: 				xmlns:fn="http://www.w3.org/2005/xpath-functions"
franta-hg@17: 				xmlns:str="http://xsltsl.org/string"
franta-hg@17: 				xmlns:h="http://www.w3.org/1999/xhtml">
franta-hg@17: 	<xsl:output method="text" encoding="UTF-8"/>
franta-hg@17: 	<xsl:strip-space elements="*"/>
franta-hg@17: 
franta-hg@17: 	<xsl:output method="text" encoding="UTF-8"/>
franta-hg@17: 	<xsl:strip-space elements="*"/>
franta-hg@17: 
franta-hg@17: 	<xsl:variable name="urlBase" select="/h:html/h:head/h:base/@href"/>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<!-- Celý dokument -->
franta-hg@17: 	<xsl:template match="/">
franta-hg@17: 		<xsl:apply-templates select="h:html/h:body"/>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:h1">
franta-hg@17: 		<xsl:value-of select="text()"/>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 		<xsl:call-template name="str:generate-string">
franta-hg@17: 			<xsl:with-param name="text" select="'='"/>
franta-hg@17: 			<xsl:with-param name="count" select="string-length(.)"/>
franta-hg@17: 		</xsl:call-template>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:h2">
franta-hg@17: 		<xsl:value-of select="text()"/>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 		<xsl:call-template name="str:generate-string">
franta-hg@17: 			<xsl:with-param name="text" select="'-'"/>
franta-hg@17: 			<xsl:with-param name="count" select="string-length(.)"/>
franta-hg@17: 		</xsl:call-template>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:h3">
franta-hg@17: 		<xsl:text>### </xsl:text>
franta-hg@17: 		<xsl:value-of select="text()"/>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:h4">
franta-hg@17: 		<xsl:text>#### </xsl:text>
franta-hg@17: 		<xsl:value-of select="text()"/>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:h5">
franta-hg@17: 		<xsl:text>##### </xsl:text>
franta-hg@17: 		<xsl:value-of select="text()"/>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:h6">
franta-hg@17: 		<xsl:text>###### </xsl:text>
franta-hg@17: 		<xsl:value-of select="text()"/>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:p">
franta-hg@17: 		<xsl:apply-templates/>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 	
franta-hg@17: 	<xsl:template match="h:blockquote/h:p">
franta-hg@17: 		<xsl:text>&gt; </xsl:text>
franta-hg@17: 		<xsl:apply-templates/>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:cite[not(starts-with(., '„') or starts-with(., '‚'))]">
franta-hg@17: 		<xsl:text>„</xsl:text>
franta-hg@17: 		<xsl:apply-templates/>
franta-hg@17: 		<xsl:text>“</xsl:text>
franta-hg@17: 	</xsl:template>	
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:a">
franta-hg@21: 		<xsl:if test="not(text() = @href or concat('mailto:', text()) = @href)">
franta-hg@17: 			<xsl:text>'</xsl:text>
franta-hg@17: 			<xsl:apply-templates select="node()"/>
franta-hg@17: 			<xsl:text>' </xsl:text>
franta-hg@17: 		</xsl:if>
franta-hg@17: 		<xsl:text>&lt;</xsl:text>
franta-hg@17: 		<xsl:choose>
franta-hg@17: 			<xsl:when test="starts-with(@href, 'http:') or starts-with(@href, 'https:') or starts-with(@href, 'ftp:')">
franta-hg@17: 				<xsl:value-of select="@href"/>
franta-hg@17: 			</xsl:when>
franta-hg@17: 			<xsl:when test="starts-with(@href, 'mailto:')">
franta-hg@17: 				<xsl:value-of select="substring-after(@href, 'mailto:')"/>
franta-hg@17: 			</xsl:when>
franta-hg@17: 			<xsl:otherwise>
franta-hg@17: 				<xsl:choose>
franta-hg@17: 					<!-- TODO: $urlBase by nemělo končit lomítkem -->
franta-hg@17: 					<xsl:when test="starts-with(@href, '/')">
franta-hg@17: 						<xsl:value-of select="concat($urlBase, @href)"/>
franta-hg@17: 					</xsl:when>
franta-hg@17: 					<xsl:otherwise>
franta-hg@17: 						<xsl:value-of select="concat($urlBase, '/', @href)"/>
franta-hg@17: 					</xsl:otherwise>
franta-hg@17: 				</xsl:choose>
franta-hg@17: 			</xsl:otherwise>
franta-hg@17: 		</xsl:choose>
franta-hg@17: 		<xsl:text>&gt;</xsl:text>
franta-hg@17: 		<xsl:if test="normalize-space(@title)">
franta-hg@17: 			<xsl:text> (</xsl:text>
franta-hg@17: 			<xsl:value-of select="@title"/>
franta-hg@17: 			<xsl:text>)</xsl:text>
franta-hg@17: 		</xsl:if>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:img">
franta-hg@17: 		<xsl:text>Obrázek: </xsl:text>
franta-hg@17: 		<xsl:value-of select="@src"/>
franta-hg@17: 		<!-- TODO: relativní odkazy -->
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:strong|h:b">
franta-hg@17: 		<xsl:text>**</xsl:text>
franta-hg@17: 		<xsl:apply-templates/>
franta-hg@17: 		<xsl:text>**</xsl:text>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:em|h:i">
franta-hg@17: 		<xsl:text>*</xsl:text>
franta-hg@17: 		<xsl:apply-templates/>
franta-hg@17: 		<xsl:text>*</xsl:text>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:abbr[@title]">
franta-hg@17: 		<xsl:apply-templates/>
franta-hg@17: 		<xsl:text> (</xsl:text>
franta-hg@17: 		<xsl:value-of select="@title"/>
franta-hg@17: 		<xsl:text>)</xsl:text>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:pre">
franta-hg@17: 		<xsl:text>--------------------------------</xsl:text>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 		<xsl:apply-templates/>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 		<xsl:text>--------------------------------</xsl:text>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:code">
franta-hg@17: 		<xsl:text>`</xsl:text>
franta-hg@17: 		<xsl:apply-templates/>
franta-hg@17: 		<xsl:text>`</xsl:text>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:hr">
franta-hg@17: 		<xsl:text>----------------------------------------------------------------</xsl:text>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:br">
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 	</xsl:template>	
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="h:ol|h:ul">
franta-hg@17: 		<xsl:variable name="úroveň" select="count(ancestor::h:li)"/>
franta-hg@17: 		<xsl:variable name="odsazení">
franta-hg@17: 			<!-- položky na nejvyšší úrovni odsazené jednou mezerou -->
franta-hg@17: 			<xsl:value-of select="' '"/>
franta-hg@17: 			<xsl:call-template name="str:generate-string">
franta-hg@17: 				<xsl:with-param name="text" select="'  '"/>
franta-hg@17: 				<!-- položky na druhé a vyšší úrovni odsazené vždy dvěma dalšími mezerami -->
franta-hg@17: 				<xsl:with-param name="count" select="$úroveň - 1"/>
franta-hg@17: 			</xsl:call-template>
franta-hg@17: 		</xsl:variable>
franta-hg@17: 
franta-hg@17: 		<xsl:if test="$úroveň &gt; 0">
franta-hg@17: 			<xsl:text>&#10;</xsl:text>
franta-hg@17: 		</xsl:if>
franta-hg@17: 
franta-hg@17: 		<xsl:for-each select="h:li">
franta-hg@17: 			<xsl:if test="parent::h:ol">
franta-hg@17: 				<xsl:value-of select="concat($odsazení, position(), ') ')"/>
franta-hg@17: 			</xsl:if>
franta-hg@17: 			<xsl:if test="parent::h:ul">
franta-hg@17: 				<xsl:value-of select="concat($odsazení, '- ')"/>
franta-hg@17: 			</xsl:if>
franta-hg@17: 			<xsl:apply-templates/>
franta-hg@17: 			<xsl:if test="$úroveň = 0 or not(position() = last())">
franta-hg@17: 				<xsl:text>&#10;</xsl:text>
franta-hg@17: 			</xsl:if>
franta-hg@17: 		</xsl:for-each>
franta-hg@17: 		
franta-hg@17: 		<xsl:if test="$úroveň = 0">
franta-hg@17: 			<xsl:text>&#10;</xsl:text>
franta-hg@17: 		</xsl:if>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: 	<xsl:template match="text()[not(parent::h:pre)]">
franta-hg@17: 		<xsl:if test="(starts-with(., ' ') or starts-with(., '&#10;')) and preceding-sibling::node() and not(preceding-sibling::h:br)">
franta-hg@17: 			<xsl:text> </xsl:text>
franta-hg@17: 		</xsl:if>
franta-hg@17: 		<xsl:value-of select="normalize-space(.)"/>
franta-hg@17: 		<xsl:variable name="posledníZnak" select="substring(., string-length(.))"/>
franta-hg@17: 		<!-- TODO: tabulátor? -->
franta-hg@17: 		<xsl:if test="($posledníZnak = ' ' or $posledníZnak = '&#10;') and following-sibling::node()">
franta-hg@17: 			<xsl:text> </xsl:text>
franta-hg@17: 		</xsl:if>
franta-hg@17: 	</xsl:template>
franta-hg@17: 	
franta-hg@17: 	
franta-hg@17: 	<xsl:template match="h:div[@class = 'patička']">
franta-hg@17: 		<xsl:text>-- </xsl:text>
franta-hg@17: 		<xsl:text>&#10;</xsl:text>
franta-hg@17: 		<xsl:apply-templates/>
franta-hg@17: 	</xsl:template>
franta-hg@17: 	
franta-hg@17: 
franta-hg@17: 	<!--
franta-hg@17: 		Převzato z:
franta-hg@17: 		http://xsltsl.sourceforge.net/string.html#template.str:generate-string
franta-hg@17: 	-->
franta-hg@17: 	<xsl:template name="str:generate-string">
franta-hg@17: 		<xsl:param name="text"/>
franta-hg@17: 		<xsl:param name="count"/>
franta-hg@17: 
franta-hg@17: 		<xsl:choose>
franta-hg@17: 			<xsl:when test="string-length($text) = 0 or $count &lt;= 0"/>
franta-hg@17: 			<xsl:otherwise>
franta-hg@17: 				<xsl:value-of select="$text"/>
franta-hg@17: 				<xsl:call-template name="str:generate-string">
franta-hg@17: 					<xsl:with-param name="text" select="$text"/>
franta-hg@17: 					<xsl:with-param name="count" select="$count - 1"/>
franta-hg@17: 				</xsl:call-template>
franta-hg@17: 			</xsl:otherwise>
franta-hg@17: 		</xsl:choose>
franta-hg@17: 	</xsl:template>
franta-hg@17: 
franta-hg@17: 
franta-hg@17: </xsl:stylesheet>
franta-hg@17: