nix/wm/xmonad: some cosmetic changes

This commit is contained in:
Dmitriy Pleshevskiy 2022-08-25 17:25:46 +03:00
parent 60ac773718
commit c18863cd22
Signed by: pleshevskiy
GPG key ID: 1B59187B161C0215

View file

@ -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
] ]