From ca28680f79063c31cac2bdd9c7a47d06587f6797 Mon Sep 17 00:00:00 2001
From: Mike Gerwitz <mtg@gnu.org>
Date: Tue, 29 Sep 2015 22:51:47 -0400
Subject: [PATCH] Add namespace to function/template Texinfo output

This allows users to actually...uh..._use_ it.
---
 src/texinfo.xsl | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/src/texinfo.xsl b/src/texinfo.xsl
index 9dcb121..1ed8baf 100644
--- a/src/texinfo.xsl
+++ b/src/texinfo.xsl
@@ -119,6 +119,9 @@
   <variable name="doc" as="xs:string?"
             select="xt:get-docblock( . )" />
 
+  <variable name="xmlns" as="xs:string"
+            select="xt:get-xmlns-from-name( @name, . )" />
+
   <variable name="param-str" as="xs:string"
             select="string-join( xt:typed-param-str( xsl:param ),
                                  ', ' )" />
@@ -141,6 +144,8 @@
                       '@deftypefn ', name(), ' {', $type, '} ',
                         @name, ' (', $param-str, ')',
                       $xt:nl,
+                      concat( '@t{', $xmlns, '}' ),
+                      $xt:nl,
                       $doc,
                       $xt:nl,
                       '@emph{Definition:}',
@@ -156,6 +161,29 @@
 </template>
 
 
+<!--
+  Generate xmlns attribute for the namespace prefix of @var{name}
+-->
+<function name="xt:get-xmlns-from-name" as="xs:string">
+  <param name="name"    as="xs:string" />
+  <param name="context" as="element()" />
+
+  <variable name="prefix" as="xs:string"
+            select="substring-before( $name, ':' )" />
+
+  <sequence select="concat(
+                      'xmlns',
+                      ( if ( $prefix ) then
+                          concat( ':', $prefix )
+                        else
+                          '' ),
+                      '=&quot;',
+                      namespace-uri-for-prefix(
+                        $prefix, $context ),
+                      '&quot;' )" />
+</function>
+
+
 <!--
   Determine whether the given comment node is a docblock