Revision: 4248 Author: edi URL: http://bknr.net/trac/changeset/4248
Adapt Hans' changes from Hunchentoot
U trunk/thirdparty/documentation-template/doc/clixdoc.xsl
Modified: trunk/thirdparty/documentation-template/doc/clixdoc.xsl =================================================================== --- trunk/thirdparty/documentation-template/doc/clixdoc.xsl 2009-02-12 21:18:29 UTC (rev 4247) +++ trunk/thirdparty/documentation-template/doc/clixdoc.xsl 2009-02-12 21:21:09 UTC (rev 4248) @@ -39,6 +39,8 @@ omit-xml-declaration="yes" doctype-public="-//W3C//DTD HTML 4.0 Strict//EN" />
+ <xsl:key name="index-entries" match="clix:*[@name and (name() != 'clix:chapter') and (name() != 'clix:subchapter')]" use="@name" /> + <xsl:template match="/clix:documentation"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> @@ -50,6 +52,7 @@ pre { padding:5px; background-color:#e0e0e0 } pre.none { padding:5px; background-color:#ffffff } h3, h4, h5 { text-decoration: underline; } + .entry-type { padding-left: 1em; font-size: 60%; font-style: italic } a { text-decoration: none; padding: 1px 2px 1px 2px; } a:visited { text-decoration: none; padding: 1px 2px 1px 2px; } a:hover { text-decoration: none; padding: 1px 1px 1px 1px; border: 1px solid #000000; } @@ -75,25 +78,16 @@
<xsl:template match="clix:function"> <p> - xsl:choose - <xsl:when test="@generic = 'true'">[Generic function]</xsl:when> - <xsl:when test="@specialized = 'true'">[Method]</xsl:when> - <xsl:when test="@macro = 'true'">[Macro]</xsl:when> - xsl:otherwise[Function]</xsl:otherwise> - </xsl:choose> + <xsl:call-template name="make-anchor"/> + [<xsl:call-template name="nice-entry-type-name"/>] <br/> - <a class="none"> - <xsl:attribute name="name"> - <xsl:value-of select="translate(@name, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')"/> - </xsl:attribute> - <b><xsl:value-of select="@name"/></b> - <xsl:value-of select="' '"/> - <i><xsl:apply-templates select="clix:lambda-list"/></i> - <xsl:if test="clix:returns"> - => - <i><xsl:value-of select="clix:returns"/></i> - </xsl:if> - </a> + <xsl:call-template name="render-title"/> + <xsl:value-of select="' '"/> + <i><xsl:apply-templates select="clix:lambda-list"/></i> + <xsl:if test="clix:returns"> + => + <i><xsl:value-of select="clix:returns"/></i> + </xsl:if> <blockquote> <xsl:apply-templates select="clix:description"/> </blockquote> @@ -102,24 +96,16 @@
<xsl:template match="clix:reader"> <p> - xsl:choose - <xsl:when test="@generic = 'true'">[Generic reader]</xsl:when> - <xsl:when test="@specialized = 'true'">[Specialized reader]</xsl:when> - xsl:otherwise[Reader]</xsl:otherwise> - </xsl:choose> + <xsl:call-template name="make-anchor"/> + [<xsl:call-template name="nice-entry-type-name"/>] <br/> - <a class="none"> - <xsl:attribute name="name"> - <xsl:value-of select="translate(@name, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')"/> - </xsl:attribute> - <b><xsl:value-of select="@name"/></b> - <xsl:value-of select="' '"/> - <i><xsl:apply-templates select="clix:lambda-list"/></i> - <xsl:if test="clix:returns"> - => - <i><xsl:value-of select="clix:returns"/></i> - </xsl:if> - </a> + <xsl:call-template name="render-title"/> + <xsl:value-of select="' '"/> + <i><xsl:apply-templates select="clix:lambda-list"/></i> + <xsl:if test="clix:returns"> + => + <i><xsl:value-of select="clix:returns"/></i> + </xsl:if> <blockquote> <xsl:apply-templates select="clix:description"/> </blockquote> @@ -128,24 +114,16 @@
<xsl:template match="clix:writer"> <p> - xsl:choose - <xsl:when test="@generic = 'true'">[Generic writer]</xsl:when> - <xsl:when test="@specialized = 'true'">[Specialized writer]</xsl:when> - xsl:otherwise[Writer]</xsl:otherwise> - </xsl:choose> + <xsl:call-template name="make-anchor"/> + [<xsl:call-template name="nice-entry-type-name"/>] <br/> - <a class="none"> - <xsl:attribute name="name"> - <xsl:value-of select="translate(@name, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')"/> - </xsl:attribute> - <tt>(setf (</tt><b><xsl:value-of select="@name"/></b> - <xsl:value-of select="' '"/> - <i><xsl:apply-templates select="clix:lambda-list"/></i><tt>) <i>new-value</i>)</tt> - <xsl:if test="clix:returns"> - => - <i><xsl:value-of select="clix:returns"/></i> - </xsl:if> - </a> + <tt>(setf (</tt><b><xsl:value-of select="@name"/></b> + <xsl:value-of select="' '"/> + <i><xsl:apply-templates select="clix:lambda-list"/></i><tt>) <i>new-value</i>)</tt> + <xsl:if test="clix:returns"> + => + <i><xsl:value-of select="clix:returns"/></i> + </xsl:if> <blockquote> <xsl:apply-templates select="clix:description"/> </blockquote> @@ -154,112 +132,38 @@
<xsl:template match="clix:accessor"> <p> - xsl:choose - <xsl:when test="@generic = 'true'">[Generic accessor]</xsl:when> - <xsl:when test="@specialized = 'true'">[Specialized accessor]</xsl:when> - xsl:otherwise[Accessor]</xsl:otherwise> - </xsl:choose> + <xsl:call-template name="make-anchor"/> + [<xsl:call-template name="nice-entry-type-name"/>] <br/> - <a class="none"> - <xsl:attribute name="name"> - <xsl:value-of select="translate(@name, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')"/> - </xsl:attribute> - <b><xsl:value-of select="@name"/></b> - <xsl:value-of select="' '"/> - <i><xsl:apply-templates select="clix:lambda-list"/></i> - => - <i><xsl:value-of select="clix:returns"/></i> - <br/> - <tt>(setf (</tt><b><xsl:value-of select="@name"/></b> - <xsl:value-of select="' '"/> - <i><xsl:apply-templates select="clix:lambda-list"/></i><tt>) <i>new-value</i>)</tt> - </a> + <xsl:call-template name="render-title"/> + <xsl:value-of select="' '"/> + <i><xsl:apply-templates select="clix:lambda-list"/></i> + => + <i><xsl:value-of select="clix:returns"/></i> + <br/> + <tt>(setf (</tt><b><xsl:value-of select="@name"/></b> + <xsl:value-of select="' '"/> + <i><xsl:apply-templates select="clix:lambda-list"/></i><tt>) <i>new-value</i>)</tt> <blockquote> <xsl:apply-templates select="clix:description"/> </blockquote> </p> </xsl:template>
- <xsl:template match="clix:special-variable"> + <xsl:template match="clix:special-variable | clix:class | clix:condition | clix:symbol | clix:constant"> <p> - [Special variable]<br/> - <a class="none"> - <xsl:attribute name="name"> - <xsl:value-of select="translate(@name, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')"/> - </xsl:attribute> - <b><xsl:value-of select="@name"/></b> - </a> + <xsl:call-template name="make-anchor"/> + [<xsl:call-template name="nice-entry-type-name"/>] + <br/> + <xsl:call-template name="render-title"/> <blockquote> <xsl:apply-templates select="clix:description"/> </blockquote> </p> </xsl:template>
- <xsl:template match="clix:class"> - <p> - [Standard class]<br/> - <a class="none"> - <xsl:attribute name="name"> - <xsl:value-of select="translate(@name, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')"/> - </xsl:attribute> - <b><xsl:value-of select="@name"/></b> - </a> - <blockquote> - <xsl:apply-templates select="clix:description"/> - </blockquote> - </p> - </xsl:template> - - <xsl:template match="clix:condition"> - <p> - [Condition type]<br/> - <a class="none"> - <xsl:attribute name="name"> - <xsl:value-of select="translate(@name, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')"/> - </xsl:attribute> - <b><xsl:value-of select="@name"/></b> - </a> - <blockquote> - <xsl:apply-templates select="clix:description"/> - </blockquote> - </p> - </xsl:template> - - <xsl:template match="clix:symbol"> - <p> - [Symbol]<br/> - <a class="none"> - <xsl:attribute name="name"> - <xsl:value-of select="translate(@name, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')"/> - </xsl:attribute> - <b><xsl:value-of select="@name"/></b> - </a> - <blockquote> - <xsl:apply-templates select="clix:description"/> - </blockquote> - </p> - </xsl:template> - - <xsl:template match="clix:constant"> - <p> - [Constant]<br/> - <a class="none"> - <xsl:attribute name="name"> - <xsl:value-of select="translate(@name, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')"/> - </xsl:attribute> - <b><xsl:value-of select="@name"/></b> - </a> - <blockquote> - <xsl:apply-templates select="clix:description"/> - </blockquote> - </p> - </xsl:template> - <xsl:template match="clix:listed-constant"> - <a class="none"> - <xsl:attribute name="name"><xsl:value-of select="@name"/></xsl:attribute> - <b><xsl:value-of select="@name"/></b> - </a> + <xsl:call-template name="render-title"/> <br/> </xsl:template>
@@ -289,19 +193,6 @@ <code><i><xsl:value-of select="text()"/></i></code> </xsl:template>
- <xsl:template name="internal-reference"> - <!-- internal reference --> - <xsl:param name="name"/> - <code> - <a> - <xsl:attribute name="href"> - #<xsl:value-of select="translate($name, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')"/> - </xsl:attribute> - <xsl:value-of select="$name"/> - </a> - </code> - </xsl:template> - <xsl:template match="clix:ref"> <xsl:call-template name="internal-reference"> <xsl:with-param name="name"><xsl:value-of select="."/></xsl:with-param> @@ -355,12 +246,37 @@
<xsl:template match="clix:index"> <ul> - <xsl:for-each select="(//clix:function | //clix:reader | //clix:writer | //clix:accessor | //clix:class | //clix:condition | //clix:constant | //clix:listed-constant | //clix:special-variable | //clix:symbol)"> + <xsl:for-each select="//clix:*[generate-id(.) = generate-id(key('index-entries', @name)[1])]"> <xsl:sort select="@name"/> <li> - <xsl:call-template name="internal-reference"> - <xsl:with-param name="name"><xsl:value-of select="@name"/></xsl:with-param> - </xsl:call-template> + xsl:choose + <xsl:when test="count(key('index-entries', @name)) = 1"> + <xsl:call-template name="internal-reference"> + <xsl:with-param name="name"><xsl:value-of select="@name"/></xsl:with-param> + </xsl:call-template> + <span class="entry-type"><xsl:call-template name="nice-entry-type-name"/></span> + </xsl:when> + xsl:otherwise + <a> + <xsl:attribute name="name"> + <xsl:value-of select="@name"/> + </xsl:attribute> + </a> + <xsl:value-of select="@name"/> + <ul> + <xsl:for-each select="key('index-entries', @name)"> + <xsl:sort select="name()"/> + <li> + <xsl:call-template name="internal-reference"> + <xsl:with-param name="name"><xsl:call-template name="make-anchor-name"/></xsl:with-param> + <xsl:with-param name="title"><xsl:value-of select="@name"/></xsl:with-param> + </xsl:call-template> + <span class="entry-type"><xsl:call-template name="nice-entry-type-name"/></span> + </li> + </xsl:for-each> + </ul> + </xsl:otherwise> + </xsl:choose> </li> </xsl:for-each> </ul> @@ -373,4 +289,91 @@ </xsl:copy> </xsl:template>
+ <xsl:template name="internal-reference"> + <!-- internal reference --> + <xsl:param name="name"/> + <xsl:param name="title"/> + <code> + <a> + <xsl:attribute name="href"> + #<xsl:value-of select="translate($name, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')"/> + </xsl:attribute> + xsl:choose + <xsl:when test="$title != ''"> + <xsl:value-of select="$title"/> + </xsl:when> + xsl:otherwise + <xsl:value-of select="$name"/> + </xsl:otherwise> + </xsl:choose> + </a> + </code> + </xsl:template> + + <xsl:template name="make-anchor-name"> + xsl:choose + <xsl:when test="count(key('index-entries', @name)) = 1"> + <xsl:value-of select="translate(@name, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')"/> + </xsl:when> + xsl:otherwise + <xsl:value-of select="translate(@name, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')"/>-<xsl:value-of select="substring(name(), 6)"/> + </xsl:otherwise> + </xsl:choose> + </xsl:template> + + <xsl:template name="make-anchor"> + <a class="none"> + <xsl:attribute name="name"> + <xsl:call-template name="make-anchor-name"/> + </xsl:attribute> + </a> + </xsl:template> + + <xsl:template name="render-title"> + <b><xsl:value-of select="@name"/></b> + </xsl:template> + + <xsl:template name="nice-entry-type-name"> + xsl:choose + <xsl:when test="name() = 'clix:function'"> + xsl:choose + <xsl:when test="@generic = 'true'">Generic function</xsl:when> + <xsl:when test="@specialized = 'true'">Method</xsl:when> + <xsl:when test="@macro = 'true'">Macro</xsl:when> + xsl:otherwiseFunction</xsl:otherwise> + </xsl:choose> + </xsl:when> + <xsl:when test="name() = 'clix:reader'"> + xsl:choose + <xsl:when test="@generic = 'true'">Generic reader</xsl:when> + <xsl:when test="@specialized = 'true'">Specialized reader</xsl:when> + xsl:otherwiseReader</xsl:otherwise> + </xsl:choose> + </xsl:when> + <xsl:when test="name() = 'clix:writer'"> + xsl:choose + <xsl:when test="@generic = 'true'">Generic writer</xsl:when> + <xsl:when test="@specialized = 'true'">Specialized writer</xsl:when> + xsl:otherwiseWriter</xsl:otherwise> + </xsl:choose> + </xsl:when> + <xsl:when test="name() = 'clix:accessor'"> + xsl:choose + <xsl:when test="@generic = 'true'">Generic accessor</xsl:when> + <xsl:when test="@specialized = 'true'">Specialized accessor</xsl:when> + xsl:otherwiseAccessor</xsl:otherwise> + </xsl:choose> + </xsl:when> + <xsl:when test="name() = 'clix:special-variable'">Special variable</xsl:when> + <xsl:when test="name() = 'clix:class'">Standard class</xsl:when> + <xsl:when test="name() = 'clix:condition'">Condition type</xsl:when> + <xsl:when test="name() = 'clix:symbol'">Symbol</xsl:when> + <xsl:when test="name() = 'clix:constant'">Constant</xsl:when> + <xsl:when test="name() = 'clix:listed-constant'">Constant</xsl:when> + xsl:otherwise + <xsl:value-of select="name()" /> + </xsl:otherwise> + </xsl:choose> + </xsl:template> + </xsl:stylesheet>