Как выделить активную ссылку с помощью Snap?

На сайте snapframework.com мы делаем это с помощью javascript. В конце site.js вы найдете этот код, который добавляет соответствующий класс в соответствующую ссылку.

if ($.url.segment(0)) {
  $('.nav li.'+$.url.segment(0)).addClass('active');
} else {
  $('.nav .home').addClass('active');
}

Если вы хотите сделать это с помощью Heist, вам нужно будет использовать парадигму, немного отличающуюся от той, что используется в вашем шаблоне выше. Весь смысл Heist (при поддержке сильной статической системы типов Haskell) состоит в том, чтобы обеспечить максимально возможное разделение между представлением и бизнес-логикой, чтобы вы не могли использовать конструкции Haskell, такие как циклы или условные операторы, непосредственно в своих шаблонах. Ответ заключается в создании нового тега (реализованного с помощью соединения), который делает именно то, что вы хотите. В своем шаблоне вы будете использовать его следующим образом:

<ul>
  <menuLink href="/">Home</menuLink>
  <menuLink href="/about">About Us</menuLink>
</ul>

Прежде всего, обратите внимание, насколько это стало чище. В вашем подходе вам приходилось повторять один и тот же код для каждой ссылки. Здесь мы можем сохранить шаблон СУХИМ, и он довольно хорошо читается.

Для реализации тега menuLink вам понадобится сплайс, который выглядит примерно так:

import Control.Monad.Trans.Class (lift) -- transformers 
import Data.Text.Encoding (decodeUtf8)
import Text.XmlHtml (getAttribute, setAttribute, elementTag)

menuLinkSplice :: MonadSnap m => HeistT m Template
menuLinkSplice = do
    requestPath <- lift $ withRequest (return . rqURI)
    node <- getParamNode
    let addActive n = if getAttribute "href" n == Just (decodeUtf8 requestPath)
                           then setAttribute "class" "active" n
                           else n
    return [addActive (node { elementTag = "a" })]

Затем, чтобы собрать все это вместе, вам нужно привязать этот сплайс к тегу menuLink. В приложении Snap вы сделаете это с помощью:

addSplices [ ("menuLink", liftHeist menuLinkSplice) ]

Вы также можете найти мою запись в блоге Цикл и поток управления in Heist полезно (а также некоторые другие мои посты с тегом "heist").

Насколько я могу судить, Heist требует, чтобы вы поместили даже такую ​​логику в Haskell, а не в Heist. См., например, этот пример из документы для Text.Templating.Heist:

link :: Text -> Text -> X.Node
link target text = X.Element "a" [("href", target)] [X.TextNode text]

loginLink :: X.Node
loginLink = link "/login" "Login"

logoutLink :: Text -> X.Node
logoutLink user = link "/logout" (T.append "Logout " user)

loginLogoutSplice :: Splice MyAppMonad
loginLogoutSplice = do
    user <- lift getUser
    return [maybe loginLink logoutLink user]

Здесь вместо того, чтобы передавать Bool в шаблон и позволять шаблону выполнять логику if/then, вся логика выполняется на уровне Haskell. Это лучший ответ, который я могу дать. Я не знаком с Heist; Я знаю, что вы можете привести аргументы для сращивания, но мне непонятно, как выполнить вашу конкретную задачу.