From 3e35728438295b8e14cf29ce7ffb2dce854286b7 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Wed, 10 Apr 2019 13:13:01 -0700 Subject: update xmonad --- xmonad.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'xmonad.hs') 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 -- cgit v1.2.3