Added abacus scratch key

xmonad.org

@@ -95,6 +95,7 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
     -- Deincrement the number of windows in the master area
     , ((modm              , xK_period), sendMessage (IncMasterN (-1)))
     , ((modm,xK_z), namedScratchpadAction scratchpads "term")
+    , ((modm,xK_x), namedScratchpadAction scratchpads "abacus")
     -- Volume control
     , ((0, 0x1008FF11), spawn "amixer -q sset Master 2%-")
     , ((0, 0x1008FF13), spawn "amixer -q sset Master 2%+")
@@ -197,6 +198,8 @@ scratchpads :: [NamedScratchpad]
 scratchpads = [
     NS "term" "kitty --class kittyscratch" (className =? "kittyscratch")
         (customFloating $ W.RationalRect (2/5) (1/6) (2/5) (4/6))
+    , NS "abacus" "abacus" (className =? "Abacus")
+        (customFloating $ W.RationalRect (2/5) (1/6) (2/5) (4/6))
   ]
 #+end_src
 * Event Handling