diff --git a/hosts/default/confs/xmonad.hs b/hosts/default/confs/xmonad.hs
deleted file mode 100644
index 0799112..0000000
--- a/hosts/default/confs/xmonad.hs
+++ /dev/null
@@ -1,305 +0,0 @@
--- Base
-import XMonad
-import System.Exit
-import qualified XMonad.StackSet as W
-
--- Actions
-import XMonad.Actions.CycleWS (toggleWS')
-import XMonad.Actions.MouseResize
-import XMonad.Actions.SinkAll (sinkAll)
-
--- Data
-import qualified Data.Map        as M
-import Data.Maybe (isJust)
-
--- Hooks
-import XMonad.Hooks.ManageHelpers
-import XMonad.Hooks.StatusBar
-import XMonad.Hooks.StatusBar.PP
-import XMonad.Hooks.EwmhDesktops
-import XMonad.Hooks.SetWMName
-import XMonad.Hooks.InsertPosition
-
--- Layout modifiers
-import XMonad.Layout.Renamed
-import XMonad.Layout.Spacing
-import XMonad.Layout.NoBorders
-import XMonad.Layout.SimplestFloat
-import XMonad.Layout.LayoutModifier
-import XMonad.Layout.ResizableTile
-import XMonad.Layout.PerWorkspace
-import XMonad.Layout.WindowArranger (windowArrange, WindowArrangerMsg(..))
-
--- Utils
-import XMonad.Util.Loggers
-import XMonad.Util.NamedScratchpad
-import XMonad.Util.SpawnOnce
-import XMonad.Util.EZConfig
-import XMonad.Util.Hacks
-
--- main loop
-main :: IO ()
-main = xmonad
-    . ewmhFullscreen
-    . ewmh
-    . withEasySB (statusBarProp "xmobar ~/.config/xmobar/xmobarrc" (pure myXmobarPP)) toggleStrutsKey
-    $ myConfig
-  where
-    toggleStrutsKey :: XConfig Layout -> (KeyMask, KeySym)
-    toggleStrutsKey XConfig{ modMask = m } = (m, xK_F11)
-
--- My config
-myConfig = def
-  { modMask = myModMask
-  , layoutHook = myLayoutHook
-  , manageHook = insertPosition End Newer <+> myManageHook
-  , handleEventHook = trayerAboveXmobarEventHook
-  , focusFollowsMouse  = myFocusFollowsMouse
-  , terminal = myTerminal
-  , borderWidth = myBorderWidth
-  , normalBorderColor = myNormalBorderColor
-  , focusedBorderColor = myFocusedBorderColor
-  , keys = myKeys
-  , workspaces = myWorkspaces
-  , startupHook = myStartupHook
-  }
-
--- My variables
-myModMask = mod4Mask
-myTerminal = "alacritty"
-myBorderWidth = 2
-
-myFocusFollowsMouse :: Bool
-myFocusFollowsMouse = False
-
-myNormalBorderColor = "#737994"
-myFocusedBorderColor = "#c6d0f5"
-
-myWorkspaces    = ["一","二","三","四","五","六","七","八","九"]
-
--- My startup hook
-myStartupHook :: X ()
-myStartupHook = do
-  spawn "killall trayer-srg"  -- kill current trayer on each restart
-  spawnOnce "sxhkd -c $HOME/.config/sxhkd/general"
-  spawnOnce "gentoo-pipewire-launcher"
-  spawnOnce "transmission-daemon"
-  spawnOnce "syncthing"
-  spawnOnce "picom"
-  spawnOnce "clipmenud"
-  spawnOnce "dunst"
-  spawnOnce "keepassxc"
-  spawnOnce "/usr/libexec/polkit-gnome-authentication-agent-1"
-  spawn ("sleep 2 && trayer-srg --edge top --align right --widthtype request --padding 6 --iconspacing 7 --SetDockType true --SetPartialStrut true --expand true --monitor 1 --transparent true --alpha 0 --tint 0x303446 --height 24 -l")
-  setWMName "LG3D" -- Fix java programs
-
--- My scratchpads
-myScratchPads :: [NamedScratchpad]
-myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm
-                , NS "wiki" spawnWiki findWiki manageWiki
-                , NS "notes" spawnNotes findNotes manageNotes
-                , NS "profanity" spawnProfanity findProfanity manageProfanity
-                , NS "godot" spawnGodot findGodot manageGodot
-                ]
-  where
-    spawnTerm  = myTerminal ++ " --class scratchpad,scratchpad"
-    findTerm   = className =? "scratchpad"
-    manageTerm = customFloating $ W.RationalRect l t w h
-               where
-                 h = 0.8
-                 w = 0.8
-                 t = 0.9 -h
-                 l = 0.9 -w
-    spawnWiki  = myTerminal ++ " --class wiki,wiki -e wiki"
-    findWiki   = className =? "wiki"
-    manageWiki = customFloating $ W.RationalRect l t w h
-               where
-                 h = 0.8
-                 w = 0.8
-                 t = 0.9 -h
-                 l = 0.9 -w
-    spawnNotes  = myTerminal ++ " --class wiki,wiki -e notes"
-    findNotes   = className =? "notes"
-    manageNotes = customFloating $ W.RationalRect l t w h
-               where
-                 h = 0.8
-                 w = 0.8
-                 t = 0.9 -h
-                 l = 0.9 -w
-    spawnProfanity  = myTerminal ++ " --class profanity,profanity -e profanity"
-    findProfanity   = className =? "profanity"
-    manageProfanity = customFloating $ W.RationalRect l t w h
-               where
-                 h = 0.8
-                 w = 0.8
-                 t = 0.9 -h
-                 l = 0.9 -w
-    spawnGodot  = myTerminal ++ " --class godot,godot -e nvim --listen /tmp/godot.pipe"
-    findGodot   = className =? "godot"
-    manageGodot = customFloating $ W.RationalRect l t w h
-               where
-                 h = 0.8
-                 w = 0.8
-                 t = 0.9 -h
-                 l = 0.9 -w
-
-
---Makes setting the spacingRaw simpler to write. The spacingRaw module adds a configurable amount of space around windows.
-mySpacing :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a
-mySpacing i = spacingRaw False (Border i i i i) True (Border i i i i) True
-
--- Below is a variation of the above except no borders are applied
--- if fewer than two windows. So a single window has no gaps.
-mySpacing' :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a
-mySpacing' i = spacingRaw True (Border i i i i) True (Border i i i i) True
-
--- My layouts
-tall = renamed [Replace "tall"]
-          $ withBorder myBorderWidth
-          $ mySpacing 4
-          $ ResizableTall 1 (3/100) (1/2) []
-monocle  = renamed [Replace "monocle"]
-          $ withBorder myBorderWidth
-          $ mySpacing 4
-          $ Full
-floats   = renamed [Replace "floats"]
-          $ withBorder myBorderWidth
-          $ simplestFloat
-
-myLayoutHook = lessBorders OnlyScreenFloat
-          $ mouseResize
-          $ windowArrange
-          $ myDefaultLayout
-  where
-    myDefaultLayout = onWorkspaces [(myWorkspaces !! 0), (myWorkspaces !! 3), (myWorkspaces !! 4)] (monocle ||| floats ||| tall)
-                    $ onWorkspace (myWorkspaces !! 5) (floats ||| tall ||| monocle)
-                    $ tall
-                    ||| monocle
-                    ||| floats
-
--- My manage hook
-myManageHook :: ManageHook
-myManageHook = composeAll
-    [ className =? "qutebrowser"        --> doShiftAndGo ( myWorkspaces !! 0)
-    , className =? "newsboat"           --> doShiftAndGo ( myWorkspaces !! 3)
-    , className =? "videos"             --> doShiftAndGo ( myWorkspaces !! 3)
-    , className =? "ytfzf"              --> doShiftAndGo ( myWorkspaces !! 3)
-    , className =? "lf"                 --> doShiftAndGo ( myWorkspaces !! 3)
-    , className =? "thunderbird"        --> doShiftAndGo ( myWorkspaces !! 4)
-    , className =? "Ferdium"            --> doShiftAndGo ( myWorkspaces !! 4)
-    , className =? "discord"            --> doShiftAndGo ( myWorkspaces !! 4)
-    , className =? "tutanota-desktop"   --> doShiftAndGo ( myWorkspaces !! 4)
-    , className =? "Lutris"             --> doShiftAndGo ( myWorkspaces !! 5)
-    , className =? "steam"              --> doShiftAndGo ( myWorkspaces !! 5)
-    , className =? "heroic"             --> doShiftAndGo ( myWorkspaces !! 5)
-    , className =? "cartridges"         --> doShiftAndGo ( myWorkspaces !! 5)
-    , className =? "Cemu"               --> doShiftAndGo ( myWorkspaces !! 5)
-    , className =? "xemu"               --> doShiftAndGo ( myWorkspaces !! 5)
-    , className =? "librewolf"          --> doShiftAndGo ( myWorkspaces !! 8)
-    , isDialog                          --> doCenterFloat <+> doF W.swapUp
-    , className =? "Gimp"               --> doFloat <+> doF W.swapUp
-    , className =? "confirm"            --> doFloat <+> doF W.swapUp
-    , className =? "file_progress"      --> doFloat <+> doF W.swapUp
-    , className =? "dialog"             --> doFloat <+> doF W.swapUp
-    , className =? "download"           --> doFloat <+> doF W.swapUp
-    , className =? "error"              --> doFloat <+> doF W.swapUp
-    , className =? "notification"       --> doFloat <+> doF W.swapUp
-    , className =? "splash"             --> doFloat <+> doF W.swapUp
-    , className =? "toolbar"            --> doFloat <+> doF W.swapUp
-    , className =? "pinentry-gtk-2"     --> doFloat <+> doF W.swapUp
-    , className =? "Yad"                --> doCenterFloat <+> doF W.swapUp
-    , className =? "badd"               --> doCenterFloat <+> doF W.swapUp
-    , className =? "filepicker"         --> doRectFloat (W.RationalRect (1/12) (1/12) (5/6) (5/6)) <+> doF W.swapUp
-    , isFullscreen                      --> doFullFloat
-    , namedScratchpadManageHook myScratchPads
-    ]
-    where
-      doShiftAndGo ws = doF (W.greedyView ws) <+> doShift ws
-
--- My keybindings in a nice readable format
-myKeys = \c -> mkKeymap c $
-  [ ("M-S-q", kill) -- kill active window
-  , ("M-<Space>", sendMessage NextLayout) -- cycle layout
-  , ("M-S-<Space>", withFocused toggleFloat) -- toggle floating state of a window
-  , ("M-j", windows W.focusDown) -- Move focus down
-  , ("M-k", windows W.focusUp) -- Move focus up
-  , ("M-S-<Return>", windows W.swapMaster) -- Move Focused window to master
-  , ("M-S-j", windows W.swapDown) --Move window down the stack
-  , ("M-S-k", windows W.swapUp) -- Move window up the stack
-  , ("M-h", sendMessage Shrink) -- Shrink master
-  , ("M-l", sendMessage Expand) -- Expand master
-  , ("M-,", sendMessage (IncMasterN 1)) -- Increase master count
-  , ("M-.", sendMessage (IncMasterN (-1))) -- Decrease msaster count
-  , ("M-C-e", io (exitWith ExitSuccess)) -- Quit xmonad
-  , ("M-S-r", spawn "xmonad --recompile && xmonad --restart") -- Restart xmonad
-  , ("M-<Tab>", toggleWS' ["NSP"]) -- Toogle last used workspace, ignoring named scratchpad
-  , ("M-s t", namedScratchpadAction myScratchPads "terminal") -- Toggle scratchpad
-  , ("M-s w", namedScratchpadAction myScratchPads "wiki") -- Toggle scratchpad
-  , ("M-s n", namedScratchpadAction myScratchPads "notes") -- Toggle scratchpad
-  , ("M-s p", namedScratchpadAction myScratchPads "profanity") -- Toggle scratchpad
-  , ("M-s g", namedScratchpadAction myScratchPads "godot") -- Toggle scratchpad
-  , ("M-1", viewDesktop 0) -- Check workspace 1
-  , ("M-2", viewDesktop 1) -- Check workspace 2
-  , ("M-3", viewDesktop 2) -- Check workspace 3
-  , ("M-4", viewDesktop 3) -- Check workspace 4
-  , ("M-5", viewDesktop 4) -- Check workspace 5
-  , ("M-6", viewDesktop 5) -- Check workspace 6
-  , ("M-7", viewDesktop 6) -- Check workspace 7
-  , ("M-8", viewDesktop 7) -- Check workspace 8
-  , ("M-9", viewDesktop 8) -- Check workspace 9
-  , ("M-S-1", shiftWindow 0) -- Send window to workspace 1
-  , ("M-S-2", shiftWindow 1) -- Send window to workspace 2
-  , ("M-S-3", shiftWindow 2) -- Send window to workspace 3
-  , ("M-S-4", shiftWindow 3) -- Send window to workspace 4
-  , ("M-S-5", shiftWindow 4) -- Send window to workspace 5
-  , ("M-S-6", shiftWindow 5) -- Send window to workspace 6
-  , ("M-S-7", shiftWindow 6) -- Send window to workspace 7
-  , ("M-S-8", shiftWindow 7) -- Send window to workspace 8
-  , ("M-S-9", shiftWindow 8) -- Send window to workspace 9
-  , ("M-C-1", shiftAndView 0) -- Send window and check workspace 1
-  , ("M-C-2", shiftAndView 1) -- Send window and check workspace 2
-  , ("M-C-3", shiftAndView 2) -- Send window and check workspace 3
-  , ("M-C-4", shiftAndView 3) -- Send window and check workspace 4
-  , ("M-C-5", shiftAndView 4) -- Send window and check workspace 5
-  , ("M-C-6", shiftAndView 5) -- Send window and check workspace 6
-  , ("M-C-7", shiftAndView 6) -- Send window and check workspace 7
-  , ("M-C-8", shiftAndView 7) -- Send window and check workspace 8
-  , ("M-C-9", shiftAndView 8) -- Send window and check workspace 9
-  , ("M-f", sinkAll) -- Nuke solution for simplestFloat layout
-  ]
-  where
-  toggleFloat w = windows (\s -> if M.member w (W.floating s)
-                  then W.sink w s
-                  else (W.float w (W.RationalRect (1/6) (1/6) (2/3) (2/3)) s))
-  viewDesktop d = windows $ W.greedyView $ myWorkspaces !! d
-  shiftWindow w = windows $ W.shift $ myWorkspaces !! w
-  shiftAndView w = windows $ W.greedyView (myWorkspaces !! w) . W.shift (myWorkspaces !! w)
-
--- My xmobar workspace and other things config
-myXmobarPP :: PP
-myXmobarPP = filterOutWsPP ["NSP"]
-      $ def
-    { ppSep             = magenta " • "
-    , ppWsSep           = " "
-    , ppTitleSanitize   = xmobarStrip
-    , ppCurrent         = xmobarBorder "Bottom" "#89b4fa" 2
-    , ppHidden          = white
-    , ppHiddenNoWindows = lowWhite
-    , ppUrgent          = red . wrap (yellow "!") (yellow "!")
-    , ppOrder           = \[ws, l, _, wins] -> [ws, l, wins]
-    , ppExtras          = [logTitles formatFocused formatUnfocused]
-    }
-  where
-    formatFocused   = wrap (white    "[") (white    "]") . magenta . ppWindow
-    formatUnfocused = wrap (lowWhite "[") (lowWhite "]") . blue    . ppWindow
-
-    ppWindow :: String -> String
-    ppWindow = xmobarRaw . (\w -> if null w then "untitled" else w) . shorten 25
-
-    blue, lowWhite, magenta, red, white, yellow :: String -> String
-    magenta  = xmobarColor "#eba0ac" ""
-    blue     = xmobarColor "#cba6f7" ""
-    white    = xmobarColor "#cdd6f4" ""
-    yellow   = xmobarColor "#f9e2af" ""
-    red      = xmobarColor "#f38ba8" ""
-    lowWhite = xmobarColor "#585b70" ""