src/Phi.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

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

import Data.Monoid

main :: IO ()
main = do
  initPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom}
    [border1, border2]
    where
      border1 = border (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.25, 0.25, 0.25, 0.5) 7 2 []
      border2 = border (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.5, 0.0, 0.25, 0.5) 7 1 []