Sidebar with Clustering.xqy

declare function app:sidebar()
as element(div)?
{
    let $view := $config:CONTEXT/*:view
    return
        if ($view = ("help","contact","terms"))
        then ()
        else
        <div class="sidebar" arcsize="5 5 0 0">
            <div class="sidebar-background" arcsize="5 0 0 5" border="rgb(222,222,222)" id="sidebar_background">&nbsp;</div>
            <div class="sidebar-shadow">
                <div>&nbsp;</div></div>
                { if ($view eq "detail")
                  then xdmp:apply($config:remove-facet)
                  else if ($view = ("search","intro"))
                  then (xdmp:apply($config:facets),
					<div  class="category">
						<h4 title="Topic">Topic</h4>
						<ul style="height: auto;">
							{app:cluster()}
						</ul>
					</div>)
                  else ()}
        </div>
};