[XMonad] Add borders

This commit is contained in:
Ivan Malison 2016-12-24 23:58:23 -08:00
parent 0ff249a951
commit 83312f0648
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -64,6 +64,9 @@ main =
, terminal = "urxvt" , terminal = "urxvt"
, manageHook = myManageHook <+> manageHook def , manageHook = myManageHook <+> manageHook def
, layoutHook = myLayoutHook , layoutHook = myLayoutHook
, borderWidth = 5
, normalBorderColor = "#000000"
, focusedBorderColor = "#455a64"
, logHook = , logHook =
updatePointer (0.5, 0.5) (0, 0) +++ toggleFadeInactiveLogHook 0.9 +++ updatePointer (0.5, 0.5) (0, 0) +++ toggleFadeInactiveLogHook 0.9 +++
ewmhWorkspaceNamesLogHook' myGetWorkspaceNameFromTag +++ ewmhWorkspaceNamesLogHook' myGetWorkspaceNameFromTag +++
@ -274,7 +277,7 @@ selectLayout =
myLayoutHook = myLayoutHook =
avoidStruts . minimize . boringAuto . mkToggle1 MIRROR . mkToggle1 LIMIT . avoidStruts . minimize . boringAuto . mkToggle1 MIRROR . mkToggle1 LIMIT .
mkToggle1 GAPS . mkToggle1 MAGICFOCUS . mkToggle1 NBFULL . workspaceNamesHook . mkToggle1 GAPS . mkToggle1 MAGICFOCUS . mkToggle1 NBFULL . workspaceNamesHook .
smartBorders . noBorders $ fst layoutInfo lessBorders Screen $ fst layoutInfo
-- WindowBringer -- WindowBringer