<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">

  <xsl:include href="ref-html-style.xsl"/>

  <xsl:param name="toc.max.depth" select="2"/>

  <xsl:template match="programlisting/text()">

    <xsl:variable name="before" select="preceding-sibling::node()"/>

    <xsl:variable name="after" select="following-sibling::node()"/>

    <xsl:variable name="conts" select="."/>

    <xsl:variable name="contsl">

      <xsl:choose>

        <xsl:when test="count($before) = 0">

          <xsl:call-template name="remove-lf-left">

            <xsl:with-param name="astr" select="$conts"/>

          </xsl:call-template>

        </xsl:when>

        <xsl:otherwise>

          <xsl:value-of select="$conts"/>

        </xsl:otherwise>

      </xsl:choose>

    </xsl:variable>

    <xsl:variable name="contslr">

      <xsl:choose>

        <xsl:when test="count($after) = 0">

          <xsl:call-template name="remove-ws-right">

            <xsl:with-param name="astr" select="$contsl"/>

          </xsl:call-template>

        </xsl:when>

        <xsl:otherwise>

          <xsl:value-of select="$contsl"/>

        </xsl:otherwise>

      </xsl:choose>

    </xsl:variable>

    <xsl:value-of select="$contslr"/>

  </xsl:template>

  <xsl:template name="remove-lf-left">

    <xsl:param name="astr"/>

    <xsl:choose>

                      starts-with($astr,'
')">

        <xsl:call-template name="remove-lf-left">

          <xsl:with-param name="astr" select="substring($astr, 2)"/>

        </xsl:call-template>

      </xsl:when>

      <xsl:otherwise>

        <xsl:value-of select="$astr"/>

      </xsl:otherwise>

    </xsl:choose>

  </xsl:template>

  <xsl:template name="remove-ws-right">

    <xsl:param name="astr"/>

    <xsl:variable name="last-char">

      <xsl:value-of select="substring($astr, string-length($astr), 1)"/>

    </xsl:variable>

    <xsl:choose>

                      ($last-char = '
') or

                      ($last-char = ' ') or

                      ($last-char = '	')">

        <xsl:call-template name="remove-ws-right">

            select="substring($astr, 1, string-length($astr) - 1)"/>

        </xsl:call-template>

      </xsl:when>

      <xsl:otherwise>

        <xsl:value-of select="$astr"/>

      </xsl:otherwise>

    </xsl:choose>

  </xsl:template>

  <xsl:template match="inlinemediaobject" priority="100">

      <video controls="controls">

        <xsl:attribute name="src"><xsl:value-of select="videoobject/videodata/@fileref"/></xsl:attribute>

          <xsl:attribute name="href">

            <xsl:value-of select="videoobject/videodata/@fileref"/>

          </xsl:attribute>

          <xsl:apply-templates select="alt"/>

      </video>

  </xsl:template>

</xsl:stylesheet>