Add focused window only screenshot

xmonad.hs

@@ -55,7 +55,7 @@ baseXPConfig = defaultXPConfig {
 workspaceManageHook :: ManageHook
 workspaceManageHook = composeAll [
      className =? "Firefox" --> doShift "1:web"
-    ,className =? "Thunderbird" --> doShift "2:com"
+    ,className =? "thunderbird" --> doShift "2:com"
     ,className =? "Gajim" --> doShift "2:com"
     ,className =? "slack" --> doShift "2:com"
     ,className =? "KeePass2" --> doShift "9:div"
@@ -97,7 +97,8 @@ main = do
        --  , ((modMask baseConfig, xK_r), spawn "~/.xmonad/action-manager/command.sh redshift ~/.xmonad/actioncontrol")
        -- , ((modMask baseConfig, xK_e), spawn "caja")
         , ((0, xK_Print), spawn "scrot")
-        , ((mod1Mask, xK_Print), spawn "scrot -s")
+        , ((modMask baseConfig, xK_Print), spawn "scrot -s")
+        , ((modMask baseConfig .|. shiftMask, xK_Print), spawn "scrot -u")
         -- Normal Alt-Tab behavior
         , ((mod1Mask,               xK_Tab   ), windows W.focusDown) -- %! Move focus to the next window
         , ((mod1Mask .|. shiftMask, xK_Tab   ), windows W.focusUp  ) -- %! Move focus to the previous window