summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorMatthias Schiffer <mschiffer@universe-factory.net>2011-09-07 19:35:59 +0200
committerMatthias Schiffer <mschiffer@universe-factory.net>2011-09-07 19:35:59 +0200
commit6746d60e3f23a2abe4abe8bb0d26821b8faef8bd (patch)
treec52853873cf3c4399f129c65676165db2d349c21 /src
parent15d9304e052d2e5d4416e54a6fd24fbd0a252964 (diff)
downloadphi-6746d60e3f23a2abe4abe8bb0d26821b8faef8bd.tar
phi-6746d60e3f23a2abe4abe8bb0d26821b8faef8bd.zip
Use new XHB backend for Taskbar
Diffstat (limited to 'src')
-rw-r--r--src/Phi.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Phi.hs b/src/Phi.hs
index 6ffff61..c5ba113 100644
--- a/src/Phi.hs
+++ b/src/Phi.hs
@@ -6,13 +6,13 @@ import Phi.X11
import Phi.Widgets.AlphaBox
import Phi.Widgets.Clock
---import Phi.Widgets.Taskbar
+import Phi.Widgets.Taskbar
--import Phi.Widgets.Systray
main :: IO ()
main = do
- runPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom } $ alphaBox 0.9 $ {- theTaskbar <~> brightBorder theSystray <~> -} brightBorder theClock
+ runPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom } $ alphaBox 0.9 $ theTaskbar <~> {-brightBorder theSystray <~> -} brightBorder theClock
where
normalTaskBorder = BorderConfig (BorderWidth (-1) (-3) (-1) 7) 1 (BorderWidth 0 5 0 5) (0.9, 0.9, 0.9, 0.8) (0.45, 0.45, 0.45, 0.8) 5 0
activeTaskBorder = normalTaskBorder { borderColor = (1, 1, 1, 0.8)
@@ -25,7 +25,7 @@ main = do
}
currentDesktopBorder = normalDesktopBorder { backgroundColor = (0.2, 0.2, 0.2, 0.9)
}
- {-taskStyle = TaskStyle { taskFont = "Sans 7"
+ taskStyle = TaskStyle { taskFont = "Sans 7"
, taskColor = (1, 1, 1, 1)
, taskBorder = normalTaskBorder
, taskIconStyle = idIconStyle
@@ -46,7 +46,7 @@ main = do
, desktopStyle = Just (normalDesktopStyle, currentDesktopStyle)
}
- theSystray = systray-}
+ --theSystray = systray
theClock = clock defaultClockConfig { clockFormat = "<span font='Sans 8'>%R</span>\n<span font='Sans 6'>%A %d %B</span>"
, lineSpacing = (-3)