Added basic rendering functions

1 files changed, 5 insertions, 1 deletions

diff --git a/src/Phi.hs b/src/Phi.hs
index 6106010..a3d4762 100644
--- a/src/Phi.hs
+++ b/src/Phi.hs
@@ -1,6 +1,10 @@
 import Phi.Panel
+import Phi.Border
 import Phi.X11
 
+import Data.Monoid
+
 main :: IO ()
 main = do
-  initPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom }
+  initPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom, panelContent = border (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.25, 0.25, 0.25, 0.5) 7 1 mempty }
+  --initPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom, panelContent = border (simpleBorderWidth 0) 0 (simpleBorderWidth 2) (1, 1, 1, 1) (0.75, 0.75, 0.75, 1) 0 1 mempty }