feat: improve function signature rendering

Author: line-o

src/main/xar-resources/modules/app.xqm

@@ -236,15 +236,11 @@ function app:print-function(
 ) as element(div) {
     let $comment := $function/xqdoc:comment
     let $function-name := $function/xqdoc:name
-    let $arity := count($function/xqdoc:comment/xqdoc:param)
-    (: If there are params in the signature, but these are not listed in comment/param,
-       do not state that the number of params is 0. :)
-    let $arity := 
-        if ($arity eq 0 and contains($function/xqdoc:signature, '$')) then () else ('.' || $arity)
+    let $arity := xs:integer($function/xqdoc:arity)
     let $function-identifier := 
         (: If the name has no prefix, use the name as it is. :)
         if (contains($function-name, ':')) then (
-            substring-after($function-name, ":") || $arity
+            substring-after($function-name, ":") || "." || $arity
         ) else (
             $function-name || $arity
         )
@@ -259,9 +255,7 @@ function app:print-function(
     let $extDocs := app:get-extended-doc($function)[1]
     return
         <div class="function" id="{$function-identifier}">
-            <header class="function-head">
-                <pre class="signature"><code class="language-xquery">{ $function/xqdoc:signature/node() }</code></pre>
-            </header>
+            { app:print-function-header($function)}
             <div class="function-detail">
                 <p class="description">{ $parsed }</p>
                 {
@@ -311,6 +305,46 @@ function app:print-function(
         </div>
 };
 
+declare %private
+function app:print-function-header($function as element(xqdoc:function)) as element(header) {
+    <header class="function-head">
+        <h4>{$function/xqdoc:name}#{$function/xqdoc:arity}</h4>
+        <pre class="signature"><code class="language-xquery hljs" data-highlighted="yes">
+            <span class="{app:html-class-for-function($function)}">{$function/xqdoc:name}</span>({
+                let $ari := xs:integer($function/xqdoc:arity)
+                return
+                    for $para at $pos in $function//xqdoc:parameter
+                    let $comma := if ($ari > 1 and $pos < $ari) then ", " else ()
+                    return (
+                        <span class="hljs-variable">{$para/xqdoc:name/string()}</span>,
+                        " ",
+                        <span class="hljs-keyword">as</span>,
+                        " ",
+                        <span class="hljs-type">{$para/xqdoc:type/string()}</span>,
+                        $para/xqdoc:type/@occurrence/string() || $comma
+                    )
+            }) <span class="hljs-keyword">as</span>&#160;<span class="hljs-type">{$function/xqdoc:return/xqdoc:type/string()}</span>
+        </code></pre>
+    </header>
+};
+
+declare %private
+function app:html-class-for-function($function as element(xqdoc:function)) as xs:string {
+    if (app:is-builtin-function($function)) then
+        'hljs-built_in'
+    else
+        'hljs-title'
+};
+
+declare %private
+function app:is-builtin-function($function as element(xqdoc:function)) as xs:boolean {
+    not(contains($function/xqdoc:name, ':')) or
+    starts-with($function/xqdoc:name, 'fn:') or
+    starts-with($function/xqdoc:name, 'math:') or
+    starts-with($function/xqdoc:name, 'map:') or
+    starts-with($function/xqdoc:name, 'array:')
+};
+
 declare %private
 function app:include-markdown ($path as xs:string) as element(zero-md) {
     <zero-md src="{ $path }">
@@ -326,10 +360,12 @@ function app:print-parameters($params as element(xqdoc:param)*) as element(table
     <table>
     {
         (: The data generated by xqdm:scan contains too much white space :)
-        $params/normalize-space() !
+        for $param in $params
+        let $split := $param => normalize-space() => tokenize(" ")
+        return
             <tr>
-                <td class="parameter-name">{replace(., "^([^\s]+)\s.*$", "$1")}</td>
-                <td>{replace(., "^[^\s]+\s(.*)$", "$1")}</td>
+                <td class="parameter-name">{head($split)}</td>
+                <td>{tail($split) => string-join(" ")}</td>
             </tr>
     }
     </table>