31 lines
1.5 KiB
Haskell
31 lines
1.5 KiB
Haskell
import Phi.Types
|
|
import Phi.Widget
|
|
import Phi.Panel
|
|
import Phi.Border
|
|
import Phi.X11
|
|
|
|
import Phi.Widgets.Clock
|
|
import Phi.Widgets.Taskbar
|
|
|
|
main :: IO ()
|
|
main = do
|
|
runPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom }
|
|
[theTaskbar, brightBorder [theClock]]
|
|
where
|
|
normalTaskBorder = BorderConfig (BorderWidth 2 4 2 4) 1 (BorderWidth 0 5 0 5) (0.9, 0.9, 0.9, 0.65) (0.45, 0.45, 0.45, 0.8) 5 0
|
|
activeTaskBorder = normalTaskBorder {borderColor = (1, 1, 1, 0.65), backgroundColor = (0, 0, 0, 0.8)}
|
|
taskStyle = TaskStyle { taskFont = "Sans 7"
|
|
, taskColor = (1, 1, 1, 1)
|
|
, taskBorder = normalTaskBorder
|
|
, taskIconStyle = idIconStyle
|
|
}
|
|
|
|
theTaskbar = taskbar defaultTaskbarConfig { normalTaskStyle = taskStyle {taskIconStyle = desaturateIconStyle 0.7}
|
|
, activeTaskStyle = taskStyle {taskBorder = activeTaskBorder}
|
|
}
|
|
|
|
theClock = clock defaultClockConfig { clockFormat = "<span font='Sans 8'>%R</span>\n<span font='Sans 6'>%A %d %B</span>"
|
|
, lineSpacing = (-2)
|
|
, clockSize = 75
|
|
}
|
|
brightBorder = border $ BorderConfig (simpleBorderWidth 1) 1 (BorderWidth (-2) 3 0 3) (0.5, 0.5, 0.5, 0.65) (0.85, 0.85, 0.85, 0.8) 5 0
|