diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index 81a874b..a98e568 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -1,5 +1,6 @@ import XMonad +import XMonad.Hooks.DynamicProperty import Control.Monad.Trans.Class import Control.Monad.Reader import XMonad.Hooks.ManageDocks (docks) @@ -14,6 +15,7 @@ import qualified Data.Map as Map import Text.Printf import Rahm.Desktop.Swallow +import Rahm.Desktop.Marking import Rahm.Desktop.Common import Rahm.Desktop.XMobarLog import Rahm.Desktop.Keys @@ -51,6 +53,7 @@ main = do , startupHook = spawn fp , manageHook = composeAll [ isFullscreen --> doFullFloat + , doLogWindow , className =? "Tilda" --> doFloat , className =? "yakuake" --> doFloat , className =? "MPlayer" --> doFloat @@ -72,7 +75,10 @@ main = do composeAll [ fullscreenEventHook, remapHook, - swallowHook] + swallowHook, + dynamicTitle (composeAll [ + title =? "Spotify" --> doMarkWindow "s" + ])] , focusFollowsMouse = False , clickJustFocuses = False , logHook = xMobarLogHook xmobar @@ -83,6 +89,19 @@ changeHook :: Location -> Location -> X () changeHook l1 l2 = logs Info "Change %s -> %s" (show l1) (show l2) +doLogWindow :: ManageHook +doLogWindow = do + t <- title + c <- className + a <- appName + liftX $ logs Debug "New Window {title: \"%s\", class: \"%s\", appName: \"%s\"}" t c a + return (Endo id) + +doMarkWindow :: Mark -> ManageHook +doMarkWindow m = ask >>= (\w -> liftX (do + ws <- getCurrentWorkspace + markAllLocations m [Location ws (Just w)]) >> return (Endo id)) + doCenterFloat :: ManageHook doCenterFloat = ask >>= \w -> doF . W.float w . centerRect . snd =<< liftX (floatLocation w) |