diff options
| author | azahi <azahi@teknik.io> | 2018-10-15 22:01:39 +0300 |
|---|---|---|
| committer | azahi <azahi@teknik.io> | 2018-10-15 22:01:39 +0300 |
| commit | 830a7d1387aeb404cb5312a84739960946478bac (patch) | |
| tree | 89565d389117dd66bf13c0fe3affb484df6467c6 /src | |
| parent | Allow building via `xmonad --recompile` (diff) | |
Modify keybindings
Fix music player scratchpad Add abilities to recompile and restart from the running xmonad session
Diffstat (limited to 'src')
| -rw-r--r-- | src/XMonad/Custom/Bindings.hs | 4 | ||||
| -rw-r--r-- | src/XMonad/Custom/Misc.hs | 14 | ||||
| -rw-r--r-- | src/XMonad/Custom/Scratchpads.hs | 2 |
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" |