Get rid of ideHooks
This commit is contained in:
		@@ -123,14 +123,10 @@ myManageHook = composeAll $ concat [
 | 
				
			|||||||
    , documentHooks
 | 
					    , documentHooks
 | 
				
			||||||
    , floatHooks
 | 
					    , floatHooks
 | 
				
			||||||
    , debuggerHooks
 | 
					    , debuggerHooks
 | 
				
			||||||
    , ideHooks
 | 
					 | 
				
			||||||
    , flowHook
 | 
					    , flowHook
 | 
				
			||||||
  ]
 | 
					  ]
 | 
				
			||||||
  where
 | 
					  where
 | 
				
			||||||
    classHook y = map (\x -> className =? x --> y)
 | 
					    classHook y = map (\x -> className =? x --> y)
 | 
				
			||||||
    ideHooks = classHook (doShift "eclipse") [
 | 
					 | 
				
			||||||
            "Anypoint Studio"
 | 
					 | 
				
			||||||
        ]
 | 
					 | 
				
			||||||
    webHooks = classHook (doShift "web") [
 | 
					    webHooks = classHook (doShift "web") [
 | 
				
			||||||
          "Firefox"
 | 
					          "Firefox"
 | 
				
			||||||
        , "qutebrowser"
 | 
					        , "qutebrowser"
 | 
				
			||||||
@@ -150,7 +146,7 @@ myManageHook = composeAll $ concat [
 | 
				
			|||||||
          "libreoffice"
 | 
					          "libreoffice"
 | 
				
			||||||
        , "libreoffice-calc"
 | 
					        , "libreoffice-calc"
 | 
				
			||||||
        , "Assistant"
 | 
					        , "Assistant"
 | 
				
			||||||
        , "Bouml"
 | 
					        , "Bouml" -- Oh wow, didn't even remember this existed
 | 
				
			||||||
      ]
 | 
					      ]
 | 
				
			||||||
    floatHooks = classHook doFloat [
 | 
					    floatHooks = classHook doFloat [
 | 
				
			||||||
          "SMplayer"
 | 
					          "SMplayer"
 | 
				
			||||||
@@ -158,11 +154,11 @@ myManageHook = composeAll $ concat [
 | 
				
			|||||||
        , "MPlayer"
 | 
					        , "MPlayer"
 | 
				
			||||||
        , "Kaffeine"
 | 
					        , "Kaffeine"
 | 
				
			||||||
        , "Xmessage"
 | 
					        , "Xmessage"
 | 
				
			||||||
        , "Wfica_Seamless"
 | 
					        , "Wfica_Seamless" -- I think this is citrix
 | 
				
			||||||
        , "mpv"
 | 
					        , "mpv"
 | 
				
			||||||
      ]
 | 
					      ]
 | 
				
			||||||
    debuggerHooks = classHook (doShift "debugger") [
 | 
					    debuggerHooks = classHook (doShift "debugger") [
 | 
				
			||||||
          "JSwat Debugger",
 | 
					          "JSwat Debugger", -- Haven't used this in years. A good thing?
 | 
				
			||||||
          "DBeaver"
 | 
					          "DBeaver"
 | 
				
			||||||
      ]
 | 
					      ]
 | 
				
			||||||
    dynamicsHook = [title =~? "Dynamics" --> doShift "dynamics"]
 | 
					    dynamicsHook = [title =~? "Dynamics" --> doShift "dynamics"]
 | 
				
			||||||
 
 | 
				
			|||||||
		Reference in New Issue
	
	Block a user