Skip to content

Instantly share code, notes, and snippets.

@sergeykish
Created August 27, 2020 19:57
Show Gist options
  • Save sergeykish/b33f4010123462b92cc8be7d29c6ec44 to your computer and use it in GitHub Desktop.
Save sergeykish/b33f4010123462b92cc8be7d29c6ec44 to your computer and use it in GitHub Desktop.
wmii like xmonad, no decorations
import XMonad
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Layout.Groups.Wmii
import XMonad.Util.Run
import XMonad.Util.EZConfig
import System.IO
import XMonad.Layout.NoBorders
main = do
xmonad $ ewmh $ docks def
{ modMask = mod4Mask
, layoutHook = layoutHook'
, handleEventHook = fullscreenEventHook
}
`additionalKeysP`
[ ("M-m", groupToFullLayout)
, ("M-s", groupToTabbedLayout)
, ("M-d", groupToVerticalLayout)
, ("M-f", toggleGroupFull)
, ("M-[", zoomGroupOut)
, ("M-]", zoomGroupIn)
, ("M-j", focusDown)
, ("M-k", focusUp)
, ("S-M-j", swapDown)
, ("S-M-k", swapUp)
, ("M-h", focusGroupUp)
, ("M-l", focusGroupDown)
, ("S-M-h", moveToGroupUp False)
, ("S-M-l", moveToGroupDown False)
, ("M-<Return>", spawn $ XMonad.terminal def)
, ("M-<Print>", spawn "scrot")
, ("M-r", spawn "rofi -show window")
]
full' = Full
wmii' = wmii shrinkText def
layoutHook' = smartBorders . avoidStruts $ wmii' ||| full'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment