boomange-0.1.0.0: Data/Loader.hs

{-
	Copyright 2013,2014 Marcelo Millani
	
	This file is part of boomange.

    boomange is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    boomange is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with boomange.  If not, see <http://www.gnu.org/licenses/>
-}
module Data.Loader where

import Data.List

import Data.DescriLo

import qualified Data.Simtreelo as Simtreelo
import Data.Tree
import Data.Builder
import Data.Entities hiding (name)

createConfig description = createConfig' (values description) defaultConfig
createConfig' [] config = config
createConfig' (h:r) config = 
	case h of
		("output",outp) -> createConfig' r config{outputFile = outp}
		("header",head) -> createConfig' r config{headerFile = head}
		("footer",foot) -> createConfig' r config{footerFile = foot}
		_               -> createConfig' r config

loadConfig cFile = do
	description <- loadDescriptionFile cFile "config"
	let Just c = find (\x -> (name x) == "config") description
	let config = createConfig c
	let Just w = find (\x -> (name x) == "watch") description
	return $ (createConfig c){watch = map (\(l,r) -> r) (values w)}
	
-- | builds the bookmark tree	
loadBookmarks [] = do return []
loadBookmarks (h:r) = do
	books <- Simtreelo.loadFile	h
	let here = case books of
		Right forest -> -- forest
			if null $ filter (\x -> null $ subForest x) forest then forest
			else [makeError "empty tree" h]
		Left error -> [makeError error h]
	rest <- loadBookmarks r
	return $ (map (buildBookmarks h) here) ++ rest