xmonad

MaskRay · Mar 3, 2024 · a14f669 · a14f669
1 parent 2bd413d
commit a14f669
Showing 1 changed file with 3 additions and 9 deletions.
diff --git a/home/.config/xmonad/xmonad.hs b/home/.config/xmonad/xmonad.hs
@@ -40,7 +40,6 @@ import XMonad.Actions.FloatKeys
 import XMonad.Actions.FloatSnap
 import XMonad.Actions.GridSelect
 import XMonad.Actions.GroupNavigation
-import XMonad.Actions.MessageFeedback (tryMessage_)
 import XMonad.Actions.Navigation2D
 import XMonad.Actions.Promote (promote)
 import qualified XMonad.Actions.Search as S
@@ -73,7 +72,6 @@ import XMonad.Layout.LayoutCombinators
 import XMonad.Layout.Minimize
 import XMonad.Layout.MultiToggle
 import XMonad.Layout.MultiToggle.Instances
-import XMonad.Layout.Named
 import XMonad.Layout.NoBorders
 import XMonad.Layout.IM
 import XMonad.Layout.PerScreen
@@ -205,7 +203,6 @@ myShowWNameTheme = def
     }
 
 
--- gimpLayout = named "Gimp" $ withIM (0.130) (Role "gimp-toolbox") $ (simpleDrawer 0.2 0.2 (Role "gimp-dock") `onRight` Full)
 myLayout = showWorkspaceName
              $ onWorkspace "float" floatWorkSpace
              $ fullscreenFloat -- fixes floating windows going full screen, while retaining "bounded" fullscreen
@@ -403,7 +400,7 @@ myKeys =
     zipKey1 "M-S-" dirKeys dirs windowSwap True ++
     zipKey0 "M-C-" dirKeys dirs (sendMessage . pullGroup) ++
     [ ("M-" ++ m ++ [k], f i)
-        | (i, k) <- zip myWorkspaces "uiop"
+        | (i, k) <- zip myWorkspaces "uiop["
         , (f, m) <- [ (windows . W.greedyView, "")
                     , (windows . liftM2 (.) W.view W.shift, "S-")
                     ]
@@ -445,9 +442,6 @@ myKeys =
 
     ----- Resize
 
-    , ("M-[", sendMessage $ ExpandTowards L)
-    , ("M-]", sendMessage $ ExpandTowards R)
-
     , ("M-S-<L>", withFocused (keysResizeWindow (-30,0) (0,0))) --shrink float at right
     , ("M-S-<R>", withFocused (keysResizeWindow (30,0) (0,0))) --expand float at right
     , ("M-S-<D>", withFocused (keysResizeWindow (0,30) (0,0))) --expand float at bottom
@@ -706,7 +700,7 @@ wsEmacs = "emacs"
 
 wsFloat = "float"
 wsGimp = "gimp"
-wsWechat = "wechat"
+wsTmp = "tmp"
 wsInkscape = "inkscape"
 wsMail = "mail"
 
@@ -717,7 +711,7 @@ myProjects =
   , Project wsIM "~" . Just $ spawn (alacritty "irc")
   , Project wsEmacs "~" . Just $ spawn "LC_CTYPE=zh_CN.UTF-8 emacs"
 
-  , Project wsWechat "/tmp" . Just $ spawn "alacritty -t zsh -e zsh -ic \"tmux new -As weechat\""
+  , Project wsTmp "/tmp" . Just $ spawn "true"
   , Project wsMail "/tmp" . Just $ spawn (alacritty "neomutt")
   , Project wsGimp "/tmp" . Just $ spawn "gimp"
   , Project wsInkscape "/tmp" . Just $ spawn "inkscape"