Clustering Function.xqy

declare function app:cluster() as element(li)*
{
if ($config:RESPONSE/search:result) then
	let $docs :=
		for $uri in $config:RESPONSE/search:result/@uri
			return fn:doc($uri)
	let $cluster-nodes := cts:cluster($docs,	
		<options xmlns="cts:cluster">
			      <algorithm>lsi</algorithm>
			    </options>)
	for $cluster in $cluster-nodes/cts:cluster
		return <li><a href="#">{xs:string($cluster/@label)}&nbsp;({xs:string($cluster/@count)})</a></li>
else <li></li>
};