StateHelper.hs

-- trying to merge this helper with the generic one results in cyclic imports

{-# LANGUAGE NoMonomorphismRestriction#-}
{-# LANGUAGE NoImplicitPrelude #-}

module Bamboo.Helper.StateHelper where

import Bamboo.Helper.Env
import qualified Bamboo.Config.Global as G

-- G.root = /blog
-- raw_uri = blog/x
-- full_uri = /blog/x
-- uri = full_uri - (/blog/)
remove_root s
  | G.root.is "/" = s
  | otherwise     = s.slice (G.root.length) (s.length)

uri env = raw_uri env .b2u .remove_root
-- uri = raw_uri

-- global
parse_date format s = case maybe_d of
  Nothing -> Nothing
  Just d -> Just $ if d.ctYear < 1910 then d {ctYear = d.ctYear + 100} else d 
  where
    maybe_d = parseCalendarTime defaultTimeLocale format s
  
format_time          = formatCalendarTime defaultTimeLocale
default_date         = parse_date "%Y-%m-%d %T" "2000-1-1 00:00:00".fromJust
parse_post_date      = parse_date G.post_date_format
default_parse_date s = s.parse_post_date .fromMaybe default_date

has_extension x = G.extensions.has x
only_for ext x = if has_extension ext then x else toHtml ""

-- controller
paginate env xs = full_paginate (G.per_page) (xs.length) env

cut       = G.cut
match_cut = isInfixOf cut
is_cut    = isPrefixOf cut

-- not used for efficiency
-- cut_re    = "^\\s*" ++ cut
-- split_cut = split cut_re


-- model
path id = G.flat_uri / id