From 5f8b835a1bb7793431a525e213fc7c482f59a791 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Sun, 17 Aug 2014 15:49:29 +0100
Subject: XMonad: Auto-move common windows to workspaces

---
 tag-xmonad/xmonad/xmonad.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tag-xmonad/xmonad/xmonad.hs b/tag-xmonad/xmonad/xmonad.hs
index 56c2b00e..4b67cb48 100644
--- a/tag-xmonad/xmonad/xmonad.hs
+++ b/tag-xmonad/xmonad/xmonad.hs
@@ -13,6 +13,10 @@ main = do
   xmproc <-spawnPipe "/usr/bin/xmobar /home/alan/.xmobarrc"
   xmonad $ defaultConfig {
     manageHook = composeOne [
+       className =? "Firefox" -?> doShift "2",
+       className =? "Pidgin" -?> doShift "3",
+       className =? "nuvolaplayer" -?> doShift "8",
+       className =? "Transmission-gtk" -?> doShift "9",
        isFullscreen -?> doFullFloat,
        fmap ("mpv" `isPrefixOf`) title -?> doFullFloat
        ] <+> manageDocks <+> manageHook defaultConfig,
-- 
cgit 1.4.1