update

xmonad/xmonad.hs

@@ -0,0 +1,63 @@
+-- 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
+      ]
+--