Add toggleWS and additional workspaces to xmonad

home/jacob.nix

@@ -88,9 +88,7 @@
   };
 
   programs = {
-    bat = {
+    bat.enable = true;
-      enable = true;
-    };
     direnv = {
       enable = true;
       enableZshIntegration = true;
@@ -109,10 +107,12 @@
       userEmail = "jacob.hinkle@jhink.org";
       lfs.enable = true;
       delta.enable = true;
+      aliases = {
+        s = "status";
+        ci = "commit";
       };
-    htop = {
-      enable = true;
     };
+    htop.enable = true;
     kitty = {
       enable = true;
       font = {
@@ -120,9 +120,8 @@
         size = 16;
       };
     };
-    mbsync = {
+    lazygit.enable = true;
-      enable = true;
+    mbsync.enable = true;
-    };
     neovim = {
       enable = true;
       plugins = with pkgs.vimPlugins; [
@@ -162,6 +161,7 @@
       enable = true;
       enableSyntaxHighlighting = true;
       shellAliases = {
+        lg = "lazygit";
         vim = "nvim";
       };
       sessionVariables = {

home/xmonad.hs

@@ -1,6 +1,7 @@
 -- See https://xmonad.org/TUTORIAL.html
 import XMonad
 
+import XMonad.Actions.CycleWS (toggleWS)
 import XMonad.Actions.RotSlaves
 
 import XMonad.Hooks.DynamicLog
@@ -8,6 +9,8 @@ import XMonad.Hooks.EwmhDesktops
 import XMonad.Hooks.StatusBar
 import XMonad.Hooks.StatusBar.PP
 
+import qualified XMonad.StackSet as W
+
 import XMonad.Util.EZConfig (additionalKeysP)
 import XMonad.Util.Loggers
 
@@ -26,16 +29,28 @@ myConfig = def
     { terminal = "kitty tmux new"
     , modMask = mod1Mask
     , borderWidth = 1
---    , workspaces = myWorkspaces
+    , workspaces = myWorkspaces
     , layoutHook = myLayout
     }
    `additionalKeysP`
-   [ ("M-'", spawn "qutebrowser")
+   ([
+   -- launch programs
+     ("M-'", spawn "qutebrowser")
    , ("M-s", spawn "scrot -s")
+   -- cycle windows within a workspace
    , ("M-a", rotAllUp)
    , ("M-f", rotAllDown)
+   -- switch to previous workspace
+   , ("M-;", toggleWS)
+   -- Warn (disable shutting down xmonad since we can do that in other ways from a terminal...
    , ("M-S-q", spawn "kitty --hold echo M-S-q quits XMonad\\! You probably meant to use M-S-c to close the current window.")
    ]
+   ++
+   -- access additional workspaces
+   [("M-" ++ w, windows $ W.greedyView w) | w <- addlWorkspaces]
+   ++
+   [("M-S-" ++ w, windows $ W.shift w) | w <- addlWorkspaces]
+   )
 
 myLayout = tiled ||| Mirror tiled ||| Full ||| threeCol
   where
@@ -74,4 +89,8 @@ myXmobarPP = def
     red      = xmobarColor "#ff5555" ""
     lowWhite = xmobarColor "#bbbbbb" ""
 
---myWorkspaces = [ "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "-", "=" ]
+addlWorkspaces :: [String]
+addlWorkspaces = ["0", "-", "=", "i"]
+
+myWorkspaces :: [String]
+myWorkspaces = ["1", "2", "3", "4", "5", "6", "7", "8", "9"] ++ addlWorkspaces