Mic92/stockholm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

l 5 xmonad-lass Main: fix xmonad errors

Browse Source
This commit is contained in:
lassulus 2016-02-17 15:01:35 +01:00
parent a9ee56451d
commit 2d94344677
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lass/5pkgs/xmonad-lass/Main.hs
View File

@ -12,7 +12,6 @@ import XMonad
import System.IO (hPutStrLn, stderr) import System.IO (hPutStrLn, stderr)
import System.Environment (getArgs, withArgs, getEnv, getEnvironment) import System.Environment (getArgs, withArgs, getEnv, getEnvironment)
import System.Posix.Process (executeFile) import System.Posix.Process (executeFile)
import XMonad.Prompt (defaultXPConfig)
import XMonad.Actions.DynamicWorkspaces ( addWorkspacePrompt, renameWorkspace import XMonad.Actions.DynamicWorkspaces ( addWorkspacePrompt, renameWorkspace
, removeEmptyWorkspace) , removeEmptyWorkspace)
import XMonad.Actions.GridSelect import XMonad.Actions.GridSelect
@ -73,7 +72,7 @@ mainNoArgs = do
-- $ withUrgencyHook borderUrgencyHook "magenta" -- $ withUrgencyHook borderUrgencyHook "magenta"
-- $ withUrgencyHookC BorderUrgencyHook { urgencyBorderColor = "magenta" } urgencyConfig { suppressWhen = Never } -- $ withUrgencyHookC BorderUrgencyHook { urgencyBorderColor = "magenta" } urgencyConfig { suppressWhen = Never }
$ withUrgencyHook (SpawnUrgencyHook "echo emit Urgency ") $ withUrgencyHook (SpawnUrgencyHook "echo emit Urgency ")
$ defaultConfig $ def
{ terminal = myTerm { terminal = myTerm
, modMask = mod4Mask , modMask = mod4Mask
, workspaces = workspaces0 , workspaces = workspaces0
@ -169,7 +168,7 @@ myWSConfig = myGSConfig
} }
pagerConfig :: PagerConfig pagerConfig :: PagerConfig
pagerConfig = defaultPagerConfig pagerConfig = def
{ pc_font = myFont { pc_font = myFont
, pc_cellwidth = 64 , pc_cellwidth = 64
--, pc_cellheight = 36 -- TODO automatically keep screen aspect --, pc_cellheight = 36 -- TODO automatically keep screen aspect
@ -182,13 +181,13 @@ pagerConfig = defaultPagerConfig
where where
windowColors _ _ _ True _ = ("#ef4242","#ff2323") windowColors _ _ _ True _ = ("#ef4242","#ff2323")
windowColors wsf m c u wf = do 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 if m == False && wf == True
then ("#402020", snd def) then ("#402020", snd y)
else def else y
wGSConfig :: GSConfig Window wGSConfig :: GSConfig Window
wGSConfig = defaultGSConfig wGSConfig = def
{ gs_cellheight = 20 { gs_cellheight = 20
, gs_cellwidth = 192 , gs_cellwidth = 192
, gs_cellpadding = 5 , gs_cellpadding = 5