about summary refs log tree commit diff
path: root/src/XMonad
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--src/XMonad/Custom/Bindings.hs4
-rw-r--r--src/XMonad/Custom/Misc.hs14
-rw-r--r--src/XMonad/Custom/Scratchpads.hs2
3 files changed, 11 insertions, 9 deletions
diff --git a/src/XMonad/Custom/Bindings.hs b/src/XMonad/Custom/Bindings.hs
index b31599a..9400de7 100644
--- a/src/XMonad/Custom/Bindings.hs
+++ b/src/XMonad/Custom/Bindings.hs
@@ -122,8 +122,8 @@ rawKeys c = withUpdatePointer $ concatMap ($ c) keymaps where
 keysBase :: XConfig Layout -> [(String, X ())]
 keysBase _ =
     [ ("M-S-q" , confirmPrompt hotPromptTheme "Quit XMonad?" $ io exitSuccess)
-    -- [ ("M-q"   $ spawn "xmonad-ng --restart")
-    -- , ("M-C-q" $ spawn "xmonad-ng --recompile && xmonad-ng --restart"')
+    , ("M-q"   , spawn "xmonad --restart")
+    , ("M-C-q" , spawn "xmonad --recompile && xmonad --restart")
     , ("M-x"   , shellPrompt promptTheme)
     , ("M-w"   , windowPrompt promptTheme Goto  allWindows)
     , ("M-S-w" , windowPrompt promptTheme Bring allWindows)
diff --git a/src/XMonad/Custom/Misc.hs b/src/XMonad/Custom/Misc.hs
index 584fe2d..5d22063 100644
--- a/src/XMonad/Custom/Misc.hs
+++ b/src/XMonad/Custom/Misc.hs
@@ -18,18 +18,20 @@ module XMonad.Custom.Misc
     ) where
 
 data Applications = Applications
-    { term    :: !String
-    , browser :: !String
-    , top     :: !String
+    { browser :: !String
     , mixer   :: !String
     , notify  :: !String
+    , player  :: !String
+    , term    :: !String
+    , top     :: !String
     } deriving (Eq, Show)
 
 applications :: Applications
 applications = Applications
-    { term    = "urxvtc"
-    , browser = "qutebrowser"
-    , top     = "htop"
+    { browser = "qutebrowser"
     , mixer   = "alsamixer"
     , notify  = "notify-send"
+    , player  = "ncmpcpp"
+    , term    = "urxvtc"
+    , top     = "htop"
     }
diff --git a/src/XMonad/Custom/Scratchpads.hs b/src/XMonad/Custom/Scratchpads.hs
index d463b87..9424f7b 100644
--- a/src/XMonad/Custom/Scratchpads.hs
+++ b/src/XMonad/Custom/Scratchpads.hs
@@ -42,7 +42,7 @@ scratchpads =
       (title =? "NSPVolume")
       floatingNSP
     , NS "music"
-      (spawnTerminalWith "NSPMusic" "mp")
+      (spawnTerminalWith "NSPMusic" (C.player C.applications))
       (title =? "NSPMusic")
       floatingNSP
     , NS "top"

Consider giving Nix/NixOS a try! <3