fix(prog/xmonad): remove unused kb, fix help

This commit is contained in:
Dmitriy Pleshevskiy 2022-04-07 14:27:15 +03:00
parent 071ee87e33
commit 37992c5766

View file

@ -23,12 +23,11 @@ import qualified Data.Map as M
-- The preferred terminal program, which is used in a binding below and by -- The preferred terminal program, which is used in a binding below and by
-- certain contrib modules. -- certain contrib modules.
-- --
-- myTerminal = "xterm"
myTerminal = "alacritty" myTerminal = "alacritty"
-- Whether focus follows the mouse pointer. -- Whether focus follows the mouse pointer.
myFocusFollowsMouse :: Bool myFocusFollowsMouse :: Bool
myFocusFollowsMouse = True myFocusFollowsMouse = False
-- Whether clicking on a window to focus also passes the click to the window -- Whether clicking on a window to focus also passes the click to the window
myClickJustFocuses :: Bool myClickJustFocuses :: Bool
@ -54,7 +53,7 @@ myModMask = mod1Mask
-- --
-- > workspaces = ["web", "irc", "code" ] ++ map show [4..9] -- > workspaces = ["web", "irc", "code" ] ++ map show [4..9]
-- --
myWorkspaces = ["1","2","3","4","5","6","7","8","9"] myWorkspaces = map show [1..9]
-- Border colors for unfocused and focused windows, respectively. -- Border colors for unfocused and focused windows, respectively.
-- --
@ -72,9 +71,6 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
-- launch dmenu -- launch dmenu
, ((modm, xK_p ), spawn "dmenu_run") , ((modm, xK_p ), spawn "dmenu_run")
-- launch gmrun
, ((modm .|. shiftMask, xK_p ), spawn "gmrun")
-- close focused window -- close focused window
, ((modm .|. shiftMask, xK_c ), kill) , ((modm .|. shiftMask, xK_c ), kill)
@ -87,9 +83,6 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
-- Resize viewed windows to the correct size -- Resize viewed windows to the correct size
, ((modm, xK_n ), refresh) , ((modm, xK_n ), refresh)
-- Move focus to the next window
, ((modm, xK_Tab ), windows W.focusDown)
-- Move focus to the next window -- Move focus to the next window
, ((modm, xK_j ), windows W.focusDown) , ((modm, xK_j ), windows W.focusDown)
@ -295,24 +288,15 @@ defaults = def {
-- | Finally, a copy of the default bindings in simple textual tabular format. -- | Finally, a copy of the default bindings in simple textual tabular format.
help :: String help :: String
help = unlines ["The default modifier key is 'alt'. Default keybindings:", help = unlines ["The default modifier key is 'alt'. Default keybindings:",
"## CUSTOM",
"-- Screenshot",
"mod-Shift-s Launch 'flameshot' to screenshot",
"", "",
"## DEFAULT",
"-- launching and killing programs", "-- launching and killing programs",
"mod-Shift-Enter Launch xterminal", "mod-Shift-Enter Launch 'alacritty' terminal",
"mod-p Launch dmenu", "mod-Shift-s Launch 'flameshot' to screenshot",
"mod-Shift-p Launch gmrun", "mod-p Launch 'dmenu_run'",
"mod-Shift-c Close/kill the focused window", "mod-Shift-c Close/kill the focused window",
"mod-Space Rotate through the available layout algorithms",
"mod-Shift-Space Reset the layouts on the current workSpace to default",
"mod-n Resize/refresh viewed windows to the correct size",
"mod-Shift-/ Show this help message with the default keybindings", "mod-Shift-/ Show this help message with the default keybindings",
"", "",
"-- move focus up or down the window stack", "-- move focus up or down the window stack",
"mod-Tab Move focus to the next window",
"mod-Shift-Tab Move focus to the previous window",
"mod-j Move focus to the next window", "mod-j Move focus to the next window",
"mod-k Move focus to the previous window", "mod-k Move focus to the previous window",
"mod-m Move focus to the master window", "mod-m Move focus to the master window",
@ -322,12 +306,13 @@ help = unlines ["The default modifier key is 'alt'. Default keybindings:",
"mod-Shift-j Swap the focused window with the next window", "mod-Shift-j Swap the focused window with the next window",
"mod-Shift-k Swap the focused window with the previous window", "mod-Shift-k Swap the focused window with the previous window",
"", "",
"-- resizing the master/slave ratio", "-- workspace layout",
"mod-h Shrink the master area", "mod-Space Rotate through the available layout algorithms",
"mod-l Expand the master area", "mod-Shift-Space Reset the layouts on the current workspace to default",
"", "mod-n Resize/refresh viewed windows to the correct size",
"-- floating layer support", "mod-h Shrink the master area",
"mod-t Push window back into tiling; unfloat and re-tile it", "mod-l Expand the master area",
"mod-t Push window back into tiling; unfloat and re-tile it",
"", "",
"-- increase or decrease number of windows in the master area", "-- increase or decrease number of windows in the master area",
"mod-comma (mod-,) Increment the number of windows in the master area", "mod-comma (mod-,) Increment the number of windows in the master area",
@ -336,9 +321,9 @@ help = unlines ["The default modifier key is 'alt'. Default keybindings:",
"-- quit, or restart", "-- quit, or restart",
"mod-Shift-q Quit xmonad", "mod-Shift-q Quit xmonad",
"mod-q Restart xmonad", "mod-q Restart xmonad",
"mod-[1..9] Switch to workSpace N",
"", "",
"-- Workspaces & screens", "-- Workspaces & screens",
"mod-[1..9] Switch to workSpace N",
"mod-Shift-[1..9] Move client to workspace N", "mod-Shift-[1..9] Move client to workspace N",
"mod-{w,e,r} Switch to physical/Xinerama screens 1, 2, or 3", "mod-{w,e,r} Switch to physical/Xinerama screens 1, 2, or 3",
"mod-Shift-{w,e,r} Move client to screen 1, 2, or 3", "mod-Shift-{w,e,r} Move client to screen 1, 2, or 3",