import Phi.Phi
import Phi.Types
import Phi.Widget
import Phi.Panel
import Phi.Border
import Phi.X11

import Data.Monoid

main :: IO ()
main = do
  phi <- initPhi
  initPhiX phi defaultXConfig defaultPanelConfig { panelPosition = Bottom }
    [border border1 [border border3 [], border border3 []], border border2 []]
  runPhi phi
    where
      border1 = BorderConfig (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.25, 0.25, 0.25, 0.5) 7 2
      border2 = BorderConfig (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.5, 0.0, 0.25, 0.5) 7 1
      border3 = BorderConfig (simpleBorderWidth 0) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.0, 0.0, 0.5, 0.5) 3 1