aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--xmonad.hs104
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