diff options
author | Azat Bahawi <azahi@teknik.io> | 2021-11-23 03:19:06 +0300 |
---|---|---|
committer | Azat Bahawi <azahi@teknik.io> | 2021-11-23 03:19:06 +0300 |
commit | 729e030dd25da2e36fa5a1312b8ecb3415dc1675 (patch) | |
tree | 53166b6c3bd96f860d0a7242353ef9cc7bb1790f /src/XMonad/Custom/Scratchpads.hs | |
parent | Remove tests (diff) |
Huge update
Diffstat (limited to 'src/XMonad/Custom/Scratchpads.hs')
-rw-r--r-- | src/XMonad/Custom/Scratchpads.hs | 49 |
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 - ] |