change intellij settings, add ewmh settings

xmonad.hs

@@ -8,13 +8,15 @@ import XMonad.Hooks.StatusBar
 import qualified XMonad.Layout.LayoutModifier
 import XMonad.Layout.Spacing
 import XMonad.Layout.WindowNavigation
-import XMonad.StackSet (Workspace (tag), currentTag, integrate', stack, greedyView, shift)
+import XMonad.StackSet (Workspace (tag), currentTag, integrate', stack, greedyView, shift, focusWindow)
 import XMonad.Util.EZConfig
 import XMonad.Util.Loggers
 import XMonad.Util.SpawnOnce
 import XMonad.Util.Ungrab
 import XMonad.Util.WorkspaceCompare (getSortByIndex)
 import XMonad.Hooks.InsertPosition (insertPosition, Position(Master, End), Focus (Newer))
+import XMonad.Hooks.ManageHelpers
+import Data.List (isInfixOf)
 
 main :: IO ()
 main = do
@@ -30,11 +32,13 @@ main = do
         focusedBorderColor = colors !! 7,
         workspaces = myWorkspaces,
         manageHook = myManageHook,
-        layoutHook = myLayout
+        layoutHook = myLayout,
+        logHook = activateLogHook (reader focusWindow >>= doF)<+> logHook def
       }
       `additionalKeysP` [ ("M-S-z", spawn "xscreensaver-command -lock"),
                           ("M-S-s", unGrab *> spawn "cast_screenshot"),
                           ("M-f", runOrRaise "brave" (className =? "Brave-browser")),
+                          ("M-i", raise (className =? "jetbrains-idea")),
 
                           ("M-<Space>", spawn "rofi -show drun") ,
                           ("M-p", spawn "dmen") ,
@@ -46,7 +50,9 @@ main = do
                           ("M-l", sendMessage $ Go R),
                           ("M-h", sendMessage $ Go L),
                           -- layout switching
-                          ("M-<Tab>", sendMessage NextLayout)
+                          ("M-<Tab>", sendMessage NextLayout),
+                          -- dmenu stuff
+                          ("M1-<F4>", spawn "dshutdown")
                         ]
 
 myXmobarPP :: [String] -> PP
@@ -138,6 +144,12 @@ myManageHook =
       className =? "Gimp" --> doShift (myWorkspaces !! 8),
       className =? "VirtualBox Manager" --> doShift (myWorkspaces !! 4),
       (className =? "firefox" <&&> resource =? "Dialog") --> doFloat, -- Float Firefox Dialog
-      appName =? "sun-awt-X11-XWindowPeer" <&&> className =? "jetbrains-idea" --> doIgnore
+      className =? "jetbrains-idea" --> viewShift (myWorkspaces !! 4) ,
+      (className =? "jetbrains-studio") <&&> (title ~=? "win") --> doIgnore
     ] <+> insertPosition End Newer
   where viewShift = doF . liftM2 (.) greedyView shift
+
+
+-- IntelliJ fix
+(~=?) :: Eq a => Query [a] -> [a] -> Query Bool
+q ~=? x = fmap (isInfixOf x) q