blog post teasers

[Conal Elliott]

On my WordPress blog, I use "<!--more-->" to indicate the end of the teaser section. On the blog's front page, the rest of the post is elided, and a link is generated to the full article (part-way through).

Has anyone yet implemented such a feature for Hakyll?

  - Conal

[Jasper Van der Jeugt]

Not that I know of. But I think it's a good feature and it's probably
a good idea to add this to Hakyll. In the meanwhile, I suggest this
code:

-- | Turns body of the page into the teaser
addTeaser :: Compiler (Page String) (Page String)
addTeaser = arr $
copyBodyToField "teaser" >>> changeField "teaser" extractTeaser
where
extractTeaser :: String -> String
extractTeaser [] = []
extractTeaser xs@(x : xr)
| "<!-- more -->" `isPrefixOf` xs = []
| otherwise = x : extractTeaser xr

(excuse me for the horribly inefficient `extractTeaser` function)

This can be added to your compiler pipeline for a post, *before* you
apply any templates. Then, you should be able to use `$teaser$` in
templates.

Hope this helps,
Cheers,
Jasper

[Conal Elliott]

Thanks, Jasper. Works great.  - Conal