diff options
author | Ben Sima <ben@bsima.me> | 2019-04-10 13:13:01 -0700 |
---|---|---|
committer | Ben Sima <ben@bsima.me> | 2019-04-10 13:13:01 -0700 |
commit | 3e35728438295b8e14cf29ce7ffb2dce854286b7 (patch) | |
tree | 9f9bfd74bab28bffe3fbc50482e8199845217bd3 | |
parent | 60a877a89a506b142f8522952f310adbe17c0f54 (diff) |
update xmonad
-rw-r--r-- | xmonad.hs | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -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 |