Update XMonad config

This commit is contained in:
daniele 2025-03-02 22:29:57 +01:00
parent 65306eadb8
commit 5a728d4bd9
Signed by: fuxino
GPG Key ID: 981A2B2A3BBF5514

View File

@ -19,6 +19,7 @@ import XMonad.Layout.Magnifier
import XMonad.Layout.NoBorders
import XMonad.Layout.PerWorkspace
import XMonad.Layout.Renamed
import XMonad.Layout.Spacing
import XMonad.Layout.Spiral
import XMonad.Layout.Tabbed
import XMonad.Layout.ThreeColumns
@ -128,14 +129,14 @@ myConfig =
-- Workspaces
myWorkspaces :: [String]
myWorkspaces = ["1:\xf489 ", "2:\xe743 ", "3:\xf1b6 ", "4:\xf10b ", "5:\xead9 ", "6:\xeb69 "] ++ map show [7 .. 9]
myWorkspaces = ["1:\xf489 ", "2:\xe743 ", "3:\xf1b6 ", "4:\xf10b ", "5:\xead9 ", "6:\xeb69 ", "7:\xea7a "] ++ map show [8, 9]
-- Layout
myLayoutHook = onWorkspace "2:\xe743 " myWebLayout $ onWorkspace "3:\xf1b6 " myGamesLayout myDefaultLayout
where
myWebLayout = avoidStruts $ smartBorders $ myTabbed ||| tiled ||| Mirror tiled ||| threeCol ||| Grid ||| spiral 0.856
myWebLayout = avoidStruts $ spacingWithEdge 3 $ myTabbed ||| tiled ||| Mirror tiled ||| threeCol ||| Grid ||| spiral 0.856
myGamesLayout = avoidStruts $ smartBorders Full
myDefaultLayout = avoidStruts $ smartBorders $ tiled ||| Mirror tiled ||| myTabbed ||| threeCol ||| Grid ||| spiral 0.856
myDefaultLayout = avoidStruts $ spacingWithEdge 3 $ tiled ||| Mirror tiled ||| myTabbed ||| threeCol ||| Grid ||| spiral 0.856
threeCol =
renamed [Replace "ThreeCol"] $
magnifiercz' 1.3 $
@ -187,15 +188,17 @@ myXmobarPP =
-- Autostart
myStartupHook :: X ()
myStartupHook = do
spawnOnce "xcompmgr -c -C -t-5 -l-5 -r4.2 -o.55"
spawnOnce "xsetroot -cursor_name left_ptr"
spawnOnce "mons -e left && ~/.fehbg"
-- spawnOnce "mons -e left && ~/.fehbg"
spawnOnce $
"xrandr --output HDMI-1-0 --preferred --primary --output eDP-1 --right-of HDMI-1-0 --preferred && ~/.fehbg"
++ " && xcompmgr -c -C -t-5 -l-5 -r4.2 -o.55"
spawnOnce "xautolock -time 10 -locker slock -detectsleep"
spawnOnce
"trayer -l --edge top --align right --SetDockType true \
\--SetPartialStrut true --expand true --widthtype request \
\--transparent true --tint 0x232634 --height 18 \
\--monitor 0"
\--monitor 1"
spawnOnce "redshift-gtk"
spawnOnce "udiskie"
spawnOnce "nm-applet"
@ -205,6 +208,7 @@ myStartupHook = do
spawnOnce "lxpolkit"
spawnOnce "numlockx"
spawnOnce "blueman-applet"
spawnOnce "mousemove"
-- Manage hook
myManageHook :: ManageHook
@ -213,6 +217,7 @@ myManageHook =
[ className =? "Gpodder" --> doShift "5:\xead9 ",
className =? "An Anime Game Launcher" --> doShift "3:\xf1b6 ",
className =? "Qalculate-gtk" --> doFloat,
title =? "Genshin Impact" --> doShift "3:\xf1b6 ",
className =? "Signal" --> doShift "4:\xf10b ",
className =? "Spotify" --> doShift "5:\xead9 ",
className =? "Transmission-gtk" --> doShift "2:\xe743 ",
@ -231,10 +236,13 @@ myManageHook =
className =? "mpv" --> doFullFloat,
className =? "mpv" --> doShift "5:\xead9 ",
className =? myTerminal --> doShift "1:\xf489 ",
title =? "Neverwinter" --> doShift "3:\xf1b6 ",
className =? "scrcpy" --> doShift "6:\xeb69 ",
className =? "steam" --> doShift "3:\xf1b6 ",
className =? "steam_app_109600" --> doFloat,
className =? "transmission-gtk" --> doShift "2:\xe743 ",
className =? "VirtualBox Machine" --> doShift "7:\xea7a ",
className =? "VirtualBox Machine" --> doFullFloat,
className =? "VirtualBox Manager" --> doShift "7:\xea7a ",
isDialog --> doFloat,
isFullscreen --> doFullFloat
]