New changes

lib/KeyBindings.hs

@@ -31,12 +31,11 @@ modify conf = conf
 
   `additionalKeysP` -- Add some extra key bindings:
     [ ("M-S-q", confirmPrompt promptConfig "exit" (io exitSuccess))
-    , ("<Tab>-b", sendMessage (Toggle "Full"))
     , ("<XF86MonBrightnessDown>", spawn "/run/current-system/sw/bin/xbacklight -10")
     , ("<XF86MonBrightnessUp>", spawn "/run/current-system/sw/bin/xbacklight +10")
-    , ("<XF86AudioPlay>", spawn "/run/current-system/sw/bin/playerctl play-pause")
+    , ("<XF86AudioPlay>", spawn "/run/current-system/sw/bin/mpc toggle")
-    , ("<XF86AudioNext>", spawn "/run/current-system/sw/bin/playerctl next")
+    , ("<XF86AudioNext>", spawn "/run/current-system/sw/bin/mpc next")
-    , ("<XF86AudioPrev>", spawn "/run/current-system/sw/bin/playerctl previous")
+    , ("<XF86AudioPrev>", spawn "/run/current-system/sw/bin/mpc prev")
     , ("M-<Delete>", kill)
     , ("M-<Down>", windows W.focusDown)
     , ("M-<Esc>", sendMessage (Toggle "Full"))
@@ -47,10 +46,10 @@ modify conf = conf
     , ("M-<Right>", nextWS)
     , ("M-<Tab>", toggleWS' ["NSP"])
     , ("M-<Up>", windows W.focusUp)
-    , ("M-S-<Delete>", spawn "/run/current-system/sw/bin/i3lock -f -t -c 002b36")
+    , ("M-S-<Delete>", spawn "/run/current-system/sw/bin/mpc pause; /run/current-system/sw/bin/xset s activate")
     , ("M-S-<Left>", shiftToPrev >> prevWS)
     , ("M-S-<Right>", shiftToNext >> nextWS)
-    , ("M-s s", spawn "sleep 0.2 ; /run/current-system/sw/bin/scrot -s /tmp/screenSel.png")
+    , ("M-s s", spawn "/run/current-system/sw/bin/flameshot gui")
     , ("M-s t", spawn "/run/current-system/sw/bin/scrot /tmp/screen.png")
     -- Workspace and tasks
     , ("M-b", switchProjectPrompt promptConfig)

lib/Projects.hs

@@ -4,15 +4,72 @@ module Projects (
 
 import XMonad
 import XMonad.Actions.DynamicProjects
+import XMonad.Util.Run
 
 projects :: [Project]
-projects =  [ Project { projectName = "steam"
+projects =  [ Project { projectName = "admin"
-                      , projectDirectory = "~/"
+                      , projectDirectory = "~/admin"
-                      , projectStartHook = Nothing
+                      , projectStartHook = Just $ do safeSpawn "vim" ["-g"]
+                                                     safeSpawnProg "st"
                       }
-            , Project { projectName = "tootgun"
+            , Project { projectName = "mordor"
-                      , projectDirectory = "~/candy/tootgun"
+                      , projectDirectory = "~/mordor"
-                      , projectStartHook = Nothing
+                      , projectStartHook = Just $ do safeSpawn "vim" ["-g"]
+                                                     safeSpawnProg "st"
+                      }
+            , Project { projectName = "mordor-docs"
+                      , projectDirectory = "~/mordor-2"
+                      , projectStartHook = Just $ do safeSpawn "vim" ["-g"]
+                                                     safeSpawnProg "st"
+                      }
+            , Project { projectName = "mordor-other"
+                      , projectDirectory = "~/mordor-3"
+                      , projectStartHook = Just $ do safeSpawn "vim" ["-g"]
+                                                     safeSpawnProg "st"
+                      }
+            , Project { projectName = "email"
+                      , projectDirectory = "~/mail"
+                      , projectStartHook = Just $ do safeSpawnProg "st"
+                      }
+            , Project { projectName = "frs"
+                      , projectDirectory = "/tmp"
+                      , projectStartHook = Just $ do safeSpawnProg "frs"
+                      }
+            , Project { projectName = "fre"
+                      , projectDirectory = "/tmp"
+                      , projectStartHook = Just $ do safeSpawnProg "fre"
+                      }
+            , Project { projectName = "network-graph"
+                      , projectDirectory = "~/relex/catch-a-network-bug/csvplotter"
+                      , projectStartHook = Just $ do safeSpawn "zathura" ["weekXGraph.pdf"]
+                                                     safeSpawnProg "st"
+                      }
+            , Project { projectName = "orc"
+                      , projectDirectory = "/tmp"
+                      , projectStartHook = Just $ do safeSpawnProg "st"
+                      }
+            , Project { projectName = "mordor-ops"
+                      , projectDirectory = "~/relex/mordor-ops"
+                      , projectStartHook = Just $ do safeSpawn "vim" ["-g"]
+                                                     safeSpawnProg "st"
+                      }
+            , Project { projectName = "mordor-deploy"
+                      , projectDirectory = "~/relex/mordor-deploy"
+                      , projectStartHook = Just $ do safeSpawn "vim" ["-g"]
+                                                     safeSpawnProg "st"
+                      }
+            , Project { projectName = "scaleout-ops"
+                      , projectDirectory = "~/relex/scaleout-ops"
+                      , projectStartHook = Just $ do safeSpawn "vim" ["-g"]
+                                                     safeSpawnProg "st"
+                      }
+            , Project { projectName = "sound"
+                      , projectDirectory = "/tmp"
+                      , projectStartHook = Just $ do safeSpawnProg "pavucontrol"
+                      }
+            , Project { projectName = "daily"
+                      , projectDirectory = "/tmp"
+                      , projectStartHook = Just $ do safeSpawn "nix" ["run", "nixpkgs.chromium", "-c", "chromium"]
                       }
            ]
 

lib/Scratchpad.hs

@@ -16,7 +16,7 @@ modify conf = conf
   }
 
 pads =
-  [ NS "htop" "/run/current-system/sw/bin/alacritty -t htop -e tmux" (title =? "htop")
+  [ NS "htop" "/run/current-system/sw/bin/st -t htop -e tmux" (title =? "htop")
       (customFloating $ W.RationalRect (1/3) (1/3) (1/3) (1/3))
   -- , NS "stardict" "stardict" (className =? "Stardict")
   --     (customFloating $ W.RationalRect (1/6) (1/6) (2/3) (2/3))

xmonad.hs

@@ -58,7 +58,7 @@ withConfig =
     $ desktopConfig     --   on a default desktop config
     { manageHook         = myManageHook <+> manageHook desktopConfig
     , layoutHook         = desktopLayoutModifiers layouts
-    , terminal           = "/run/current-system/sw/bin/alacritty"
+    , terminal           = "/run/current-system/sw/bin/st"
     , normalBorderColor  = S.base03
     , focusedBorderColor = S.violet
     , borderWidth        = 5