anchor.diff:        import System.IO
         import qualified Data.Map as M
         import qualified XMonad.StackSet as W
  -      myWorkspaces = [ "1", "2", "3", "4", "5", "6", "7", "8", "9", "0" ]
  +      --  = 61728
  +      --  = 61729
  +      --  = 62057
  +      --  = 61848
  +      myWorkspaces = [ "\61728", "\61729", "3", "4", "5", "6", "7", "8", "\62057", "\61848" ]
         myManageHook = composeAll [
             isFullscreen --> (doF W.focusDown <+> doFullFloat)
             , isDialog --> doFloat
  -          , className =? "Chromium-browser" --> viewShift "8"
  -          , className =? "Firefox" --> viewShift "9"
  -          , className =? "Emacs" --> viewShift "2"
  -          , className =? "Atom" --> viewShift "2"
  -          , className =? "Code" --> viewShift "2"
  -          , className =? "HipChat" --> viewShift "0"
  -          , className =? "Slack" --> viewShift "0"
  +          , className =? "Chromium-browser" --> viewShift "\62057"
  +          , className =? "Firefox" --> viewShift "\62057"
  +          , className =? "Emacs" --> viewShift "\61729"
  +          , className =? "Slack" --> viewShift "\61848"
             , appName =? "desktop_window" --> doIgnore
             ]
             where viewShift = doF . liftM2 (.) W.greedyView W.shift
  
positive.code:         ++ [((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f))
             | (key, sc) <- zip [xK_q, xK_w] [0, 1]
             , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
        main = do
          xmproc <- spawnPipe "xmobar /home/${user}/.xmobar/config"
          xmonad $ def {
  
negative.code:           handleEventHook = docksEventHook <+> handleEventHook def,
            keys = myKeys,
            layoutHook = avoidStruts $ layoutHook def,
            logHook = dynamicLogWithPP myPP
                            { ppOrder = \(ws:l:t:_) -> ws : [t]
                            , ppOutput = hPutStrLn xmproc
                            , ppTitle = xmobarColor "green" "" . shorten 50 },
  