blob: 73beba8b557942925a1743e78747d9dfdc47d137 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
import Phi.Types
import Phi.Panel
import Phi.Border
import Phi.X11
import Data.Monoid
main :: IO ()
main = do
initPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom}
[border (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.25, 0.25, 0.25, 0.5) 7 1 []]
|