From 29a3874b343f63598705db0b5d9aeb2a9a6b672a Mon Sep 17 00:00:00 2001
From: Martin Potier <martin.potier@marvid.fr>
Date: Mon, 1 Nov 2021 12:18:25 +0200
Subject: [PATCH] changes

---
 lib/KeyBindings.hs |  5 ++++-
 lib/Projects.hs    | 10 ++++++++--
 lib/Scratchpad.hs  |  2 +-
 xmonad.hs          |  2 --
 4 files changed, 13 insertions(+), 6 deletions(-)

diff --git a/lib/KeyBindings.hs b/lib/KeyBindings.hs
index 99bc8ff..cbfd667 100644
--- a/lib/KeyBindings.hs
+++ b/lib/KeyBindings.hs
@@ -72,6 +72,9 @@ modify conf = conf
     , ("<F9>", spawn "find-cursor")
     -- , ("M-$ $", spawn "xdotool click 3")
     -- , ("M-$ M-$", spawn "xdotool click 3") -- helpfull to combine M + right click
+    -- resizing the master/slave ratio
+    , ("M-h", sendMessage Shrink) -- Shrink the master area
+    , ("M-l", sendMessage Expand) -- Expand the master area
     ]
 
 
@@ -98,7 +101,7 @@ promptConfig = def
   , defaultText       = ""
   , fgColor           = S.base02
   , fgHLight          = S.base03
-  , font              = "xft:Iosevka Samae:style=Regular:size=8"
+  , font              = "xft:Iosevka Samae:style=Regular:size=10:charwidth=6.5"
   , height            = 24
   , promptBorderWidth = 5
   }
diff --git a/lib/Projects.hs b/lib/Projects.hs
index 2804ff8..16fec92 100644
--- a/lib/Projects.hs
+++ b/lib/Projects.hs
@@ -49,6 +49,7 @@ projects =  [ adminProject "wrk-config"
             , candyProject "dhall-packages"
             , candyProject "hfdb"
             , justStart "obs"
+            , justStart "m8c"
             , spinChat "element"
             , spinChat "signal"
             , spinChat "wire"
@@ -64,8 +65,10 @@ projects =  [ adminProject "wrk-config"
             , workProject "connect2-provisioning"
             , workProject "connect2-terraform"
             , workProject "cooper"
+            , workProject "customer-configs"
             , workProject "customer-modules"
             , workProject "docker-images"
+            , workProject "frankenbase"
             , workProject "gitlab-runners"
             , workProject "gitlab-self-manage"
             , workProject "infra-inventory"
@@ -77,6 +80,7 @@ projects =  [ adminProject "wrk-config"
             , workProject "mordor-ca"
             , workProject "mordor-dashboard"
             , workProject "mordor-deploy"
+            , workProject "mordor-interview"
             , workProject "mordor-kvm"
             , workProject "mordor-nixpkgs"
             , workProject "mordor-ops"
@@ -88,6 +92,7 @@ projects =  [ adminProject "wrk-config"
             , workProject "nix-ansible-role"
             , workProject "nixos-modules"
             , workProject "nixpkgs"
+            , workProject "planning-cloud"
             , workProject "prototype-task-tracking"
             , workProject "rfcs"
             , workProject "sm-terraform"
@@ -119,8 +124,9 @@ projects =  [ adminProject "wrk-config"
                       }
             , Project { projectName = "sound"
                       , projectDirectory = "/tmp"
-                      , projectStartHook = Just $ do safeSpawnProg "pavucontrol"
-                                                     safeSpawnProg "patchage"
+                      , projectStartHook = Just $ do
+                          safeSpawn "pw-jack" ["patchage"]
+                          safeSpawnProg "easyeffects"
                       }
             , Project { projectName = "meeting"
                       , projectDirectory = "/tmp"
diff --git a/lib/Scratchpad.hs b/lib/Scratchpad.hs
index 4b0320d..68c06e5 100644
--- a/lib/Scratchpad.hs
+++ b/lib/Scratchpad.hs
@@ -12,7 +12,7 @@ import qualified XMonad.StackSet as W
 
 modify :: XConfig l -> XConfig l
 modify conf = conf
-  { manageHook = namedScratchpadManageHook pads
+  { manageHook = manageHook conf <> namedScratchpadManageHook pads
   }
 
 pads =
diff --git a/xmonad.hs b/xmonad.hs
index b62f4bb..38c50ef 100755
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -47,9 +47,7 @@ layouts = toggleLayouts fullscreen    tiled
 myManageHook = composeOne
   [ className =? "Pavucontrol"        -?> doShift "music"
   , className =? "Pinentry"           -?> doFloat
-  , className =? "Steam"              -?> doShift "steam"
   , className =? "VirtualBox"         -?> doFloat
-  , className =? "csgo_linux64"       -?> doShift "csgo"
   , className =? "mpv"                -?> doFullFloat <+> (doShift "flims")
   , className =? "qemu-system-x86_64" -?> doFloat
   , className =? "qutebrowser"        -?> doShift "web"