diff options
| author | Ben Sima <ben@bsima.me> | 2019-04-10 09:42:00 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2019-04-10 09:42:00 -0700 |
| commit | ffecb75c207406df96a7cce1a392644d660337cb (patch) | |
| tree | 8f14bb6e6d70a7386bcc4eb62b2fbd5380dccd47 /xmonad.hs | |
| parent | 04d7762983e9cc4471f6ac5f94bdbb83a0669a01 (diff) | |
xmonad: add hs command and increase border size
Diffstat (limited to 'xmonad.hs')
| -rw-r--r-- | xmonad.hs | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -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 |