changed window properties and stuff

1 files changed, 83 insertions, 21 deletions

diff --git a/xmonad.hs b/xmonad.hs
index e046a50b..943cbcb8 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -1,41 +1,103 @@
 import XMonad
 import qualified XMonad.StackSet as W
 
--- layout
-import XMonad.Layout.Gaps
+-- actions
+import XMonad.Actions.CycleWS (moveTo, shiftTo, WSType(..), nextScreen, prevScreen)
+import XMonad.Actions.CopyWindow (kill1, killAllOtherCopies)
+
+-- layouts modifiers
+import XMonad.Layout.Spacing
+import XMonad.Layout.LayoutModifier
+-- import XMonad.Layout.Gaps
+-- import XMonad.Layout.ShowWName
+
+-- utilities
+import XMonad.Util.SpawnOnce
+
+
+myStartupHook :: X ()
+myStartupHook = do
+          spawnOnce "nitrogen --restore &"
+          spawnOnce "picom &"
+          spawnOnce "deadd-notification-center &"
+--           spawnOnce "firefox &"
+          spawnOnce "sxhkd &"
+
+
+
+
+
+-- defaults
+
+-- myFont :: String
+-- myFont = "Roboto"
+
+myModMask :: KeyMask
+myModMask = mod4Mask 
+
+myTerminal :: String
+myTerminal = "st"
+
+myBrowser :: String
+myBrowser = "firefox"
+
+-- myEditor :: String
+-- myEditor = "vim"
+
+-- ~defaults~
+
+-- wm variables
+
+nBorder = "#bf00ff"
+fBorder = "#FB027F"
+
+myBorderWidth = 2
+
+
+windowGaps = mySpacing 2 3
+
+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
+
+
+
+-- ~wm variables~
+
+-- functions
+
+mySpacing i j = spacingRaw False (Border i i i i) True (Border j j j j) True $
+            layoutHook def
+
+-- ~functions~
+
+-- keybindings
+
+
+myKeys = [("modMask-<Return>", spawn (myTerminal))]
+
+-- ~keybindings~
 
 
 main = do
   xmonad $ def
     {
-  terminal           = "st",
+  terminal           = myTerminal,
   focusFollowsMouse  = True,
-  borderWidth        = 3,
-  modMask            = mod4Mask,
+  borderWidth        = myBorderWidth,
+  modMask            = myModMask,
   workspaces         = myWorkspaces,
   normalBorderColor  = nBorder,
   focusedBorderColor = fBorder,
-
-  -- key bindings
---  keys               = myKeys
+  keys               = myKeys,
 --  mouseBindings      = myMouseBindings,
 
   -- hooks, layouts
-  layoutHook         = myLayout
+  layoutHook         = myLayoutHook,
   --manageHook         = myManageHook,
   --handleEventHook    = myEventHook,
   --logHook            = myLogHook,
-  --startupHook        = myStartupHook
+  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