about summary refs log tree commit diff
path: root/src/XMonad/Custom/Scratchpads.hs
diff options
context:
space:
mode:
authorAzat Bahawi <azahi@teknik.io>2021-11-23 03:19:06 +0300
committerAzat Bahawi <azahi@teknik.io>2021-11-23 03:19:06 +0300
commit729e030dd25da2e36fa5a1312b8ecb3415dc1675 (patch)
tree53166b6c3bd96f860d0a7242353ef9cc7bb1790f /src/XMonad/Custom/Scratchpads.hs
parentRemove tests (diff)
Huge update
Diffstat (limited to 'src/XMonad/Custom/Scratchpads.hs')
-rw-r--r--src/XMonad/Custom/Scratchpads.hs49
1 files changed, 0 insertions, 49 deletions
diff --git a/src/XMonad/Custom/Scratchpads.hs b/src/XMonad/Custom/Scratchpads.hs
deleted file mode 100644
index 157a1fb..0000000
--- a/src/XMonad/Custom/Scratchpads.hs
+++ /dev/null
@@ -1,49 +0,0 @@
--- |
--- Module      : XMonad.Custom.Scratchpads
--- Copyright   : (c) 2018-2020 Azat Bahawi <azahi@teknik.io>
--- License     : BSD3-style (see LICENSE)
--- Maintainer  : Azat Bahawi <azahi@teknik.io>
--- Stability   : unstable
--- Portability : unportable
---
-
-module XMonad.Custom.Scratchpads
-  ( scratchpads
-  ) where
-
-import           XMonad.Core
-import           XMonad.Custom.Misc            as C
-import           XMonad.ManageHook
-import qualified XMonad.StackSet               as S
-import           XMonad.Util.NamedScratchpad
-
-spawnTerminalWith :: String -> String -> String
-spawnTerminalWith t c = term applications ++ " -title " ++ t ++ " -e " ++ c
-
-floatingNSP :: ManageHook
-floatingNSP = customFloating $ S.RationalRect x y w h
- where
-  x = (1 - w) / 2
-  y = (1 - h) / 2
-  w = 1 / 2
-  h = 1 / 2.5
-
-scratchpads :: [NamedScratchpad]
-scratchpads =
-  [ NS "console"
-       (spawnTerminalWith "NSPConsole" "~/.xmonad/scripts/nsp-console.sh")
-       (title =? "NSPConsole")
-       floatingNSP
-  , NS "volume"
-       (spawnTerminalWith "NSPVolume" (C.mixer C.applications))
-       (title =? "NSPVolume")
-       floatingNSP
-  , NS "music"
-       (spawnTerminalWith "NSPMusic" (C.player C.applications))
-       (title =? "NSPMusic")
-       floatingNSP
-  , NS "top"
-       (spawnTerminalWith "NSPTop" (C.top C.applications))
-       (title =? "NSPTop")
-       floatingNSP
-  ]

Consider giving Nix/NixOS a try! <3