summaryrefslogtreecommitdiff
path: root/xmonad.hs
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2019-04-10 13:13:01 -0700
committerBen Sima <ben@bsima.me>2019-04-10 13:13:01 -0700
commit3e35728438295b8e14cf29ce7ffb2dce854286b7 (patch)
tree9f9bfd74bab28bffe3fbc50482e8199845217bd3 /xmonad.hs
parent60a877a89a506b142f8522952f310adbe17c0f54 (diff)
update xmonad
Diffstat (limited to 'xmonad.hs')
-rw-r--r--xmonad.hs7
1 files changed, 5 insertions, 2 deletions
diff --git a/xmonad.hs b/xmonad.hs
index 0f85c8c..2304e9c 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -21,10 +21,10 @@ import XMonad.Actions.CopyWindow
import XMonad.Util.EZConfig (additionalKeys)
import Graphics.X11.ExtraTypes.XF86
-delKeys conf@(XConfig {modMask = modMask}) = []
-
+nixBin :: String
nixBin = "/home/ben/.nix-profile/bin/"
+altMask :: KeyMask
altMask = mod1Mask
insKeys :: XConfig l -> [((KeyMask, KeySym), X ())]
@@ -61,8 +61,10 @@ insKeys conf@(XConfig {modMask = modMask}) =
amixer :: String -> X ()
amixer cmd = spawn $ "amixer -q sset Master " <> cmd
+myLayout :: SpiralWithDir a
myLayout = spiral (6 / 7)
+myWorkspaces :: [String]
myWorkspaces = ["1:chat", "2:emacs", "3:work"] ++ map show [4 .. 9] ++ ["0"]
myConf = additionalKeys c (insKeys c)
@@ -77,4 +79,5 @@ myConf = additionalKeys c (insKeys c)
, workspaces = myWorkspaces
}
+main :: IO ()
main = xmonad $ ewmh $ docks $ myConf