summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--accounts/gkleen@sif/xmonad/xmonad.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/accounts/gkleen@sif/xmonad/xmonad.hs b/accounts/gkleen@sif/xmonad/xmonad.hs
index 9e8af247..96f8b23e 100644
--- a/accounts/gkleen@sif/xmonad/xmonad.hs
+++ b/accounts/gkleen@sif/xmonad/xmonad.hs
@@ -179,7 +179,8 @@ hostFromName h@("vali") = defaultHost { hName = h
179hostFromName h 179hostFromName h
180 | h `elem` ["hel", "sif"] = defaultHost { hName = h 180 | h `elem` ["hel", "sif"] = defaultHost { hName = h
181 , hManageHook = namedScratchpadManageHook scratchpads <+> composeOne (catMaybes 181 , hManageHook = namedScratchpadManageHook scratchpads <+> composeOne (catMaybes
182 [ assign "mpv" $ className =? "mpv" 182 [ assign "work" $ className =? "Alacritty"
183 , assign "mpv" $ className =? "mpv"
183 , assign "mpv" $ stringProperty "WM_WINDOW_ROLE" =? "presentation" 184 , assign "mpv" $ stringProperty "WM_WINDOW_ROLE" =? "presentation"
184 , assign "read" $ stringProperty "WM_WINDOW_ROLE" =? "presenter" 185 , assign "read" $ stringProperty "WM_WINDOW_ROLE" =? "presenter"
185 , assign "mpv" $ className =? "factorio" 186 , assign "mpv" $ className =? "factorio"
@@ -199,7 +200,6 @@ hostFromName h
199 , Just $ (className =? "Alacritty" <&&> resource =? "htop") -?> centerFloat 200 , Just $ (className =? "Alacritty" <&&> resource =? "htop") -?> centerFloat
200 , Just $ (className =? "Scp-dbus-service.py") -?> centerFloat 201 , Just $ (className =? "Scp-dbus-service.py") -?> centerFloat
201 , Just $ (className =? "Alacritty" <&&> resource =? "log") -?> centerFloat 202 , Just $ (className =? "Alacritty" <&&> resource =? "log") -?> centerFloat
202 , assign "work" $ className =? "Alacritty"
203 , Just $ (appName =? "Edit with Emacs FRAME") -?> centerFloat 203 , Just $ (appName =? "Edit with Emacs FRAME") -?> centerFloat
204 , assign' ["work", "uni"] $ (className =? "Emacs" <&&> appName /=? "Edit with Emacs FRAME") 204 , assign' ["work", "uni"] $ (className =? "Emacs" <&&> appName /=? "Edit with Emacs FRAME")
205 , assign' ["work", "uni"] $ className =? "jetbrains-idea-ce" 205 , assign' ["work", "uni"] $ className =? "jetbrains-idea-ce"