diff options
| author | Ben Sima <ben@bsima.me> | 2023-01-20 11:21:26 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2023-01-20 11:21:26 -0500 |
| commit | b08cd71671eea1b4e7d58b32f12943613432d91e (patch) | |
| tree | bd520b07421e556e2146d56e6b4db762cfa39038 /lib/xmonad.hs | |
| parent | 3017f5ffbd3ae6dd062ca36ddb84486ba4376abd (diff) | |
some UI tweaks
Change-Id: Id7b3099472c6e15154dc75d3614862f02be031d7
Diffstat (limited to 'lib/xmonad.hs')
| -rw-r--r-- | lib/xmonad.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lib/xmonad.hs b/lib/xmonad.hs index 75dd652..047dd83 100644 --- a/lib/xmonad.hs +++ b/lib/xmonad.hs @@ -23,6 +23,7 @@ import Graphics.X11.ExtraTypes.XF86 import XMonad import XMonad.Actions.CopyWindow import XMonad.Config +import XMonad.Config.Desktop import XMonad.Hooks.EwmhDesktops (ewmh) import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageHelpers (doFullFloat, isFullscreen) @@ -109,7 +110,7 @@ insKeys conf@(XConfig {modMask = modMask}) = ((modMask, xK_o), spawn "rofi -sidebar-mode -show run"), ((modMask, xK_n), spawn "rofi -sidebar-mode -show window"), ((modMask, xK_u), spawn "rofi -show calc -modi calc -no-show-match -no-sort"), - ((modMask, xK_h), scratchpadSpawnActionTerminal transparentTerm), + ((modMask, xK_s), scratchpadSpawnActionTerminal transparentTerm), ((modMask .|. shiftMask, xK_p), namedScratchpadAction scratchpads "pavucontrol"), -- ((modMask, xK_h), spawn transparentTerm), -- refresh display via autorandr @@ -146,9 +147,9 @@ addSpace :: l a -> ModifiedLayout Spacing l a addSpace = spacingRaw False - (Border 15 15 15 15) + (Border 5 5 5 5) True - (Border 15 15 15 15) + (Border 5 5 5 5) True myTabCfg theme = @@ -166,8 +167,8 @@ myLayout theme = ||| (addSpace $ noBorders Full) ||| twopane ||| Mirror twopane - -- ||| ThreeCol 1 (3 / 100) (1 / 2) - -- ||| ThreeColMid 1 (3 / 100) (1 / 2) + ||| ThreeCol 1 (3 / 100) (1 / 2) + ||| ThreeColMid 1 (3 / 100) (1 / 2) ||| tiled ||| Mirror tiled ||| emptyBSP @@ -191,7 +192,7 @@ myLayout theme = myConf theme = additionalKeys cfg (insKeys cfg) where cfg = - def + desktopConfig { modMask = mod4Mask, -- super instead of alt normalBorderColor = background theme, focusedBorderColor = highlight theme, |