mynix/system
1
1
Fork 0
Code Issues 2 Pull requests Activity

feat(prog/xmonad): add easy motion

Browse source
This commit is contained in:
Dmitriy Pleshevskiy 2022-04-13 16:13:26 +03:00
parent b96ff466cd
commit 7045269fee
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
programs/xmonad/xmonad.hs
View file

@ -10,6 +10,7 @@
import Data.Monoid import Data.Monoid
import System.Exit import System.Exit
import XMonad import XMonad
import XMonad.Actions.EasyMotion (selectWindow)
import XMonad.Hooks.DynamicLog import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
@ -89,11 +90,8 @@ myKeys conf = mkKeymap conf $
-- Resize viewed windows to the correct size -- Resize viewed windows to the correct size
, ("M-n", refresh) , ("M-n", refresh)
-- Move focus to the next window -- Easy moution to focus windows
, ("M-j", windows W.focusDown) , ("M-s", selectWindow def >>= (`whenJust` windows . W.focusWindow))
-- Move focus to the previous window
, ("M-k", windows W.focusUp)
-- Move focus to the master window -- Move focus to the master window
, ("M-m", windows W.focusMaster) , ("M-m", windows W.focusMaster)
@ -128,8 +126,6 @@ myKeys conf = mkKeymap conf $
-- --
, ("M-b", sendMessage ToggleStruts) , ("M-b", sendMessage ToggleStruts)
-- Quit xmonad
, ("M4-S-q", io exitSuccess)
-- Lock screen -- Lock screen
, ("M4-l", spawn "i3lock -e -c 000000") , ("M4-l", spawn "i3lock -e -c 000000")
@ -142,6 +138,8 @@ myKeys conf = mkKeymap conf $
-- Keyboard apps -- Keyboard apps
, ("<XF86Calculator>", spawn "gnome-calculator") , ("<XF86Calculator>", spawn "gnome-calculator")
-- Quit xmonad
, ("M4-S-q", io exitSuccess)
-- Restart xmonad -- Restart xmonad
, ("M-q", spawn "xmonad --recompile; xmonad --restart") , ("M-q", spawn "xmonad --recompile; xmonad --restart")