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 defaultConfig :: VConfig defaultConfig = VConfig { daily = [], -- | tasks that get added daily monthly =[], -- | tasks that get added on the first of each month yearly =[], -- | tasks that get added on the first of the year weekly = defWeekly, -- | tasks to run on a given week day port = 3002, -- | port number noCustom = False, -- | flag for debugging stops launching custom executable showDatabase = False, -- | optionally prints database path colors = defColors, -- | Colors to use first is closest task database = [], -- | sets path to database useful to have database in your custom path dailyPollFrequency = 18000000 -- | the amount of time in microsecond villefort waits to check if the datae changed again } -- | Default weekly schedule by default is empty defWeekly :: Weekly defWeekly = Weekly { monday = [], -- | the tasks to run on monday tuesday =[], -- | the tasks to run on tuesday wednesday = [],-- | the tasks to run on wednesday thursday = [], -- | the tasks to run on thursday friday = [], -- | the tasks to run on friday saturday = [], -- | the tasks to run on saturday sunday = [] -- | the tasks to run on sunday } -- | Default colors for Villefort defColors :: [String] defColors = ["#0d47a1" -- | tasks due today and earlier ,"#1565c0" -- | tasks due tomorrow ,"#1976d2" -- | tasks due in 2 days ,"#1e88e5" -- | tasks due in 3 days ,"#2196f3" -- | tasks due in 4 days ,"#42a5f5" -- | tasks due in 5 days ,"#64b5f6" -- | tasks due in 6 days ,"#90caf9"]