如何用hamlet打印以逗号分隔的列表？

Question

使用yesod附带的hamlet模板语言，打印以逗号分隔的列表的最佳方法是什么？

E.g。假设这个代码只打印一个接一个的条目，如何在元素之间插入逗号？或者甚至可能在最后一个条目之前添加“和”：

The values in the list are
$ forall entry <- list
    #{entry}
and that is it.

一些模板语言（如Template Toolkit）提供了检测第一次或最后一次迭代的指令。

Answer 1

我认为没有任何内置的东西。幸运的是，在哈姆雷特中使用辅助函数很容易。例如，如果您的商品是纯字符串，则可以使用Data.List.intercalate在它们之间添加逗号。

The values in the list are 
#{intercalate ", " list} 
and that is it.

如果你想做更好的事情，你可以写函数来处理哈姆雷特值。例如，这是一个在列表中的哈姆雷特值之间添加逗号和“和”的函数。

commaify [x] = x
commaify [x, y] = [hamlet|^{x} and ^{y}|]
commaify (x:xs) = [hamlet|^{x}, ^{commaify xs}|]

这使用^{...}语法将一个Hamlet值插入另一个。现在，我们可以使用它来编写以逗号分隔的带下划线的单词列表。

The values in the list are 
^{commaify (map underline list)} 
and that is it.

在这里，underline只是一个小帮助函数，可以产生比纯文本更有趣的东西。

underline word = [hamlet|<u>#{word}|]

渲染时，会得到以下结果。

The values in the list are <u>foo</u>, <u>bar</u> and <u>baz</u> and that is it.