23 lines
728 B
Haskell
23 lines
728 B
Haskell
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
module Mock.Blog.Wording (
|
||
|
defaultWording
|
||
|
) where
|
||
|
|
||
|
import Blog.Wording (Wording(..))
|
||
|
import qualified Data.Map as Map (fromList)
|
||
|
|
||
|
defaultWording :: Wording
|
||
|
defaultWording = Wording $ Map.fromList [
|
||
|
("allLink", "See all")
|
||
|
, ("allPage", "All articles{? tagged ${tag}?}")
|
||
|
, ("commentsLink", "Comment on the fediverse")
|
||
|
, ("commentsSection", "Comments")
|
||
|
, ("dateFormat", "en-US")
|
||
|
, ("latestLink", "See only latest")
|
||
|
, ("latestPage", "Latest articles{? tagged ${tag}?}")
|
||
|
, ("metadata", "{?by ${author} ?}on ${date}{? tagged ${tags}?}")
|
||
|
, ("rssLink", "Subscribe")
|
||
|
, ("rssTitle", "Follow all articles{? tagged ${tag}?}")
|
||
|
, ("tagsList", "Tags")
|
||
|
]
|