Global.hs

module Panda.Config.Global where

import Panda.Helper.Env
import Prelude hiding ((.), (/), (^), id, readFile)
import Panda.Type.Reader

db_id       = "db"
flat_id     = "."
blog_id     = "blog"
config_id   = "config"
tag_id      = "tag"
comment_id  = "comment"

db_uri      = db_id
flat_uri    = db_uri / flat_id

config_uri  = flat_uri / config_id / "site.txt"
blog_uri    = flat_uri / blog_id
tag_uri     = flat_uri / tag_id
comment_uri = flat_uri / comment_id


-- unsafe, must restart server after changing config file, sorry about that ...
-- but these configs are read only, and keep the view pure, so no monad headaches involved.

user_config     = readFile config_uri .purify .filter_comment .lines .map strip .map (split "\\s*=\\s*") .map tuple2
config_for' s d = user_config.lookup s .fromMaybe d

config_for s    = config_for' s s

blog_title      = config_for "blog_title"
blog_subtitle   = config_for "blog_subtitle"
host_name       = config_for "host_name"
author_email    = config_for "author_email" 

per_page        = config_for' "per_page" "7" .read :: Int
navigation      = config_for' "navigation" "About" .split "," .map strip .reject null .("Home" :)

panda_url       = "http://github.com/nfjinjing/panda"

default_reader  = Markdown