From 12382dda17094d7f3830c44df3846d9b127dd650 Mon Sep 17 00:00:00 2001 From: Derek Taylor Date: Sun, 26 Jun 2022 00:40:03 -0500 Subject: [PATCH] NamedActions now are divided into subtitled sections --- .xmonad/README.org | 32 ++++++++++++++++++++++++++++++++ .xmonad/xmonad.hs | 23 +++++++++++++++++++++++ 2 files changed, 55 insertions(+) diff --git a/.xmonad/README.org b/.xmonad/README.org index 6434b79..48060d1 100644 --- a/.xmonad/README.org +++ b/.xmonad/README.org @@ -638,11 +638,34 @@ myKeys c = [ ("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-/", addName "List all keybindings" $ spawn "~/.xmonad/xmonad_keys.sh") , ("M-/", addName "DTOS Help" $ spawn "dtos-help") -- Run prompt (dmenu) , ("M-S-", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "dm-run"])] + ^++^ 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))] + + ^++^ 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))] + -- Dmenu scripts (dmscripts) -- 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. @@ -806,6 +829,15 @@ myKeys c = #+END_SRC +#+RESULTS: +: :184:58-64: error: +: Not in scope: ‘W.stack’ +: No module named ‘W’ is imported. +: +: :184:73-77: error: +: Not in scope: ‘W.tag’ +: No module named ‘W’ is imported. + * Main This is the "main" of XMonad. This where everything in our configs comes together and works. diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index bab0d06..b6a15a6 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -498,11 +498,34 @@ myKeys c = [ ("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-/", addName "List all keybindings" $ spawn "~/.xmonad/xmonad_keys.sh") , ("M-/", addName "DTOS Help" $ spawn "dtos-help") -- Run prompt (dmenu) , ("M-S-", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "dm-run"])] + ^++^ 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))] + + ^++^ 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))] + -- Dmenu scripts (dmscripts) -- 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.