import XMonad import XMonad.Actions.CycleWS import XMonad.Hooks.DynamicLog import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.ManageDocks import XMonad.Hooks.StatusBar import XMonad.Layout.BinarySpacePartition import XMonad.Layout.NoBorders import XMonad.Layout.Renamed import XMonad.Layout.Spacing import XMonad.StackSet qualified as W import XMonad.Util.EZConfig (additionalKeys) import Graphics.X11.ExtraTypes.XF86 import XMonadConfig.GruvboxMaterial {- FOURMOLU_DISABLE -} -- | The main function main :: IO () main = xmonad . docks . ewmhFullscreen . ewmh . withSB myXmobar $ myConfig myConfig = def { modMask = myModMask , layoutHook = myLayouts , terminal = myTerminal , borderWidth = myBorderWidth , normalBorderColor = myNormalBorderColor , focusedBorderColor = myFocusedBorderColor , workspaces = myWorkspaces , manageHook = myManageHook } `additionalKeys` myKeybindings -- | Configuration myTerminal = "wezterm" myModMask = mod4Mask myBorderWidth = 5 myNormalBorderColor = "#32302f" myFocusedBorderColor = "#32302f" myWorkspaces = ["admin", "code", "chat", "web", "games", "misc"] myLauncher = "rofi -modi run,calc -show run" myScrot = "scrot -s '%Y%m%d_%H%M%S.png' -e 'mv $f ~/Pictures/scrots/'" volumeDown = "pactl set-sink-volume @DEFAULT_SINK@ -10%" volumeUp = "pactl set-sink-volume @DEFAULT_SINK@ +10%" -- | Keybindings myKeybindings = -- launching and killing programs [ ((myModMask, xK_Return), spawn myTerminal) -- %! Launch terminal , ((myModMask, xK_Tab ), spawn myLauncher) -- %! Launch rofi , ((myModMask, xK_s ), spawn myScrot ) -- %! Take screenshot , ((myModMask, xK_Escape), kill ) -- %! Close the focused window , ((myModMask .|. controlMask, xK_Escape), io exitSuccess ) -- %! Quit xmonad -- multimedia , ((noModMask, xF86XK_AudioPlay ), spawn "mpc toggle") -- %! Play/Pause music , ((noModMask, xF86XK_AudioStop ), spawn "mpc stop" ) -- %! Stop music , ((noModMask, xF86XK_AudioNext ), spawn "mpc next" ) -- %! Next track , ((noModMask, xF86XK_AudioPrev ), spawn "mpc prev" ) -- %! Previous track , ((noModMask, xF86XK_AudioLowerVolume), spawn volumeDown ) -- %! Volume down , ((noModMask, xF86XK_AudioRaiseVolume), spawn volumeUp ) -- %! Volume up -- layouts , ((myModMask, xK_t), sendMessage $ JumpToLayout "dynamic tiling" ) -- %! Jump to our tiled layout , ((myModMask, xK_b), sendMessage $ JumpToLayout "binary space partition") -- %! Jump to our bsp layout , ((myModMask, xK_m), sendMessage $ JumpToLayout "maximised" ) -- %! Jump to our maximized layout , ((myModMask, xK_f), sendMessage $ JumpToLayout "fullscreen" ) -- %! Jump to our fullscreen layout , ((myModMask .|. shiftMask, xK_t), withFocused $ windows . W.sink ) -- %! Push window back into tiling -- window stack , ((myModMask, xK_Down), windows W.focusDown) -- %! Move focus to the next window , ((myModMask, xK_Up ), windows W.focusUp ) -- %! Move focus to the previous window , ((myModMask .|. shiftMask, xK_Down), windows W.swapDown ) -- %! Swap the focused window with the next window , ((myModMask .|. shiftMask, xK_Up ), windows W.swapUp ) -- %! Swap the focused window with the previous window -- master slave , ((myModMask, xK_space ), windows W.focusMaster ) -- %! Move focus to the master window , ((myModMask .|. shiftMask, xK_space ), windows W.swapMaster ) -- %! Swap the focused window with the master window , ((myModMask, xK_Page_Up ), sendMessage Shrink ) -- %! Shrink the master area , ((myModMask, xK_Page_Down), sendMessage Expand ) -- %! Expand the master area , ((myModMask .|. shiftMask, xK_Page_Up ), sendMessage (IncMasterN 1) ) -- %! Increase the number of windows in the master area , ((myModMask .|. shiftMask, xK_Page_Down), sendMessage (IncMasterN (-1))) -- %! Decrease the number of windows in the master area -- workspaces , ((myModMask, xK_Right), moveTo Next hiddenWS) -- %! Move focus to the next hidden workspace , ((myModMask, xK_Left ), moveTo Prev hiddenWS) -- %! Move focus to the previous hidden workspace , ((myModMask .|. shiftMask, xK_Right), shiftTo Next hiddenWS) -- %! Move focused window to the next hidden workspace , ((myModMask .|. shiftMask, xK_Left ), shiftTo Prev hiddenWS) -- %! Move focused window to the previous hidden workspace -- monitors , ((myModMask, xK_End ), nextScreen ) -- %! Move focus to the next screen , ((myModMask, xK_Home), prevScreen ) -- %! Move focus to the previous screen , ((myModMask .|. shiftMask, xK_End ), shiftNextScreen) -- %! Move focused window to the next screen , ((myModMask .|. shiftMask, xK_Home), shiftPrevScreen) -- %! Move focused window to the previous screen -- binary space partition , ((myModMask .|. mod1Mask, xK_Right ), sendMessage $ ExpandTowardsBy R 0.01) -- %! Expand window towards the right , ((myModMask .|. mod1Mask, xK_Left ), sendMessage $ ExpandTowardsBy L 0.01) -- %! Expand window towards the left , ((myModMask .|. mod1Mask, xK_Down ), sendMessage $ ExpandTowardsBy D 0.01) -- %! Expand window downwards , ((myModMask .|. mod1Mask, xK_Up ), sendMessage $ ExpandTowardsBy U 0.01) -- %! Expand window upwards , ((myModMask .|. mod1Mask .|. controlMask, xK_Right ), sendMessage $ ShrinkFromBy R 0.01) -- %! Shrink window from the right , ((myModMask .|. mod1Mask .|. controlMask, xK_Left ), sendMessage $ ShrinkFromBy L 0.01) -- %! Shrink window from the left , ((myModMask .|. mod1Mask .|. controlMask, xK_Down ), sendMessage $ ShrinkFromBy D 0.01) -- %! Shrink window downwards , ((myModMask .|. mod1Mask .|. controlMask, xK_Up ), sendMessage $ ShrinkFromBy U 0.01) -- %! Shrink window upwards , ((myModMask .|. mod1Mask, xK_Page_Up ), sendMessage Rotate ) -- %! Rotate a split (horizontal/vertical) in the BSP , ((myModMask .|. mod1Mask, xK_Page_Down), sendMessage Swap ) -- %! Swap the left child of a split with the right child of split , ((myModMask .|. mod1Mask, xK_Home ), sendMessage $ SplitShift Prev ) -- %! Shift window by splitting previous neighbour , ((myModMask .|. mod1Mask, xK_End ), sendMessage $ SplitShift Next ) -- %! Shift window by splitting next neighbour ] -- | Layouts myLayouts = myTile ||| myBsp ||| myMax ||| myFull where -- our layouts myTile = renamed [Replace "dynamic tiling" ] . avoidStruts . myGaps $ Tall nmaster delta ratio myBsp = renamed [Replace "binary space partition"] . avoidStruts . myGaps $ emptyBSP myMax = renamed [Replace "maximised" ] . avoidStruts . myGaps $ Full myFull = renamed [Replace "fullscreen" ] . noBorders $ Full -- add a configurable amount of space around windows. myGaps = spacingRaw False (Border 10 10 10 10) True (Border 10 10 10 10) True -- layout configuration nmaster = 1 -- Default number of windows in the master pane ratio = 2/3 -- Default proportion of screen occupied by master pane delta = 3/100 -- Percent of screen to increment by when resizing panes -- | Statusbar myXmobar = statusBarPropTo "_XMONAD_LOG_1" "xmobar" (pure myXmobarPP) myXmobarPP :: PP myXmobarPP = def { ppSep = grey0 " " , ppCurrent = purple . wrap " " "" , ppVisible = blue . wrap " " "" , ppHidden = grey0 . wrap " " "" , ppHiddenNoWindows = grey0 . wrap " " "" , ppUrgent = red . wrap " " "" , ppLayout = aqua . wrap (grey0 " [ ") (grey0 " ] ") , ppOrder = \[ws, l, _] -> [ws, l] } -- | ManageHook myManageHook = composeAll [ className =? "Thunar" --> doFloat , className =? "Ristretto" --> doFloat ]