有人可以举个例子,用Snap突出显示网站菜单上的“活动”链接吗?或者至少告诉我你会怎么做——因为我不知道。
在其他网络框架中,我通常设置一个上下文变量,称为active
活动页面应该是什么,然后我的 html 简单地检查它:
<ul>
{% ifequal active "home" %}
<li class="active">
{% else %}
<li>
{% endifqual %}
<a href="/">Home</a>
</li>
{% ifequal active "about" %}
<li class="active">
{% else %}
<li>
{% endifequal %}
<a href="/about">About Us</a>
</li>
</ul>
抢劫中有拼接,但我不确定您将如何使用它们来确定当前 url 是什么或设置上下文变量。
我的解决方案
感谢@mightybyte 和@Adam Bergmark,我已经解决了以下问题:
哈斯克尔代码:
menuenuEntrySplice :: MonadSnap m => HeistT m Template
menuEntrySplice = do
requestPath <- lift $ withRequest (return . rqURI)
node <- getParamNode
let setActive n = if getAttribute "href" node == Just (decodeUtf8 requestPath)
then setAttribute "class" "active" n
else n
let aNode = Element "a" [("href", fromMaybe "/" $ getAttribute "href" node)] $ [TextNode (nodeText node)]
let liNode = setActive $ Element "li" [] [aNode]
return [liNode]
app :: SnapletInit App App
app = makeSnaplet "app" "An snaplet example application." Nothing $ do
....
addSplices [ ("menuEntry", liftHeist menuEntrySplice) ]
return $ App h s a
现在它在 HTML 中使用:
<ul class="nav">
<menuEntry href="/">Home</menuEntry>
<menuEntry href="/contact">Contact</menuEntry>
</ul>
产生:
<ul class="nav">
<li class="active"> <a href="/">Home</a> </li>
<li> <a href="/contact">Contact</a> </li>
</ul>