From e8689b8ca91d2d27378b85d11db64c6acfae6916 Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Thu, 30 May 2019 15:12:32 +0200
Subject: Add calculator scratchpad

---
 gui/conf/xmonad.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'gui/conf/xmonad.hs')

diff --git a/gui/conf/xmonad.hs b/gui/conf/xmonad.hs
index c9c71e5..4a42316 100644
--- a/gui/conf/xmonad.hs
+++ b/gui/conf/xmonad.hs
@@ -104,6 +104,8 @@ scratchpads host =
        (customFloating $ hideScreenBorder host dropDown)
   , NS "thesaurus"     "artha"                                                 (className =? "Artha")
        (customFloating $ hideScreenBorder host sideBarLeft)
+  , NS "calculator"    "speedcrunch"                                           (className =? "SpeedCrunch")
+       (customFloating $ hideScreenBorder host sideBarLeft)
   , NS "messaging"     "telegram-desktop"                                      ((className =? "TelegramDesktop") <&&> (title /=? "Media viewer"))
        (customFloating $ hideScreenBorder host sideBarRight) ]
 
@@ -167,6 +169,7 @@ commonKeybindings host =
   , ("M-b"           , namedScratchpadAction (scratchpads host) "browser")
   , ("M-d"           , namedScratchpadAction (scratchpads host) "documentation")
   , ("M-t"           , namedScratchpadAction (scratchpads host) "thesaurus")
+  , ("M-r"           , namedScratchpadAction (scratchpads host) "calculator")
   , ("M-m"           , namedScratchpadAction (scratchpads host) "messaging") ] ++
 -- workspace selection
   [ (p ++ [k]        , windows $ f i) | (i, k) <- zip Main.workspaces ['1' .. '9']
-- 
cgit v1.2.3