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

Allow showing desktop numbers in taskbar

Browse source
This commit is contained in:
Matthias Schiffer 2011-07-16 10:46:26 +02:00
parent a4936c35b6
commit b2b35e632a
3 changed files with 126 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/Phi.hs
View file

@ -12,16 +12,35 @@ 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
normalTaskBorder = BorderConfig (BorderWidth 2 (-4) 2 7) 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)}
normalDesktopBorder = normalTaskBorder { margin = BorderWidth 2 3 2 3
, padding = BorderWidth 0 2 0 2
, borderColor = (0.75, 0.75, 0.75, 0.5)
, backgroundColor = (1, 1, 1, 0.8)
}
currentDesktopBorder = normalDesktopBorder { borderColor = (0.75, 0.75, 0.75, 0.8)
, backgroundColor = (0.2, 0.2, 0.2, 0.9)
}
taskStyle = TaskStyle { taskFont = "Sans 7"
, taskColor = (1, 1, 1, 1)
, taskBorder = normalTaskBorder
, taskIconStyle = idIconStyle
}
normalDesktopStyle = DesktopStyle { desktopFont = "Sans 8"
, desktopLabelWidth = 15
, desktopLabelGap = (-5)
, desktopColor = (0, 0, 0, 1)
, desktopBorder = normalDesktopBorder
}
currentDesktopStyle = normalDesktopStyle { desktopBorder = currentDesktopBorder
, desktopColor = (1, 1, 1, 1)
}
theTaskbar = taskbar defaultTaskbarConfig { normalTaskStyle = taskStyle {taskIconStyle = desaturateIconStyle 0.7}
, activeTaskStyle = taskStyle {taskBorder = activeTaskBorder}
, desktopStyle = Just (normalDesktopStyle, currentDesktopStyle)
}
theClock = clock defaultClockConfig { clockFormat = "<span font='Sans 8'>%R</span>\n<span font='Sans 6'>%A %d %B</span>"