nix/wm/xmonad: some cosmetic changes
This commit is contained in:
parent
60ac773718
commit
c18863cd22
1 changed files with 22 additions and 22 deletions
|
@ -61,21 +61,23 @@ myBorderWidth = 2
|
||||||
--
|
--
|
||||||
myModMask = mod1Mask
|
myModMask = mod1Mask
|
||||||
|
|
||||||
-- The default number of workspaces (virtual screens) and their names.
|
webWs = "web"
|
||||||
-- By default we use numeric strings, but any string may be used as a
|
finWs = "fin"
|
||||||
-- workspace name. The number of workspaces is determined by the length
|
sysWs = "sys"
|
||||||
-- of this list.
|
comWs = "com"
|
||||||
--
|
devWs = ["dev", "dev2", "dev3"]
|
||||||
-- A tagging example:
|
myWorkspaces = [webWs] <> devWs <> [finWs, sysWs, comWs]
|
||||||
--
|
|
||||||
-- > workspaces = ["web", "irc", "code" ] ++ map show [4..9]
|
|
||||||
--
|
|
||||||
myWorkspaces = ["web", "dev", "dev2", "dev3", "fin", "sys", "com"]
|
|
||||||
|
|
||||||
|
|
||||||
|
blue = "#2E9AFE"
|
||||||
|
gray = "#7F7F7F"
|
||||||
|
orange = "#ea4300"
|
||||||
|
purple = "#9058c7"
|
||||||
|
red = "#722222"
|
||||||
-- Border colors for unfocused and focused windows, respectively.
|
-- Border colors for unfocused and focused windows, respectively.
|
||||||
--
|
--
|
||||||
myNormalBorderColor = "#444"
|
myNormalBorderColor = gray
|
||||||
myFocusedBorderColor = "#2E9AFE"
|
myFocusedBorderColor = blue
|
||||||
|
|
||||||
main :: IO ()
|
main :: IO ()
|
||||||
main = mkDbusClient >>= main'
|
main = mkDbusClient >>= main'
|
||||||
|
@ -128,12 +130,6 @@ dbusOutput dbus str =
|
||||||
polybarHook :: D.Client -> PP
|
polybarHook :: D.Client -> PP
|
||||||
polybarHook dbus =
|
polybarHook dbus =
|
||||||
let wrapper c = wrap ("%{F" <> c <> "}") "%{F-}"
|
let wrapper c = wrap ("%{F" <> c <> "}") "%{F-}"
|
||||||
|
|
||||||
blue = "#2E9AFE"
|
|
||||||
gray = "#7F7F7F"
|
|
||||||
orange = "#ea4300"
|
|
||||||
purple = "#9058c7"
|
|
||||||
red = "#722222"
|
|
||||||
in def { ppOutput = dbusOutput dbus
|
in def { ppOutput = dbusOutput dbus
|
||||||
, ppCurrent = wrapper blue
|
, ppCurrent = wrapper blue
|
||||||
, ppVisible = wrapper purple
|
, ppVisible = wrapper purple
|
||||||
|
@ -159,8 +155,12 @@ myPolybarLogHook dbus = myLogHook <+> dynamicLogWithPP (polybarHook dbus)
|
||||||
myLayout = avoidStruts . smartBorders $ (Mirror tiled ||| tiled ||| column3 ||| full)
|
myLayout = avoidStruts . smartBorders $ (Mirror tiled ||| tiled ||| column3 ||| full)
|
||||||
where
|
where
|
||||||
full = Full
|
full = Full
|
||||||
tiled = gapSpaced 5 $ Tall 1 (3/100) (1/2)
|
tiled = gapSpaced 5 $ Tall nmaster incRatio ratio
|
||||||
column3 = gapSpaced 5 $ ThreeColMid 1 (3/100) (1/2)
|
column3 = gapSpaced 5 $ ThreeColMid nmaster incRatio ratio
|
||||||
|
|
||||||
|
nmaster = 1
|
||||||
|
incRatio = (3/100)
|
||||||
|
ratio = (1/2)
|
||||||
|
|
||||||
gapSpaced g = spacing g . myGaps g
|
gapSpaced g = spacing g . myGaps g
|
||||||
myGaps gap = gaps [(U, gap), (D, gap), (L, gap), (R, gap)]
|
myGaps gap = gaps [(U, gap), (D, gap), (L, gap), (R, gap)]
|
||||||
|
@ -218,8 +218,8 @@ myManageHook = composeAll
|
||||||
, className =? "Gnome-calculator" --> doFloat
|
, className =? "Gnome-calculator" --> doFloat
|
||||||
, className =? "Gnome-font-viewer" --> doFloat
|
, className =? "Gnome-font-viewer" --> doFloat
|
||||||
, className =? "Org.gnome.Nautilus" --> doFloat
|
, className =? "Org.gnome.Nautilus" --> doFloat
|
||||||
, resource =? "telegram-desktop" --> doShift "com"
|
, resource =? "telegram-desktop" --> doShift comWs
|
||||||
, className =? "Thunderbird" --> doShift "com"
|
, className =? "Thunderbird" --> doShift comWs
|
||||||
-- my libs
|
-- my libs
|
||||||
, resource =? "hwt" --> doFloat
|
, resource =? "hwt" --> doFloat
|
||||||
]
|
]
|
||||||
|
|
Loading…
Reference in a new issue