From ff35eeb8c8e0261425074f8a190940ac229c12c1 Mon Sep 17 00:00:00 2001
From: Vidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com>
Date: Tue, 17 Nov 2020 12:39:51 +0530
Subject: added manage docks utility

---
 xmonad.hs | 42 +++++++++++++++++++++++++++++++++++-------
 1 file changed, 35 insertions(+), 7 deletions(-)

diff --git a/xmonad.hs b/xmonad.hs
index e8b0ffb4..d11e63ae 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -1,6 +1,6 @@
 import XMonad
 import qualified XMonad.StackSet as W
-import XMonad hiding ((|||))
+-- import XMonad hiding ((|||))
 
 -- actions
 import XMonad.Actions.CycleWS (moveTo, shiftTo, WSType(..), nextScreen, prevScreen)
@@ -15,26 +15,33 @@ import XMonad.Actions.WindowBringer
 -- layouts modifiers
 import XMonad.Layout.Spacing
 import XMonad.Layout.LayoutModifier
-import XMonad.Layout.LayoutCombinators ((|||))
+-- import XMonad.Layout.LayoutCombinators ((|||))
+import XMonad.Layout.Renamed
+-- import qualified XMonad.Layout.ToggleLayouts as T (toggleLayouts, ToggleLayout(Toggle))
 -- import XMonad.Layout.Gaps
 -- import XMonad.Layout.ShowWName
+import XMonad.Layout.Renamed
 
 -- Layouts
-import XMonad.Layout.GridVariants (Grid(Grid))
+import XMonad.Layout.Grid
 import XMonad.Layout.SimplestFloat
 import XMonad.Layout.Spiral
 import XMonad.Layout.ResizableTile
 import XMonad.Layout.Tabbed
 import XMonad.Layout.ThreeColumns
 
+
 -- hooks
 import XMonad.Hooks.SetWMName
+import XMonad.Hooks.ManageDocks
 -- import XMonad.Hooks.WallpaperSetter
 
 -- utilities
 import XMonad.Util.SpawnOnce
 import XMonad.Util.EZConfig (additionalKeys)
-
+import XMonad.Util.Cursor
+import XMonad.Util.Paste
+import XMonad.Util.Run
 
 myStartupHook :: X ()
 myStartupHook = do
@@ -44,6 +51,7 @@ myStartupHook = do
 --           spawnOnce "firefox &"
           spawnOnce "sxhkd &"
           setWMName "XMonad"
+          setDefaultCursor xC_left_ptr
 
 
 
@@ -79,7 +87,8 @@ myBorderWidth = 2
 myExtraWorkspaces = [(xK_0, "10")] -- ,(xK_minus, "tmp"),(xK_equal, "swap")]
 myWorkspaces = ["1","2","3","4","5","6","7","8", "9"] ++ (map snd myExtraWorkspaces)
 
-myLayoutHook = windowGaps 2 3
+myLayoutHook = avoidStruts $ Grid
+
 
 
 
@@ -99,6 +108,7 @@ myKeys = [
          ((mod4Mask, xK_Return), spawn myTerminal),
          ((mod1Mask, xK_w), kill1),
          ((mod1Mask .|. shiftMask, xK_k), kill1),
+         ((mod4Mask, xK_p), spawnOnce "run_dmenu"),
 
          -- view prev/next workspaces
          ((mod1Mask, xK_h), prevWS),
@@ -137,7 +147,18 @@ myKeys = [
       
          -- windowbringer
          ((mod1Mask, xK_b), bringMenu),
-         ((mod1Mask, xK_g), gotoMenu)
+         ((mod1Mask, xK_g), gotoMenu),
+
+         -- paste x selection
+         ((0, xK_Insert), pasteSelection),
+
+         -- toggle layouts
+         ((mod4Mask,  xK_t ),   cycleThroughLayouts ["Grid", "Mirror Tall"]),
+
+         -- toggle bars
+         ((mod1Mask, xK_backslash), sendMessage ToggleStruts), -- toggle both bars
+         ((mod1Mask, xK_bracketleft), sendMessage $ ToggleStrut D), -- toggle bottom bar
+         ((mod1Mask, xK_bracketright), sendMessage $ ToggleStrut U) -- toggle top bar
 
          ] ++ [ -- for extra workspace(s)
          ((myModMask, key), (windows $ W.greedyView ws))
@@ -152,9 +173,16 @@ myKeys = [
 
 -- ~keybindings~
 
+-- layouts
+
+
+
+-- ~layouts~
+
 
 main = do
-  xmonad $ def
+  xmproc <- spawnPipe "xmobar -b -x 0 /home/zt/.xmonad/xmobarrc"
+  xmonad $ docks def
     {
   terminal           = myTerminal,
   focusFollowsMouse  = True,
-- 
cgit v1.2.3