Heist：如何将子模板的动态列表插入到模板中？

Question

我正在编写一个在线调查网站。我有一个问题列表，所有问题都在一个 html 页面上，并且该列表的长度未知。每个问题的表单都存储在模板 qu1.tpl 中，页面为 qu.tpl。现在我想：

1. 替换每个问题qu1.tpl中的一些名称

2. replace qu.tpl 中的某些内容一次

3. 并保留 qu1.tpl 的所有实例化> 进入qu.tpl

使用我在教程中学到的知识，我尝试了以递归方式将 qu 中的标签 替换为 。 tpl使用 localHeist 和 bindString 但这不起作用，因为 qu.tpl 已经呈现，因此新插入的 apply 标记无法解析。

我该怎么办？

（我想这是一个更普遍的问题。如果您能想到答案适用的其他应用程序，请为搜索引擎添加文本和标签。）

Answer 1

在 Heist 中，当您执行涉及动态数据计算的操作时，通常会使用拼接。前两点可以通过绑定接头来处理。对于第三点，我将首先创建一个呈现特定问题模板的 splice 函数。它看起来像这样：

questionSplice :: Monad m => Int -> Splice m
questionSplice n = do
  splices <- setupSplicesForThisQuestion
  mTemplate <- callTemplate (B.pack ("qu"++(show n))) splices
  return $ fromMaybe [] mTemplate

现在您可以为调查问题列表创建一个拼接：

surveyQuestions :: Monad m => Splice m
surveyQuestions = do
  questions <- getSurveyQuestions
  mapSplices questionSplice questions

然后您可以将此拼接绑定到特定标签并在 qu.tpl 或任何其他模板中的任何位置使用它。

这里重要的部分是 callTemplate 函数。这是 Heist 的函数，用于从 TemplateMonad 计算内部渲染模板。我认为教程中对此没有过多讨论，因为它不是人们通常关心的用例，并且在 API 文档中很容易被忽略。

Answer 2

感谢 mightybyte 在 irc 上帮助我解决这个问题。在我被禁止回答自己的 8 个小时之后，这是我对同一答案的变体：

1. 构建一个读取模板 qu1.tpl 的拼接，将其实例化（即，在问题中填写问题的名称和编号）列表），并返回它。抢劫函数 callTemplate 可以帮助你。 （这个拼接在下面的伪代码中称为 splicex。）

2. 编写另一个折叠 splicex 的拼接，以便您获得一系列（实例化的）问题而不是单个问题。 （伪代码中的函数 splice。）

3. 使用bindSplice 而不是bindString。

伪代码（经过测试然后修改并脱离上下文） -

 ... -> let
          splice :: Monad m => Splice m
          splice = foldM (\ ts (s, i) ->
                             liftM ((++) ts) $ splicex (quName, quNumber))
                         []
                         (zip questionName [0..])

          splicex :: Monad m => (String, Int) -> Splice m
          splicex (quName, quNumber) =
              do
                mt <- callTemplate "qu1"
                        [ ("question-name", Data.Text.pack quName)
                        , ("question-number", Data.Text.pack $ show quNumber)
                        ]

                case mt of
                  Nothing -> error "splice rendering failed."
                  Just (t :: Template) -> return t
         in
           -- fill in the list of (instatiated) questions
           heistLocal (bindSplice "qulist" splice) $
           -- before that, instantiate the overall page
           instantiatePage $
           render "qu"

顺便说一句，我的 sourceforge 头像太弱了，无法创建新标签。有人愿意用“抢劫”来标记这个吗？

链接：

http://snapframework.com/

freenode IRC 网络上的 #snapframework 频道。

http://snapframework.com/docs/tutorials/heist

Answer 3

当我试图找出模板循环时，我多次偶然发现这个问题。遗憾的是，这里的所有内容可能都已经过时了，0.5 版（或更低版本）而 0.6 版（我猜）引入了 runChildrenWith。

使用 runChildrenWith 的一个简单示例是：

list_test_entries.tpl:

<listTestEntries>
  <dt><testEntry/></dt>
  <dd>This is part of the repeated template</dd>
</listTestEntries>

Site.hs:

listTestEntriesHandler :: Handler App App  ()
listTestEntriesHandler = do
    results <- getData 
    renderWithSplices "list_test_entries"
        ("listTestEntries" ## listTestEntriesSplice results)

getData :: Handler App App [String]
getData = return ["1", "2", "3"]

listTestEntriesSplice  :: [String] -> I.Splice AppHandler
listTestEntriesSplice = I.mapSplices (I.runChildrenWith . listTestEntrySplice)

listTestEntrySplice :: Monad m => String -> Splices (HeistT n m Template)
listTestEntrySplice dataEntry = do
  "testEntry" ## I.textSplice (T.pack $ "data: " ++ dataEntry)

请参阅 https:// /github.com/michaxm/heist-template-loop-demo 用于运行演示。