xmonad: Modified ThreeCol for widesscreen

.xmonad/xmonad.hs

@@ -4,12 +4,15 @@ import Data.Monoid
 import Data.Word
 import Graphics.X11.Xlib
 import Graphics.X11.Xlib.Extras
+import XMonad.Actions.UpdatePointer (updatePointer)
 import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.EwmhDesktops
 import XMonad.Hooks.ManageDocks
+import XMonad.Hooks.UrgencyHook
 import XMonad.Layout.Accordion
 import XMonad.Layout.Circle
-import XMonad.Layout.Grid
+import XMonad.Layout.GridVariants
+import XMonad.Layout.LayoutCombinators hiding ( (|||) )
 import XMonad.Layout.Spiral
 import XMonad.Layout.Tabbed
 import XMonad.Layout.ThreeColumns
@@ -17,9 +20,13 @@ import XMonad.Prompt
 import XMonad.Prompt.Shell ( shellPrompt )
 import XMonad.Util.Run(spawnPipe)
 import XMonad.Util.EZConfig(additionalKeys)
+import XMonad.Util.NamedWindows
+import XMonad.Util.Run
 import XMonad.Util.SpawnOnce
 import System.IO
 
+import qualified XMonad.StackSet as W
+
 colourBackground :: String
 colourBackground = "#1c1c1c"
 
@@ -59,7 +66,7 @@ trayerCmd       = "trayer --edge top --SetPartialStrut false --width 7 --transpa
 
 main = do
     -- Make sure that HDMI is turned off by default
-    spawn "xrandr --output eDP-1 --primary --output HDMI1 --off"
+    spawn "xrandr --output eDP-1 --primary --output HDMI-1 --off"
     wsbar <- spawnPipe myWsBar
     xmonad $ ewmh desktopConfig
         { focusFollowsMouse = False
@@ -75,20 +82,22 @@ main = do
             spawnOnce nextcloudCmd      -- Launch the cloud service
         , manageHook      = manageDocks <+> manageHook desktopConfig
         , layoutHook      = avoidStruts $ layoutHook desktopConfig
+            ||| ThreeColMid 1 (3/100) (1/2)
             ||| spiral (6/7)
-            ||| Grid
+            ||| Grid (16/10)
             ||| Circle
-            ||| ThreeColMid 1 (3/100) (1/3)
             ||| simpleTabbed
             ||| Accordion
+            ||| SplitGrid T 1 2 (1/3) (16/10) (5/100)
+            -- ||| (ThreeColMid 1 (3/100) (1/3) *//* Full)
         , handleEventHook = handleEventHook desktopConfig <+> docksEventHook
-        , logHook         = dynamicLogWithPP $ xmobarPP
+        , logHook         = dynamicLogWithPP xmobarPP
             { ppOutput  = hPutStrLn wsbar
             , ppCurrent = xmobarColor "#ffaf00" "" . wrap "[" "]"
             , ppVisible = xmobarColor "#5fafd7" "" . wrap "(" ")"
             , ppLayout  = xmobarColor "#5fafd7" ""
             , ppTitle   = xmobarColor "#ffaf00" "" . shorten 50
-            }
+            }  >> updatePointer (0.25, 0.25) (0.25, 0.25) -- near the top-left
         , modMask = mod4Mask -- Rebind Mod to the Windows key
         --, borderWidth = 1
         } `additionalKeys`
@@ -98,8 +107,8 @@ main = do
             , ((0, 0x1008ff2d), spawn "xscreensaver-command -lock")
             -- XF86ScreenSaver
             , ((mod4Mask .|. controlMask, xK_l), spawn "xscreensaver-command -lock")
-            , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s")
-            , ((0, xK_Print), spawn "scrot")
+            , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s")   -- Screenshot the selected window
+            , ((0, xK_Print), spawn "scrot")   -- Screenshot the entire screen
             -- Turn on the eDP-1 port and set it as the primary display
             , ((mod4Mask .|. shiftMask, xK_e), spawn
                 "xrandr --output eDP-1 --primary --auto"
@@ -114,7 +123,7 @@ main = do
                 )
             -- Turn on the HDMI-1 port and set it as the secondary display
             , ((mod4Mask .|. shiftMask, xK_h), spawn
-                "xrandr --newmode \"2560x1440R\"  241.50  2560 2608 2640 2720  1440 1443 1448 1481 +hsync -vsync ; xrandr --addmode HDMI-1 2560x1440R ; xrandr --output eDP-1 --primary --auto --output HDMI-1 --above eDP-1 --mode 2560x1440R ; feh --bg-scale ~/Documents/Images/Posters/STEVEs.jpeg"
+                "xrandr --newmode \"3840x2160R\"  241.50  2560 2608 2640 2720  1440 1443 1448 1481 +hsync -vsync ; xrandr --addmode HDMI-1 2560x1440R ; xrandr --output eDP-1 --primary --auto --output HDMI-1 --above eDP-1 --mode 2560x1440R ; feh --bg-scale ~/Documents/Images/Posters/STEVEs.jpeg"
                 )
             , ((0 , 0x1008FF11), spawn "amixer set Master 2%-") -- XF86AudioLowerVolume
             -- , ((mod4Mask , xK_Down), spawn "amixer set Master 2%-")