xmonad: add hs command and increase border size

1 files changed, 6 insertions, 4 deletions

diff --git a/xmonad.hs b/xmonad.hs
index 92c2465..0f85c8c 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -11,7 +11,6 @@ Docs:
 
 -}
 
-
 import XMonad
 import XMonad.Config
 import XMonad.Hooks.EwmhDesktops (ewmh)
@@ -26,16 +25,19 @@ delKeys conf@(XConfig {modMask = modMask}) = []
 
 nixBin = "/home/ben/.nix-profile/bin/"
 
+altMask = mod1Mask
+
 insKeys :: XConfig l -> [((KeyMask, KeySym), X ())]
 insKeys conf@(XConfig {modMask = modMask}) =
   [ ((modMask, xK_y), spawn $ nixBin <> "passmenu")
-    -- neither of these work:
   , ((modMask, xK_u), spawn $ nixBin <> "rofi -sidebar-mode -show window")
   , ((modMask, xK_i), spawn $ "rofi -sidebar-mode -show run")
 
   , ((modMask, xK_o), spawn $ nixBin <> "dmenu_run")
   , ((modMask, xK_e), spawn "emacsclient -c")
 
+  , ((modMask .|. altMask, xK_h), spawn "home-manager switch")
+
   -- sticky windows
   , ((modMask, xK_a ), windows copyToAll) -- @@ Make focused window always visible
   , ((modMask .|. shiftMask, xK_a ),  killAllOtherCopies) -- @@ Toggle window state back
@@ -61,18 +63,18 @@ amixer cmd = spawn $ "amixer -q sset Master " <> cmd
 
 myLayout = spiral (6 / 7)
 
-myWorkspaces = ["1:mail", "2:org", "3:web"] ++ map show [4 .. 9] ++ ["0"]
+myWorkspaces = ["1:chat", "2:emacs", "3:work"] ++ map show [4 .. 9] ++ ["0"]
 
 myConf = additionalKeys c (insKeys c)
   where c = def
           { modMask = mod4Mask -- ^ super instead of alt
           , normalBorderColor = "#eee8d4" -- ^ solarized base3
           , focusedBorderColor = "#2aa198" -- ^ solarized cyan
+          , borderWidth = 3
           , manageHook = manageDocks <+> manageHook def
           , layoutHook = avoidStruts $ myLayout ||| layoutHook def
           , terminal = "/home/ben/.nix-profile/bin/xterm"
           , workspaces = myWorkspaces
-          --, keys = customKeys delKeys insKeys
           }
 
 main = xmonad $ ewmh $ docks $ myConf