Re-organizzing keybindings including some minor changes to some bindings.
This commit is contained in:
parent
b5e7a08185
commit
8a74759a2e
|
@ -624,44 +624,51 @@ I am using the Xmonad.Util.EZConfig module which allows keybindings to be writte
|
|||
showKeybindings :: [((KeyMask, KeySym), NamedAction)] -> NamedAction
|
||||
showKeybindings x = addName "Show Keybindings" $ io $ do
|
||||
h <- spawnPipe $ "yad --text-info --fontname=\"SauceCodePro Nerd Font Mono 12\" --fore=#46d9ff back=#282c36 --center --geometry=1200x800 --title \"XMonad keybindings\""
|
||||
hPutStr h (unlines $ showKm x)
|
||||
--hPutStr h (unlines $ showKm x) -- showKM adds ">>" before subtitles
|
||||
hPutStr h (unlines $ showKmSimple x) -- showKmSimple doesn't add ">>" to subtitles
|
||||
hClose h
|
||||
return ()
|
||||
|
||||
subtitle' :: String -> ((KeyMask, KeySym), NamedAction)
|
||||
subtitle' x = ((0,0), NamedAction $ map toUpper
|
||||
$ sep ++ "\n-- " ++ x ++ " --\n" ++ sep)
|
||||
where
|
||||
sep = replicate (6 + length x) '-'
|
||||
|
||||
myKeys :: XConfig l0 -> [((KeyMask, KeySym), NamedAction)]
|
||||
myKeys c =
|
||||
--(subtitle "Custom Keys":) $ mkNamedKeymap c $
|
||||
let subKeys str ks = subtitle str : mkNamedKeymap c ks in
|
||||
let subKeys str ks = subtitle' str : mkNamedKeymap c ks in
|
||||
subKeys "Xmonad Essentials"
|
||||
[ ("M-C-r", addName "Recompile XMonad" $ spawn "xmonad --recompile")
|
||||
, ("M-S-r", addName "Restart XMonad" $ spawn "xmonad --restart")
|
||||
, ("M-S-q", addName "Quit XMonad" $ sequence_ [spawn (mySoundPlayer ++ shutdownSound), io exitSuccess])
|
||||
, ("M-S-c", addName "Kill focused window" $ kill1)
|
||||
, ("M-S-a", addName "Kill all windows on WS" $ killAll)
|
||||
, ("M-S-<Return>", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "dm-run"])
|
||||
, ("M-/", addName "DTOS Help" $ spawn "dtos-help")]
|
||||
[ ("M-C-r", addName "Recompile XMonad" $ spawn "xmonad --recompile")
|
||||
, ("M-S-r", addName "Restart XMonad" $ spawn "xmonad --restart")
|
||||
, ("M-S-q", addName "Quit XMonad" $ sequence_ [spawn (mySoundPlayer ++ shutdownSound), io exitSuccess])
|
||||
, ("M-S-c", addName "Kill focused window" $ kill1)
|
||||
, ("M-S-a", addName "Kill all windows on WS" $ killAll)
|
||||
, ("M-S-<Return>", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "dm-run"])
|
||||
, ("M-/", addName "DTOS Help" $ spawn "dtos-help")]
|
||||
|
||||
^++^ subKeys "Switch to workspace"
|
||||
[ ("M-1", addName "Switch to workspace 1" $ (windows $ W.greedyView $ myWorkspaces !! 0))
|
||||
, ("M-2", addName "Switch to workspace 2" $ (windows $ W.greedyView $ myWorkspaces !! 1))
|
||||
, ("M-3", addName "Switch to workspace 3" $ (windows $ W.greedyView $ myWorkspaces !! 2))
|
||||
, ("M-4", addName "Switch to workspace 4" $ (windows $ W.greedyView $ myWorkspaces !! 3))
|
||||
, ("M-5", addName "Switch to workspace 5" $ (windows $ W.greedyView $ myWorkspaces !! 4))
|
||||
, ("M-6", addName "Switch to workspace 6" $ (windows $ W.greedyView $ myWorkspaces !! 5))
|
||||
, ("M-7", addName "Switch to workspace 7" $ (windows $ W.greedyView $ myWorkspaces !! 6))
|
||||
, ("M-8", addName "Switch to workspace 8" $ (windows $ W.greedyView $ myWorkspaces !! 7))
|
||||
, ("M-9", addName "Switch to workspace 9" $ (windows $ W.greedyView $ myWorkspaces !! 8))]
|
||||
[ ("M-1", addName "Switch to workspace 1" $ (windows $ W.greedyView $ myWorkspaces !! 0))
|
||||
, ("M-2", addName "Switch to workspace 2" $ (windows $ W.greedyView $ myWorkspaces !! 1))
|
||||
, ("M-3", addName "Switch to workspace 3" $ (windows $ W.greedyView $ myWorkspaces !! 2))
|
||||
, ("M-4", addName "Switch to workspace 4" $ (windows $ W.greedyView $ myWorkspaces !! 3))
|
||||
, ("M-5", addName "Switch to workspace 5" $ (windows $ W.greedyView $ myWorkspaces !! 4))
|
||||
, ("M-6", addName "Switch to workspace 6" $ (windows $ W.greedyView $ myWorkspaces !! 5))
|
||||
, ("M-7", addName "Switch to workspace 7" $ (windows $ W.greedyView $ myWorkspaces !! 6))
|
||||
, ("M-8", addName "Switch to workspace 8" $ (windows $ W.greedyView $ myWorkspaces !! 7))
|
||||
, ("M-9", addName "Switch to workspace 9" $ (windows $ W.greedyView $ myWorkspaces !! 8))]
|
||||
|
||||
^++^ subKeys "Send window to workspace"
|
||||
[ ("M-S-1", addName "Send to workspace 1" $ (windows $ W.shift $ myWorkspaces !! 0))
|
||||
, ("M-S-2", addName "Send to workspace 2" $ (windows $ W.shift $ myWorkspaces !! 1))
|
||||
, ("M-S-3", addName "Send to workspace 3" $ (windows $ W.shift $ myWorkspaces !! 2))
|
||||
, ("M-S-4", addName "Send to workspace 4" $ (windows $ W.shift $ myWorkspaces !! 3))
|
||||
, ("M-S-5", addName "Send to workspace 5" $ (windows $ W.shift $ myWorkspaces !! 4))
|
||||
, ("M-S-6", addName "Send to workspace 6" $ (windows $ W.shift $ myWorkspaces !! 5))
|
||||
, ("M-S-7", addName "Send to workspace 7" $ (windows $ W.shift $ myWorkspaces !! 6))
|
||||
, ("M-S-8", addName "Send to workspace 8" $ (windows $ W.shift $ myWorkspaces !! 7))
|
||||
, ("M-S-9", addName "Send to workspace 9" $ (windows $ W.shift $ myWorkspaces !! 8))]
|
||||
[ ("M-S-1", addName "Send to workspace 1" $ (windows $ W.shift $ myWorkspaces !! 0))
|
||||
, ("M-S-2", addName "Send to workspace 2" $ (windows $ W.shift $ myWorkspaces !! 1))
|
||||
, ("M-S-3", addName "Send to workspace 3" $ (windows $ W.shift $ myWorkspaces !! 2))
|
||||
, ("M-S-4", addName "Send to workspace 4" $ (windows $ W.shift $ myWorkspaces !! 3))
|
||||
, ("M-S-5", addName "Send to workspace 5" $ (windows $ W.shift $ myWorkspaces !! 4))
|
||||
, ("M-S-6", addName "Send to workspace 6" $ (windows $ W.shift $ myWorkspaces !! 5))
|
||||
, ("M-S-7", addName "Send to workspace 7" $ (windows $ W.shift $ myWorkspaces !! 6))
|
||||
, ("M-S-8", addName "Send to workspace 8" $ (windows $ W.shift $ myWorkspaces !! 7))
|
||||
, ("M-S-9", addName "Send to workspace 9" $ (windows $ W.shift $ myWorkspaces !! 8))]
|
||||
|
||||
^++^ subKeys "Move window to WS and go there"
|
||||
[ ("M-S-<Page_Up>", addName "Move window to next WS" $ shiftTo Next nonNSP >> moveTo Next nonNSP)
|
||||
|
@ -682,27 +689,27 @@ myKeys c =
|
|||
-- In Xmonad and many tiling window managers, M-p is the default keybinding to
|
||||
-- launch dmenu_run, so I've decided to use M-p plus KEY for these dmenu scripts.
|
||||
^++^ subKeys "Dmenu scripts"
|
||||
[ ("M-p h", addName "List all dmscripts" $ spawn "dm-hub")
|
||||
, ("M-p a", addName "Choose ambient sound" $ spawn "dm-sounds")
|
||||
, ("M-p b", addName "Set background" $ spawn "dm-setbg")
|
||||
, ("M-p c", addName "Choose color scheme" $ spawn "dtos-colorscheme")
|
||||
, ("M-p C", addName "Pick color from scheme" $ spawn "dm-colpick")
|
||||
, ("M-p e", addName "Edit config files" $ spawn "dm-confedit")
|
||||
, ("M-p i", addName "Take a screenshot" $ spawn "dm-maim")
|
||||
, ("M-p k", addName "Kill processes" $ spawn "dm-kill")
|
||||
, ("M-p m", addName "View manpages" $ spawn "dm-man")
|
||||
, ("M-p n", addName "Store and copy notes" $ spawn "dm-note")
|
||||
, ("M-p o", addName "Browser bookmarks" $ spawn "dm-bookman")
|
||||
, ("M-p p", addName "Passmenu" $ spawn "passmenu -p \"Pass: \"")
|
||||
, ("M-p q", addName "Logout Menu" $ spawn "dm-logout")
|
||||
, ("M-p r", addName "Listen to online radio" $ spawn "dm-radio")
|
||||
, ("M-p s", addName "Search various engines" $ spawn "dm-websearch")
|
||||
, ("M-p t", addName "Translate text" $ spawn "dm-translate")]
|
||||
[ ("M-p h", addName "List all dmscripts" $ spawn "dm-hub")
|
||||
, ("M-p a", addName "Choose ambient sound" $ spawn "dm-sounds")
|
||||
, ("M-p b", addName "Set background" $ spawn "dm-setbg")
|
||||
, ("M-p c", addName "Choose color scheme" $ spawn "dtos-colorscheme")
|
||||
, ("M-p C", addName "Pick color from scheme" $ spawn "dm-colpick")
|
||||
, ("M-p e", addName "Edit config files" $ spawn "dm-confedit")
|
||||
, ("M-p i", addName "Take a screenshot" $ spawn "dm-maim")
|
||||
, ("M-p k", addName "Kill processes" $ spawn "dm-kill")
|
||||
, ("M-p m", addName "View manpages" $ spawn "dm-man")
|
||||
, ("M-p n", addName "Store and copy notes" $ spawn "dm-note")
|
||||
, ("M-p o", addName "Browser bookmarks" $ spawn "dm-bookman")
|
||||
, ("M-p p", addName "Passmenu" $ spawn "passmenu -p \"Pass: \"")
|
||||
, ("M-p q", addName "Logout Menu" $ spawn "dm-logout")
|
||||
, ("M-p r", addName "Listen to online radio" $ spawn "dm-radio")
|
||||
, ("M-p s", addName "Search various engines" $ spawn "dm-websearch")
|
||||
, ("M-p t", addName "Translate text" $ spawn "dm-translate")]
|
||||
|
||||
^++^ subKeys "Favorite programs"
|
||||
[ ("M-<Return>", addName "Launch terminal" $ spawn (myTerminal))
|
||||
, ("M-b", addName "Launch web browser" $ spawn (myBrowser))
|
||||
, ("M-M1-h", addName "Launch htop" $ spawn (myTerminal ++ " -e htop"))]
|
||||
[ ("M-<Return>", addName "Launch terminal" $ spawn (myTerminal))
|
||||
, ("M-b", addName "Launch web browser" $ spawn (myBrowser))
|
||||
, ("M-M1-h", addName "Launch htop" $ spawn (myTerminal ++ " -e htop"))]
|
||||
|
||||
^++^ subKeys "Monitors"
|
||||
[ ("M-.", addName "Switch focus to next monitor" $ nextScreen)
|
||||
|
@ -737,8 +744,8 @@ myKeys c =
|
|||
^++^ subKeys "Increase/decrease windows in master pane or the stack"
|
||||
[ ("M-S-<Up>", addName "Increase clients in master pane" $ sendMessage (IncMasterN 1))
|
||||
, ("M-S-<Down>", addName "Decrease clients in master pane" $ sendMessage (IncMasterN (-1)))
|
||||
, ("M-=", addName "Increase # of windows" $ increaseLimit)
|
||||
, ("M--", addName "Decrease # of windows" $ decreaseLimit)]
|
||||
, ("M-=", addName "Increase max # of windows for layout" $ increaseLimit)
|
||||
, ("M--", addName "Decrease max # of windows for layout" $ decreaseLimit)]
|
||||
|
||||
-- Sublayouts
|
||||
-- This is used to push windows to tabbed sublayouts, or pull them out of it.
|
||||
|
@ -769,22 +776,21 @@ myKeys c =
|
|||
, ("M-u h", addName "mocp prev" $ spawn "mocp --previous")
|
||||
, ("M-u <Space>", addName "mocp toggle pause" $ spawn "mocp --toggle-pause")]
|
||||
|
||||
-- Grid Select (CTR-g followed by a key)
|
||||
^++^ subKeys "GridSelect"
|
||||
-- , ("C-g g", addName "Select favorite apps" $ runSelectedAction' defaultGSConfig gsCategories)
|
||||
[ ("M-M1-<Return>", addName "Select favorite apps" $ spawnSelected'
|
||||
$ gsGames ++ gsEducation ++ gsInternet ++ gsMultimedia ++ gsOffice ++ gsSettings ++ gsSystem ++ gsUtilities)
|
||||
, ("M-M1-c", addName "Select favorite apps" $ spawnSelected' gsCategories)
|
||||
, ("M-M1-t", addName "Goto selected window" $ goToSelected $ mygridConfig myColorizer)
|
||||
, ("M-M1-b", addName "Bring selected window" $ bringSelected $ mygridConfig myColorizer)
|
||||
, ("M-M1-1", addName "Menu of games" $ spawnSelected' gsGames)
|
||||
, ("M-M1-2", addName "Menu of education apps" $ spawnSelected' gsEducation)
|
||||
, ("M-M1-3", addName "Menu of Internet apps" $ spawnSelected' gsInternet)
|
||||
, ("M-M1-4", addName "Menu of multimedia apps" $ spawnSelected' gsMultimedia)
|
||||
, ("M-M1-5", addName "Menu of office apps" $ spawnSelected' gsOffice)
|
||||
, ("M-M1-6", addName "Menu of settings apps" $ spawnSelected' gsSettings)
|
||||
, ("M-M1-7", addName "Menu of system apps" $ spawnSelected' gsSystem)
|
||||
, ("M-M1-8", addName "Menu of utilities apps" $ spawnSelected' gsUtilities)]
|
||||
, ("M-M1-c", addName "Select favorite apps" $ spawnSelected' gsCategories)
|
||||
, ("M-M1-t", addName "Goto selected window" $ goToSelected $ mygridConfig myColorizer)
|
||||
, ("M-M1-b", addName "Bring selected window" $ bringSelected $ mygridConfig myColorizer)
|
||||
, ("M-M1-1", addName "Menu of games" $ spawnSelected' gsGames)
|
||||
, ("M-M1-2", addName "Menu of education apps" $ spawnSelected' gsEducation)
|
||||
, ("M-M1-3", addName "Menu of Internet apps" $ spawnSelected' gsInternet)
|
||||
, ("M-M1-4", addName "Menu of multimedia apps" $ spawnSelected' gsMultimedia)
|
||||
, ("M-M1-5", addName "Menu of office apps" $ spawnSelected' gsOffice)
|
||||
, ("M-M1-6", addName "Menu of settings apps" $ spawnSelected' gsSettings)
|
||||
, ("M-M1-7", addName "Menu of system apps" $ spawnSelected' gsSystem)
|
||||
, ("M-M1-8", addName "Menu of utilities apps" $ spawnSelected' gsUtilities)]
|
||||
|
||||
-- Emacs (SUPER-e followed by a key)
|
||||
^++^ subKeys "Emacs"
|
||||
|
|
|
@ -486,44 +486,51 @@ dmenuSound = soundDir ++ "menu-01.mp3"
|
|||
showKeybindings :: [((KeyMask, KeySym), NamedAction)] -> NamedAction
|
||||
showKeybindings x = addName "Show Keybindings" $ io $ do
|
||||
h <- spawnPipe $ "yad --text-info --fontname=\"SauceCodePro Nerd Font Mono 12\" --fore=#46d9ff back=#282c36 --center --geometry=1200x800 --title \"XMonad keybindings\""
|
||||
hPutStr h (unlines $ showKm x)
|
||||
--hPutStr h (unlines $ showKm x) -- showKM adds ">>" before subtitles
|
||||
hPutStr h (unlines $ showKmSimple x) -- showKmSimple doesn't add ">>" to subtitles
|
||||
hClose h
|
||||
return ()
|
||||
|
||||
subtitle' :: String -> ((KeyMask, KeySym), NamedAction)
|
||||
subtitle' x = ((0,0), NamedAction $ map toUpper
|
||||
$ sep ++ "\n-- " ++ x ++ " --\n" ++ sep)
|
||||
where
|
||||
sep = replicate (6 + length x) '-'
|
||||
|
||||
myKeys :: XConfig l0 -> [((KeyMask, KeySym), NamedAction)]
|
||||
myKeys c =
|
||||
--(subtitle "Custom Keys":) $ mkNamedKeymap c $
|
||||
let subKeys str ks = subtitle str : mkNamedKeymap c ks in
|
||||
let subKeys str ks = subtitle' str : mkNamedKeymap c ks in
|
||||
subKeys "Xmonad Essentials"
|
||||
[ ("M-C-r", addName "Recompile XMonad" $ spawn "xmonad --recompile")
|
||||
, ("M-S-r", addName "Restart XMonad" $ spawn "xmonad --restart")
|
||||
, ("M-S-q", addName "Quit XMonad" $ sequence_ [spawn (mySoundPlayer ++ shutdownSound), io exitSuccess])
|
||||
, ("M-S-c", addName "Kill focused window" $ kill1)
|
||||
, ("M-S-a", addName "Kill all windows on WS" $ killAll)
|
||||
, ("M-S-<Return>", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "dm-run"])
|
||||
, ("M-/", addName "DTOS Help" $ spawn "dtos-help")]
|
||||
[ ("M-C-r", addName "Recompile XMonad" $ spawn "xmonad --recompile")
|
||||
, ("M-S-r", addName "Restart XMonad" $ spawn "xmonad --restart")
|
||||
, ("M-S-q", addName "Quit XMonad" $ sequence_ [spawn (mySoundPlayer ++ shutdownSound), io exitSuccess])
|
||||
, ("M-S-c", addName "Kill focused window" $ kill1)
|
||||
, ("M-S-a", addName "Kill all windows on WS" $ killAll)
|
||||
, ("M-S-<Return>", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "dm-run"])
|
||||
, ("M-/", addName "DTOS Help" $ spawn "dtos-help")]
|
||||
|
||||
^++^ subKeys "Switch to workspace"
|
||||
[ ("M-1", addName "Switch to workspace 1" $ (windows $ W.greedyView $ myWorkspaces !! 0))
|
||||
, ("M-2", addName "Switch to workspace 2" $ (windows $ W.greedyView $ myWorkspaces !! 1))
|
||||
, ("M-3", addName "Switch to workspace 3" $ (windows $ W.greedyView $ myWorkspaces !! 2))
|
||||
, ("M-4", addName "Switch to workspace 4" $ (windows $ W.greedyView $ myWorkspaces !! 3))
|
||||
, ("M-5", addName "Switch to workspace 5" $ (windows $ W.greedyView $ myWorkspaces !! 4))
|
||||
, ("M-6", addName "Switch to workspace 6" $ (windows $ W.greedyView $ myWorkspaces !! 5))
|
||||
, ("M-7", addName "Switch to workspace 7" $ (windows $ W.greedyView $ myWorkspaces !! 6))
|
||||
, ("M-8", addName "Switch to workspace 8" $ (windows $ W.greedyView $ myWorkspaces !! 7))
|
||||
, ("M-9", addName "Switch to workspace 9" $ (windows $ W.greedyView $ myWorkspaces !! 8))]
|
||||
[ ("M-1", addName "Switch to workspace 1" $ (windows $ W.greedyView $ myWorkspaces !! 0))
|
||||
, ("M-2", addName "Switch to workspace 2" $ (windows $ W.greedyView $ myWorkspaces !! 1))
|
||||
, ("M-3", addName "Switch to workspace 3" $ (windows $ W.greedyView $ myWorkspaces !! 2))
|
||||
, ("M-4", addName "Switch to workspace 4" $ (windows $ W.greedyView $ myWorkspaces !! 3))
|
||||
, ("M-5", addName "Switch to workspace 5" $ (windows $ W.greedyView $ myWorkspaces !! 4))
|
||||
, ("M-6", addName "Switch to workspace 6" $ (windows $ W.greedyView $ myWorkspaces !! 5))
|
||||
, ("M-7", addName "Switch to workspace 7" $ (windows $ W.greedyView $ myWorkspaces !! 6))
|
||||
, ("M-8", addName "Switch to workspace 8" $ (windows $ W.greedyView $ myWorkspaces !! 7))
|
||||
, ("M-9", addName "Switch to workspace 9" $ (windows $ W.greedyView $ myWorkspaces !! 8))]
|
||||
|
||||
^++^ subKeys "Send window to workspace"
|
||||
[ ("M-S-1", addName "Send to workspace 1" $ (windows $ W.shift $ myWorkspaces !! 0))
|
||||
, ("M-S-2", addName "Send to workspace 2" $ (windows $ W.shift $ myWorkspaces !! 1))
|
||||
, ("M-S-3", addName "Send to workspace 3" $ (windows $ W.shift $ myWorkspaces !! 2))
|
||||
, ("M-S-4", addName "Send to workspace 4" $ (windows $ W.shift $ myWorkspaces !! 3))
|
||||
, ("M-S-5", addName "Send to workspace 5" $ (windows $ W.shift $ myWorkspaces !! 4))
|
||||
, ("M-S-6", addName "Send to workspace 6" $ (windows $ W.shift $ myWorkspaces !! 5))
|
||||
, ("M-S-7", addName "Send to workspace 7" $ (windows $ W.shift $ myWorkspaces !! 6))
|
||||
, ("M-S-8", addName "Send to workspace 8" $ (windows $ W.shift $ myWorkspaces !! 7))
|
||||
, ("M-S-9", addName "Send to workspace 9" $ (windows $ W.shift $ myWorkspaces !! 8))]
|
||||
[ ("M-S-1", addName "Send to workspace 1" $ (windows $ W.shift $ myWorkspaces !! 0))
|
||||
, ("M-S-2", addName "Send to workspace 2" $ (windows $ W.shift $ myWorkspaces !! 1))
|
||||
, ("M-S-3", addName "Send to workspace 3" $ (windows $ W.shift $ myWorkspaces !! 2))
|
||||
, ("M-S-4", addName "Send to workspace 4" $ (windows $ W.shift $ myWorkspaces !! 3))
|
||||
, ("M-S-5", addName "Send to workspace 5" $ (windows $ W.shift $ myWorkspaces !! 4))
|
||||
, ("M-S-6", addName "Send to workspace 6" $ (windows $ W.shift $ myWorkspaces !! 5))
|
||||
, ("M-S-7", addName "Send to workspace 7" $ (windows $ W.shift $ myWorkspaces !! 6))
|
||||
, ("M-S-8", addName "Send to workspace 8" $ (windows $ W.shift $ myWorkspaces !! 7))
|
||||
, ("M-S-9", addName "Send to workspace 9" $ (windows $ W.shift $ myWorkspaces !! 8))]
|
||||
|
||||
^++^ subKeys "Move window to WS and go there"
|
||||
[ ("M-S-<Page_Up>", addName "Move window to next WS" $ shiftTo Next nonNSP >> moveTo Next nonNSP)
|
||||
|
@ -544,27 +551,27 @@ myKeys c =
|
|||
-- In Xmonad and many tiling window managers, M-p is the default keybinding to
|
||||
-- launch dmenu_run, so I've decided to use M-p plus KEY for these dmenu scripts.
|
||||
^++^ subKeys "Dmenu scripts"
|
||||
[ ("M-p h", addName "List all dmscripts" $ spawn "dm-hub")
|
||||
, ("M-p a", addName "Choose ambient sound" $ spawn "dm-sounds")
|
||||
, ("M-p b", addName "Set background" $ spawn "dm-setbg")
|
||||
, ("M-p c", addName "Choose color scheme" $ spawn "dtos-colorscheme")
|
||||
, ("M-p C", addName "Pick color from scheme" $ spawn "dm-colpick")
|
||||
, ("M-p e", addName "Edit config files" $ spawn "dm-confedit")
|
||||
, ("M-p i", addName "Take a screenshot" $ spawn "dm-maim")
|
||||
, ("M-p k", addName "Kill processes" $ spawn "dm-kill")
|
||||
, ("M-p m", addName "View manpages" $ spawn "dm-man")
|
||||
, ("M-p n", addName "Store and copy notes" $ spawn "dm-note")
|
||||
, ("M-p o", addName "Browser bookmarks" $ spawn "dm-bookman")
|
||||
, ("M-p p", addName "Passmenu" $ spawn "passmenu -p \"Pass: \"")
|
||||
, ("M-p q", addName "Logout Menu" $ spawn "dm-logout")
|
||||
, ("M-p r", addName "Listen to online radio" $ spawn "dm-radio")
|
||||
, ("M-p s", addName "Search various engines" $ spawn "dm-websearch")
|
||||
, ("M-p t", addName "Translate text" $ spawn "dm-translate")]
|
||||
[ ("M-p h", addName "List all dmscripts" $ spawn "dm-hub")
|
||||
, ("M-p a", addName "Choose ambient sound" $ spawn "dm-sounds")
|
||||
, ("M-p b", addName "Set background" $ spawn "dm-setbg")
|
||||
, ("M-p c", addName "Choose color scheme" $ spawn "dtos-colorscheme")
|
||||
, ("M-p C", addName "Pick color from scheme" $ spawn "dm-colpick")
|
||||
, ("M-p e", addName "Edit config files" $ spawn "dm-confedit")
|
||||
, ("M-p i", addName "Take a screenshot" $ spawn "dm-maim")
|
||||
, ("M-p k", addName "Kill processes" $ spawn "dm-kill")
|
||||
, ("M-p m", addName "View manpages" $ spawn "dm-man")
|
||||
, ("M-p n", addName "Store and copy notes" $ spawn "dm-note")
|
||||
, ("M-p o", addName "Browser bookmarks" $ spawn "dm-bookman")
|
||||
, ("M-p p", addName "Passmenu" $ spawn "passmenu -p \"Pass: \"")
|
||||
, ("M-p q", addName "Logout Menu" $ spawn "dm-logout")
|
||||
, ("M-p r", addName "Listen to online radio" $ spawn "dm-radio")
|
||||
, ("M-p s", addName "Search various engines" $ spawn "dm-websearch")
|
||||
, ("M-p t", addName "Translate text" $ spawn "dm-translate")]
|
||||
|
||||
^++^ subKeys "Favorite programs"
|
||||
[ ("M-<Return>", addName "Launch terminal" $ spawn (myTerminal))
|
||||
, ("M-b", addName "Launch web browser" $ spawn (myBrowser))
|
||||
, ("M-M1-h", addName "Launch htop" $ spawn (myTerminal ++ " -e htop"))]
|
||||
[ ("M-<Return>", addName "Launch terminal" $ spawn (myTerminal))
|
||||
, ("M-b", addName "Launch web browser" $ spawn (myBrowser))
|
||||
, ("M-M1-h", addName "Launch htop" $ spawn (myTerminal ++ " -e htop"))]
|
||||
|
||||
^++^ subKeys "Monitors"
|
||||
[ ("M-.", addName "Switch focus to next monitor" $ nextScreen)
|
||||
|
@ -599,8 +606,8 @@ myKeys c =
|
|||
^++^ subKeys "Increase/decrease windows in master pane or the stack"
|
||||
[ ("M-S-<Up>", addName "Increase clients in master pane" $ sendMessage (IncMasterN 1))
|
||||
, ("M-S-<Down>", addName "Decrease clients in master pane" $ sendMessage (IncMasterN (-1)))
|
||||
, ("M-=", addName "Increase # of windows" $ increaseLimit)
|
||||
, ("M--", addName "Decrease # of windows" $ decreaseLimit)]
|
||||
, ("M-=", addName "Increase max # of windows for layout" $ increaseLimit)
|
||||
, ("M--", addName "Decrease max # of windows for layout" $ decreaseLimit)]
|
||||
|
||||
-- Sublayouts
|
||||
-- This is used to push windows to tabbed sublayouts, or pull them out of it.
|
||||
|
@ -631,22 +638,21 @@ myKeys c =
|
|||
, ("M-u h", addName "mocp prev" $ spawn "mocp --previous")
|
||||
, ("M-u <Space>", addName "mocp toggle pause" $ spawn "mocp --toggle-pause")]
|
||||
|
||||
-- Grid Select (CTR-g followed by a key)
|
||||
^++^ subKeys "GridSelect"
|
||||
-- , ("C-g g", addName "Select favorite apps" $ runSelectedAction' defaultGSConfig gsCategories)
|
||||
[ ("M-M1-<Return>", addName "Select favorite apps" $ spawnSelected'
|
||||
$ gsGames ++ gsEducation ++ gsInternet ++ gsMultimedia ++ gsOffice ++ gsSettings ++ gsSystem ++ gsUtilities)
|
||||
, ("M-M1-c", addName "Select favorite apps" $ spawnSelected' gsCategories)
|
||||
, ("M-M1-t", addName "Goto selected window" $ goToSelected $ mygridConfig myColorizer)
|
||||
, ("M-M1-b", addName "Bring selected window" $ bringSelected $ mygridConfig myColorizer)
|
||||
, ("M-M1-1", addName "Menu of games" $ spawnSelected' gsGames)
|
||||
, ("M-M1-2", addName "Menu of education apps" $ spawnSelected' gsEducation)
|
||||
, ("M-M1-3", addName "Menu of Internet apps" $ spawnSelected' gsInternet)
|
||||
, ("M-M1-4", addName "Menu of multimedia apps" $ spawnSelected' gsMultimedia)
|
||||
, ("M-M1-5", addName "Menu of office apps" $ spawnSelected' gsOffice)
|
||||
, ("M-M1-6", addName "Menu of settings apps" $ spawnSelected' gsSettings)
|
||||
, ("M-M1-7", addName "Menu of system apps" $ spawnSelected' gsSystem)
|
||||
, ("M-M1-8", addName "Menu of utilities apps" $ spawnSelected' gsUtilities)]
|
||||
, ("M-M1-c", addName "Select favorite apps" $ spawnSelected' gsCategories)
|
||||
, ("M-M1-t", addName "Goto selected window" $ goToSelected $ mygridConfig myColorizer)
|
||||
, ("M-M1-b", addName "Bring selected window" $ bringSelected $ mygridConfig myColorizer)
|
||||
, ("M-M1-1", addName "Menu of games" $ spawnSelected' gsGames)
|
||||
, ("M-M1-2", addName "Menu of education apps" $ spawnSelected' gsEducation)
|
||||
, ("M-M1-3", addName "Menu of Internet apps" $ spawnSelected' gsInternet)
|
||||
, ("M-M1-4", addName "Menu of multimedia apps" $ spawnSelected' gsMultimedia)
|
||||
, ("M-M1-5", addName "Menu of office apps" $ spawnSelected' gsOffice)
|
||||
, ("M-M1-6", addName "Menu of settings apps" $ spawnSelected' gsSettings)
|
||||
, ("M-M1-7", addName "Menu of system apps" $ spawnSelected' gsSystem)
|
||||
, ("M-M1-8", addName "Menu of utilities apps" $ spawnSelected' gsUtilities)]
|
||||
|
||||
-- Emacs (SUPER-e followed by a key)
|
||||
^++^ subKeys "Emacs"
|
||||
|
|
Loading…
Reference in New Issue