ItsDrike/dotfiles
1
0
Fork 0
mirror of https://github.com/ItsDrike/dotfiles.git synced 2024-12-26 13:14:35 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix xmonad config after compatibility breaking 0.17 came out

Browse source
This commit is contained in:
ItsDrike 2022-07-11 03:14:52 +02:00
parent dba3e7727a
commit d4845fec48
No known key found for this signature in database
GPG key ID: B014E761034AF742
1 changed files with 2 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
home/.config/xmonad/xmonad.hs
View file

@ -19,7 +19,7 @@ import qualified Data.Map as M
-- Hooks -- Hooks
import XMonad.Hooks.DynamicLog (dynamicLogWithPP, wrap, xmobarPP, xmobarColor, shorten, PP(..)) import XMonad.Hooks.DynamicLog (dynamicLogWithPP, wrap, xmobarPP, xmobarColor, shorten, PP(..))
import XMonad.Hooks.ManageDocks (avoidStruts, docksEventHook, manageDocks, ToggleStruts(..)) import XMonad.Hooks.ManageDocks (avoidStruts, docks, manageDocks, ToggleStruts(..))
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat) import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat)
@ -33,7 +33,6 @@ import XMonad.Layout.ResizableTile
-- Layouts modifiers -- Layouts modifiers
import XMonad.Layout.LayoutModifier import XMonad.Layout.LayoutModifier
import XMonad.Layout.LimitWindows (limitWindows, increaseLimit, decreaseLimit) import XMonad.Layout.LimitWindows (limitWindows, increaseLimit, decreaseLimit)
import XMonad.Layout.Magnifier
import XMonad.Layout.MultiToggle (mkToggle, single, EOT(EOT), (??)) import XMonad.Layout.MultiToggle (mkToggle, single, EOT(EOT), (??))
import XMonad.Layout.MultiToggle.Instances (StdTransformers(NBFULL, MIRROR, NOBORDERS)) import XMonad.Layout.MultiToggle.Instances (StdTransformers(NBFULL, MIRROR, NOBORDERS))
import XMonad.Layout.NoBorders import XMonad.Layout.NoBorders
@ -253,15 +252,6 @@ tall = renamed [Replace "tall"]
$ limitWindows 12 $ limitWindows 12
$ mySpacing 8 $ mySpacing 8
$ ResizableTall 1 (3/100) (1/2) [] $ ResizableTall 1 (3/100) (1/2) []
magnify = renamed [Replace "magnify"]
$ smartBorders
$ windowNavigation
$ addTabs shrinkText myTabTheme
$ subLayout [] (smartBorders Simplest)
$ magnifier
$ limitWindows 12
$ mySpacing 8
$ ResizableTall 1 (3/100) (1/2) []
floats = renamed [Replace "floats"] floats = renamed [Replace "floats"]
$ smartBorders $ smartBorders
$ limitWindows 20 simplestFloat $ limitWindows 20 simplestFloat
@ -291,7 +281,6 @@ myLayoutHook = avoidStruts $ mouseResize $ windowArrange $ T.toggleLayouts float
$ mkToggle (NBFULL ?? NOBORDERS ?? EOT) myDefaultLayout $ mkToggle (NBFULL ?? NOBORDERS ?? EOT) myDefaultLayout
where where
myDefaultLayout = withBorder myBorderWidth tall myDefaultLayout = withBorder myBorderWidth tall
||| magnify
||| floats ||| floats
||| grid ||| grid
||| spirals ||| spirals
@ -384,13 +373,12 @@ main = do
xmproc0 <- spawnPipe "xmobar -x 0 $HOME/.config/xmobar/xmobarrc0" xmproc0 <- spawnPipe "xmobar -x 0 $HOME/.config/xmobar/xmobarrc0"
xmproc1 <- spawnPipe "xmobar -x 1 $HOME/.config/xmobar/xmobarrc1" xmproc1 <- spawnPipe "xmobar -x 1 $HOME/.config/xmobar/xmobarrc1"
-- Xmonad config definitions -- Xmonad config definitions
xmonad $ ewmh def xmonad $ ewmh $ docks $ def
{ modMask = myModMask { modMask = myModMask
, terminal = myTerminal , terminal = myTerminal
, workspaces = myWorkspaces , workspaces = myWorkspaces
, startupHook = myStartupHook , startupHook = myStartupHook
, manageHook = myManageHook <+> manageDocks , manageHook = myManageHook <+> manageDocks
, handleEventHook = docksEventHook
--, layoutHook = showWName' myShowWNameTheme $ myLayoutHook --, layoutHook = showWName' myShowWNameTheme $ myLayoutHook
, layoutHook = myLayoutHook , layoutHook = myLayoutHook
, borderWidth = myBorderWidth , borderWidth = myBorderWidth