diff options
Diffstat (limited to 'src/Phi.hs')
| -rw-r--r-- | src/Phi.hs | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -6,13 +6,13 @@ import Phi.X11 import Phi.Widgets.AlphaBox import Phi.Widgets.Clock -import Phi.Widgets.Taskbar -import Phi.Widgets.Systray +--import Phi.Widgets.Taskbar +--import Phi.Widgets.Systray main :: IO () main = do - runPhi defaultXConfig defaultPanelConfig { panelPosition = Top } $ 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) |