module Config (dbConnect, config) where

import Hope.Module
import Hope.Util (orM)

-- Import all modules that we want to use
import Hope.Module.Hope
import Hope.Module.Item
import Hope.Module.Front
import Hope.Module.Blog
--import Hope.Module.Halbum2
--import Hope.Module.Video
import Hope.Module.Date
import Hope.Module.Tag
import Hope.Module.Comment
import Hope.Module.User
import Hope.Module.Setting
import Hope.Module.Status
--import Hope.Module.GHCRTS
import Hope.Module.URLs
import Hope.Module.CGIVars
import Hope.Module.RUsage
import Hope.Module.RLimit
import Hope.Module.Google
--import Hope.Module.Haskell
import Hope.Module.Static

import DBConnect

config :: Config
config = Config { 
                 -- Add all modules that you want to use here
                 configModules = [
                                  module_item, 
                                  module_front,
                                  module_blog,
--                                  module_halbum2,
--                                module_video,
                                  module_tag,
                                  module_date,
                                  module_comment,
                                  module_setting,
                                  module_user,
                                  module_google,
                                  module_status,
--                                  module_ghcrts,
                                  module_urls,
                                  module_cgivars,
                                  module_rusage,
                                  module_rlimit,
                                  module_hope,
--                                  module_haskell,
                                  module_static
                                 ],
                 configBoxes = boxes,
                 configSettings = noSettings
                }


boxes :: Hope Box -> [Hope Box]
boxes m = [
           wrapBox "topBanner" [brandBox],
           wrapBox "leftBar" [navigationBox], 
           wrapBox "main" [m], 
           boxUnless (pathStartsWith ["image"] 
                      `orM` pathStartsWith ["video"]) $ 
                 wrapBox "rightBar" [latestEntriesShortBox 10], 
           wrapBox "bottomBanner" [infoBox]
          ]