hunner/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update xmonad for ewmh, emoji, and border

Browse source
This commit is contained in:
Hunter Haugen 2021-01-29 14:26:03 -08:00
parent c48e5826ee
commit a26c9b7ee6
Signed by: hunner
GPG key ID: EF99694AA599DDAD
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
.xmonad/xmonad.hs
View file

@ -23,6 +23,7 @@ import XMonad.Actions.Warp(warpToScreen)
import XMonad.Actions.WindowBringer import XMonad.Actions.WindowBringer
import XMonad.Prompt import XMonad.Prompt
import XMonad.Util.EZConfig import XMonad.Util.EZConfig
import XMonad.Util.Paste as P
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageHelpers import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.FadeInactive import XMonad.Hooks.FadeInactive
@ -37,7 +38,7 @@ import qualified Data.Map as M
-- mTerminal = "urxvt;ps -U $USER |grep dzen2|awk '{print $1}'|xargs kill -USR1" -- mTerminal = "urxvt;ps -U $USER |grep dzen2|awk '{print $1}'|xargs kill -USR1"
mTerminal = "st" mTerminal = "st"
mBorderWidth = 1 mBorderWidth = 2
mModMask = mod4Mask mModMask = mod4Mask
-- A tagging example: -- A tagging example:
@ -49,12 +50,14 @@ mWorkspaces = map show [0 .. 9 :: Int]
-- Border colors for unfocused and focused windows, respectively. -- Border colors for unfocused and focused windows, respectively.
-- --
mNormalBorderColor = "#222222" mNormalBorderColor = "#222222"
mFocusedBorderColor = "#005577" --mFocusedBorderColor = "#005577"
mFocusedBorderColor = "#88c0d0"
-- Custom keys -- Custom keys
-- --
mKeys = [ ("M-S-n" , sendMessage MirrorShrink ) -- Expand current window mKeys = [ ("M-S-n" , sendMessage MirrorShrink ) -- Expand current window
, ("M-S-t" , sendMessage MirrorExpand ) -- Shrink current window , ("M-S-t" , sendMessage MirrorExpand ) -- Shrink current window
, ("M-S-M1-<Tab>", P.sendKey (controlMask .|. shiftMask .|. mod1Mask .|. mod2Mask ) xK_Tab )
, ("M-r" , warpToCorner ) -- Kill the rodent , ("M-r" , warpToCorner ) -- Kill the rodent
, ("M-b" , withFocused toggleBorder ) -- Toggle the border of the currently focused window , ("M-b" , withFocused toggleBorder ) -- Toggle the border of the currently focused window
, ("M-g" , warpToCentre >> promptedWs) -- Gridselect to pick windows , ("M-g" , warpToCentre >> promptedWs) -- Gridselect to pick windows
@ -62,6 +65,7 @@ mKeys = [ ("M-S-n" , sendMessage MirrorShrink ) -- Expand current window
, ("M-M1-C-8", spawn "xcalib -i -a" ) -- Invert screen color , ("M-M1-C-8", spawn "xcalib -i -a" ) -- Invert screen color
, ("M-S-b" , spawn "ps -U hunner|grep dzen2|awk '{print $1}'|xargs kill -USR1") -- Bring dzen to the front , ("M-S-b" , spawn "ps -U hunner|grep dzen2|awk '{print $1}'|xargs kill -USR1") -- Bring dzen to the front
, ("M-p" , spawn "dmenu_run") , ("M-p" , spawn "dmenu_run")
, ("M-C-<Space>" , spawn "/home/hunner/local/bin/emoji-menu")
, ("M-C-c" , spawn "CM_DIR=~/.config/clipmenu clipmenu") , ("M-C-c" , spawn "CM_DIR=~/.config/clipmenu clipmenu")
, ("<Scroll_lock>", spawn "xlock -mode fzort -echokeys -usefirst" ) -- SCReen LocK , ("<Scroll_lock>", spawn "xlock -mode fzort -echokeys -usefirst" ) -- SCReen LocK
@ -195,6 +199,7 @@ mManageHook = composeAll
, className =? "Gvba" --> doFloat , className =? "Gvba" --> doFloat
, className =? "Thunar" --> doFloat , className =? "Thunar" --> doFloat
, className =? "feh" --> doFloat , className =? "feh" --> doFloat
, className =? "emoji-keyboard" --> doFloat
, className =? "Cellwriter" --> doIgnore , className =? "Cellwriter" --> doIgnore
, resource =? "desktop_window" --> doIgnore , resource =? "desktop_window" --> doIgnore
, resource =? "kdesktop" --> doIgnore , resource =? "kdesktop" --> doIgnore
@ -254,7 +259,7 @@ pickyFocusEventHook _ = return $ All True
-- Define my configuration -- Define my configuration
-- --
mConfig = defaultConfig mConfig = ewmh def
{ terminal = mTerminal { terminal = mTerminal
, focusFollowsMouse = mFocusFollowsMouse , focusFollowsMouse = mFocusFollowsMouse
, borderWidth = mBorderWidth , borderWidth = mBorderWidth
@ -266,7 +271,7 @@ mConfig = defaultConfig
, layoutHook = mLayout , layoutHook = mLayout
--, manageHook = manageSpawn sp <+> mManageHook --, manageHook = manageSpawn sp <+> mManageHook
, manageHook = mManageHook , manageHook = mManageHook
, handleEventHook = pickyFocusEventHook , handleEventHook = handleEventHook def <+> fullscreenEventHook <+> pickyFocusEventHook
, startupHook = do , startupHook = do
ewmhDesktopsStartup >> setWMName "LG3D" ewmhDesktopsStartup >> setWMName "LG3D"
return () >> checkKeymap mConfig mKeys return () >> checkKeymap mConfig mKeys