From d7176233da673ea5d92eadcbf52323b5d8419cfd Mon Sep 17 00:00:00 2001
From: azahi <azahi@teknik.io>
Date: Mon, 8 Oct 2018 21:18:13 +0300
Subject: 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
---
 src/XMonad/Custom/Scratchpads.hs | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

(limited to 'src/XMonad/Custom/Scratchpads.hs')

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
     ]
-- 
cgit 1.4.1