diff options
| author | azahi <azahi@teknik.io> | 2018-10-08 21:18:13 +0300 |
|---|---|---|
| committer | azahi <azahi@teknik.io> | 2018-10-08 21:18:13 +0300 |
| commit | d7176233da673ea5d92eadcbf52323b5d8419cfd (patch) | |
| tree | f603bee246db9a0ca0d5c89933b34064f76495cf /src/XMonad/Custom/Scratchpads.hs | |
| parent | Clean up Actions (diff) | |
Rework Custom
Change the names of high-order functoins Remove named keybindings Add check executable for keybindings Expand xmonad-ng library Bump to 0.15.1
Diffstat (limited to '')
| -rw-r--r-- | src/XMonad/Custom/Scratchpads.hs | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/src/XMonad/Custom/Scratchpads.hs b/src/XMonad/Custom/Scratchpads.hs index e468ae7..98ddaf5 100644 --- a/src/XMonad/Custom/Scratchpads.hs +++ b/src/XMonad/Custom/Scratchpads.hs @@ -15,13 +15,13 @@ module XMonad.Custom.Scratchpads ) where import XMonad.Core -import qualified XMonad.Custom.Misc as CM +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 = CM.term CM.customApplications ++ " -title " ++ t ++ " -e " ++ c +spawnTerminalWith t c = term applications ++ " -title " ++ t ++ " -e " ++ c floatingNSP :: ManageHook floatingNSP = customFloating $ S.RationalRect x y w h @@ -34,19 +34,19 @@ floatingNSP = customFloating $ S.RationalRect x y w h scratchpads :: [NamedScratchpad] scratchpads = [ NS "console" - (spawnTerminalWith "NSPConsole" "~/.xmonad/bin/nsp-console.sh") - (title =? "NSPConsole") - floatingNSP + (spawnTerminalWith "NSPConsole" "~/.xmonad/bin/nsp-console.sh") + (title =? "NSPConsole") + floatingNSP , NS "volume" - (spawnTerminalWith "NSPVolume" (CM.mixer CM.customApplications)) - (title =? "NSPVolume") - floatingNSP + (spawnTerminalWith "NSPVolume" (C.mixer C.applications)) + (title =? "NSPVolume") + floatingNSP , NS "music" - (spawnTerminalWith "NSPMusic" "~/.bin/mp") - (title =? "NSPMusic") - floatingNSP + (spawnTerminalWith "NSPMusic" "~/.bin/mp") + (title =? "NSPMusic") + floatingNSP , NS "top" - (spawnTerminalWith "NSPTop" (CM.top CM.customApplications)) - (title =? "NSPTop") - floatingNSP + (spawnTerminalWith "NSPTop" (C.top C.applications)) + (title =? "NSPTop") + floatingNSP ] |