64 lines
1.8 KiB
Haskell
64 lines
1.8 KiB
Haskell
|
-- Old Imports saved so I don't loose them
|
||
|
|
-- import qualified XMonad.StackSet as W
|
||
|
|
-- Also random comments for future reference:
|
||
|
|
-- https://gist.github.com/BinRoot/8154650
|
||
|
|
-- TODO: statusbar
|
||
|
|
|
||
|
|
import XMonad
|
||
|
|
import XMonad.Wallpaper
|
||
|
|
import XMonad.Config.Desktop
|
||
|
|
import XMonad.Hooks.ManageHelpers
|
||
|
|
import XMonad.Layout.Spacing (smartSpacing)
|
||
|
|
import XMonad.Util.EZConfig ( additionalKeys )
|
||
|
|
import XMonad.Layout.NoBorders ( smartBorders )
|
||
|
|
|
||
|
|
import System.Exit
|
||
|
|
|
||
|
|
-- Fullscreen video hax Imports
|
||
|
|
-- https://www.reddit.com/r/xmonad/comments/4cnjhi/fullscreen_video_in_firefox/d1juwkl/
|
||
|
|
import XMonad.Hooks.DynamicLog
|
||
|
|
import XMonad.Hooks.ManageDocks
|
||
|
|
import XMonad.Hooks.ManageHelpers
|
||
|
|
import XMonad.Hooks.EwmhDesktops
|
||
|
|
import XMonad.Layout.NoBorders
|
||
|
|
|
||
|
|
-- set mod key (alt)
|
||
|
|
myModMask = mod1Mask
|
||
|
|
|
||
|
|
-- set terminal
|
||
|
|
myTerminal = "urxvt"
|
||
|
|
|
||
|
|
-- border spacing
|
||
|
|
myLayoutHook = smartSpacing 4 $ smartBorders ( avoidStruts $ layoutHook defaultConfig )
|
||
|
|
|
||
|
|
-- border sie
|
||
|
|
myBorderWidth = 0
|
||
|
|
|
||
|
|
main = do
|
||
|
|
setRandomWallpaper ["$HOME/images/wallpaper"]
|
||
|
|
xmonad $ defaultConfig
|
||
|
|
{ terminal = myTerminal
|
||
|
|
, layoutHook = myLayoutHook
|
||
|
|
, borderWidth = myBorderWidth
|
||
|
|
-- Video hax
|
||
|
|
, manageHook = manageDocks <+> manageHook defaultConfig
|
||
|
|
, handleEventHook = handleEventHook defaultConfig <+> fullscreenEventHook
|
||
|
|
--
|
||
|
|
} `additionalKeys` myAdditionalKeys
|
||
|
|
|
||
|
|
myAdditionalKeys =
|
||
|
|
[ ((myModMask, xK_q), spawn "i3lock -i $HOME/images/lock.png")
|
||
|
|
] ++
|
||
|
|
[ ((myModMask .|. shiftMask, xK_q), kill)
|
||
|
|
] ++
|
||
|
|
[ ((myModMask, xK_c), spawn "xmonad --recompile; xmonad --restart")
|
||
|
|
] ++
|
||
|
|
[ ((myModMask .|. shiftMask, xK_c), io (exitWith ExitSuccess))
|
||
|
|
]
|
||
|
|
|
||
|
|
-- More Video hax
|
||
|
|
myManageHooks = composeAll
|
||
|
|
[ isFullscreen --> doFullFloat
|
||
|
|
]
|
||
|
|
--
|