Safe Haskell	None
Language	Haskell2010

Lykah.Structure

Description

Types for the website's structure: Website, Theme, Pages, Types

Synopsis

Documentation

data Website Source #

Constructors

Website
Fields wTheme :: Theme googleAnalyticsId :: T.Text wMenu :: [PathedPage ()] wPosts :: [PathedPage Post] wAssets :: Assets

type SHtml2 a b = EHtml (Website, PathedPage a) b Source #

eigentlich sollte das `HTML Template` heißen. TODO

type SHtml a = SHtml2 a () Source #

data Theme Source #

Constructors

Theme

Fields

tAssets :: Assets
tPage :: forall a. SHtml a -> SHtml a
the first argument is an explicit body. This is needed because the body of current asset (in the enviromnent) should be used in a static fashion and not used for thinks like `tPage . tPost`
tPost :: Bool -> SHtml Post
Template for post rendering, with the first argument indicating full page or single blog entry
tMenuItem :: forall a. Int -> Bool -> PathedPage () -> SHtml a
first arg: one-based index of the current item
second arg: menu item for current page?

Instances

Show Theme Source #
Methods showsPrec :: Int -> Theme -> ShowS # show :: Theme -> String # showList :: [Theme] -> ShowS #

data Page a Source #

Constructors

Page
Fields pTitle :: Html pBody :: SHtml a pDetails :: a

Instances

Show a => Show (Page a) Source #
Methods showsPrec :: Int -> Page a -> ShowS # show :: Page a -> String # showList :: [Page a] -> ShowS #

type PathedPage a = Pathed (Page a) Source #

mapSHtml_old :: (Page b -> Page a) -> SHtml a -> SHtml b Source #

withPage_old :: Page a -> SHtml a -> SHtml () Source #

capture_old :: Page a -> Page () Source #

localSHtml :: (Pathed (Page b) -> Pathed (Page a)) -> SHtml a -> SHtml b Source #

withPathed :: Pathed (Page a) -> SHtml a -> SHtml b Source #

withPage :: Page a -> SHtml a -> SHtml b Source #

withBody Source #

Arguments

:: SHtml a	Body
-> SHtml a	Template that uses `Body`
-> SHtml a	Result

capture :: Pathed (Page a) -> Pathed (Page ()) Source #

relax :: SHtml () -> SHtml a Source #

data Post Source #

Constructors

Post
Fields poDate :: ZonedTime

Instances

Show Post Source #
Methods showsPrec :: Int -> Post -> ShowS # show :: Post -> String # showList :: [Post] -> ShowS #

renderWebsite :: Website -> Assets Source #

readDetails :: (MonadReader (Env (a1, Pathed (Page b))) m, MonadTrans t) => (b -> a) -> t m a Source #

readTheme :: (MonadReader (Env (Website, b1)) m, MonadTrans t) => (Theme -> a) -> t m a Source #

askPage :: SHtml2 b (Page b) Source #

askTheme :: SHtml2 b Theme Source #

askBody :: SHtml b Source #

page Source #

Arguments

:: Identifier
-> Html	title
-> FilePath	path
-> Maybe (Pathed ())	parent
-> SHtml ()	body
-> PathedPage ()

post Source #

Arguments

:: Identifier
-> FilePath	path
-> String	zoned time in "%Y-%m-%d %H:%M %Z" format
-> Html	title
-> Maybe (Pathed a)	parent
-> SHtml Post	body
-> PathedPage Post

renders a subset of posts

postList :: (Page Post -> Bool) -> SHtml () Source #

menu :: SHtml a Source #

Generates the Menu

module Lykah.Assets