neocturne/phi
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Some more restructuring, WIP

Browse source
This commit is contained in:
Matthias Schiffer 2011-07-14 06:16:04 +02:00
parent d519f67816
commit e4314c03fa
5 changed files with 70 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Phi.hs
View file

@ -1,3 +1,4 @@
import Phi.Phi
import Phi.Types
import Phi.Widget
import Phi.Panel
@ -8,7 +9,8 @@ import Data.Monoid
main :: IO ()
main = do
initPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom}
phi <- initPhi
initPhiX phi defaultXConfig defaultPanelConfig { panelPosition = Bottom, panelSize = 48 }
[border border1 [border border3 [], border border3 []], border border2 []]
where
border1 = BorderConfig (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.25, 0.25, 0.25, 0.5) 7 2