[XMonad] Add borders
This commit is contained in:
parent
0ff249a951
commit
83312f0648
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user