module Villefort.Config  where

import Villefort.Definitions (VConfig(..)
                             , daily
                             , monthly
                             , yearly
                             , weekly
                             , port
                             , noCustom
                             , showDatabase
                             , colors
                             , database
                             , Weekly(..)
                             , monday
                             , tuesday
                             , wednesday
                             , thursday
                             , friday
                             , saturday
                             , sunday)

-- | Default configuration of VConfig
def :: VConfig
def = VConfig {
  daily = [return []], --daily tasks
  monthly =[[]], -- not implemented
  yearly =[[]], --  not implemented
  weekly = defWeekly, -- tasks to run on a given week day
  port = 3002, -- port
  noCustom = False, -- flag for debugging stops launching custom executable
  showDatabase = False, -- optionally prints database
  colors = defColors, -- Colors to use first is closest task
  database = [] -- flag for debugging sets database path
              }
-- | Default weekly schedule by default is empty
defWeekly :: Weekly
defWeekly = Weekly {
  monday = [return []],
  tuesday =[return[]],
  wednesday = [return[]],
  thursday = [return[]],
  friday  = [return[]],
  saturday = [return[]],
  sunday  = [return []]
                   }
-- | Default colors for Villefort
defColors :: [String]
defColors = ["#0d47a1","#1565c0","#1976d2","#1e88e5","#2196f3","#42a5f5","#64b5f6","#90caf9"]