module Hakyll.Web.Template.Util
    ( slug
    ) where

import Prolog
import Hakyll.Web.Template.Context
import Data.String.Slugger


slug :: Context a
slug = functionField "slug" $ \strs _ -> pure $ toSlug $ unwords strs