diff options
| author | makefu <github@syntax-fehler.de> | 2016-02-22 14:35:59 +0100 |
|---|---|---|
| committer | makefu <github@syntax-fehler.de> | 2016-02-22 14:35:59 +0100 |
| commit | b25d15573ab10a4b2dd55e46291fbab6adf70162 (patch) | |
| tree | 1036547a8003c5767565d53d748d83d3614271b6 /lass/5pkgs/xmonad-lass | |
| parent | 5b7039f1f11e7cf2da6f3735cc7d99322a31c7a5 (diff) | |
| parent | 8393444dce1888d369955e46dd16983a43762bb9 (diff) | |
Merge remote-tracking branch 'cd/master'
Diffstat (limited to 'lass/5pkgs/xmonad-lass')
| -rw-r--r-- | lass/5pkgs/xmonad-lass/Main.hs | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lass/5pkgs/xmonad-lass/Main.hs b/lass/5pkgs/xmonad-lass/Main.hs index faaa00aab..503df3be7 100644 --- a/lass/5pkgs/xmonad-lass/Main.hs +++ b/lass/5pkgs/xmonad-lass/Main.hs @@ -12,7 +12,6 @@ import XMonad import System.IO (hPutStrLn, stderr) import System.Environment (getArgs, withArgs, getEnv, getEnvironment) import System.Posix.Process (executeFile) -import XMonad.Prompt (defaultXPConfig) import XMonad.Actions.DynamicWorkspaces ( addWorkspacePrompt, renameWorkspace , removeEmptyWorkspace) import XMonad.Actions.GridSelect @@ -73,7 +72,7 @@ mainNoArgs = do -- $ withUrgencyHook borderUrgencyHook "magenta" -- $ withUrgencyHookC BorderUrgencyHook { urgencyBorderColor = "magenta" } urgencyConfig { suppressWhen = Never } $ withUrgencyHook (SpawnUrgencyHook "echo emit Urgency ") - $ defaultConfig + $ def { terminal = myTerm , modMask = mod4Mask , workspaces = workspaces0 @@ -169,7 +168,7 @@ myWSConfig = myGSConfig } pagerConfig :: PagerConfig -pagerConfig = defaultPagerConfig +pagerConfig = def { pc_font = myFont , pc_cellwidth = 64 --, pc_cellheight = 36 -- TODO automatically keep screen aspect @@ -182,13 +181,13 @@ pagerConfig = defaultPagerConfig where windowColors _ _ _ True _ = ("#ef4242","#ff2323") windowColors wsf m c u wf = do - let def = defaultWindowColors wsf m c u wf + let y = defaultWindowColors wsf m c u wf if m == False && wf == True - then ("#402020", snd def) - else def + then ("#402020", snd y) + else y wGSConfig :: GSConfig Window -wGSConfig = defaultGSConfig +wGSConfig = def { gs_cellheight = 20 , gs_cellwidth = 192 , gs_cellpadding = 5 |