From 2b6f6b97654e7043df20b2b66473ca59570fcc64 Mon Sep 17 00:00:00 2001
From: Vidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com>
Date: Sun, 15 Nov 2020 15:01:46 +0530
Subject: started hacking on XMonad

---
 xmonad.hs | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 xmonad.hs

(limited to 'xmonad.hs')

diff --git a/xmonad.hs b/xmonad.hs
new file mode 100644
index 00000000..e046a50b
--- /dev/null
+++ b/xmonad.hs
@@ -0,0 +1,41 @@
+import XMonad
+import qualified XMonad.StackSet as W
+
+-- layout
+import XMonad.Layout.Gaps
+
+
+main = do
+  xmonad $ def
+    {
+  terminal           = "st",
+  focusFollowsMouse  = True,
+  borderWidth        = 3,
+  modMask            = mod4Mask,
+  workspaces         = myWorkspaces,
+  normalBorderColor  = nBorder,
+  focusedBorderColor = fBorder,
+
+  -- key bindings
+--  keys               = myKeys
+--  mouseBindings      = myMouseBindings,
+
+  -- hooks, layouts
+  layoutHook         = myLayout
+  --manageHook         = myManageHook,
+  --handleEventHook    = myEventHook,
+  --logHook            = myLogHook,
+  --startupHook        = myStartupHook
+}
+
+nBorder = "#bf00ff"
+fBorder = "#FB027F"
+
+myExtraWorkspaces = [(xK_0, "10")] -- ,(xK_minus, "tmp"),(xK_equal, "swap")]
+myWorkspaces = ["1","2","3","4","5","6","7","8","9"] ++ (map snd myExtraWorkspaces)
+
+-- myKeys = 
+--       [ 
+--       ]
+
+myLayout = gaps [(U,6), (D,6), (L,6),  (R,6)] $ Tall 3 (1/100) (1/2) ||| Full
-- 
cgit v1.2.3