每页多篇文章

Question

我正在用 Hakyll 制作一个网站，我想在同一页面上收集一些帖子。我在 dannysu or EAnalytica 等网站上找到了一些示例，但我的代码无法正常工作，我不明白为什么。

我的代码编译正常，trace 函数显示所有帖子都已加载，编译成功但所有应该包含 3 个帖子的网页都是空的。只有循环之前的文本以及指向下一页和上一页的链接可见。

我的 Hakyll 代码如下。

toolsPages = do
  pag <- buildPaginateWith grouper "tools/*" makeId
  paginateRules pag $ \pageNum pattern -> trace (show pag) $ do
      route idRoute
      compile $ do
          posts <- recentFirst =<< loadAll pattern
          let paginateCtx = paginateContext pag pageNum
              ctx =
                  constField "title" ("Tools - Page " ++ (show pageNum)) <>
                  listField "tools" (postCtx) (return posts) <>
                  paginateCtx <>
                  defaultContext
          makeItem ""
              >>= loadAndApplyTemplate "templates/outils-pag.html" ctx
              >>= relativizeUrls

grouper ids = (liftM (paginateEvery 3) . sortRecentFirst) ids

makeId pageNum = fromFilePath $ "blog/page/" ++ (show pageNum) ++ "/index.html"

postCtx :: Context String
postCtx =
  dateField "date" "%d / %m / %Y"
  `mappend` bodyField "body"
  `mappend` defaultContext

templates/outils-pag.html 模板包含以下内容。

some text before the loop
$for(tool)$
some text inside the loop
$date$
$teaser$
$body$
$endfor$

$if(previousPageNum)$
<a href="$previousPageUrl$">previous</a>
$else$
$endif$
&mdash;
$currentPageNum$ of $numPages$
&mdash;
$if(nextPageNum)$
<a href="$nextPageUrl$">next</a>
$else$
$endif$

你知道我的代码有什么问题吗？
你知道另一个用 Hakyll 分页的例子吗？

Answer 1

此基本编译规则必须在分页前运行 :

tools = do
  match "tools/*" $ do
    route $ setExtension "html"
    compile $ compiler
      >>= loadAndApplyTemplate "templates/tools.html"    postCtx
      >>= relativizeUrls

然后，成功了！

每页多篇文章

Multi posts per pages

haskell

hakyll