From c483e4957bf89c5a8ba9bd042053f9e82d5af07f Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Mon, 21 Nov 2016 23:45:30 -0600 Subject: [PATCH] [XMonad] Add shell command variables --- dotfiles/xmonad/xmonad.hs | 19 ++++++++++++++----- 1 file changed, 14 insertions(+), 5 deletions(-) diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs index 150e056e..549b7d37 100644 --- a/dotfiles/xmonad/xmonad.hs +++ b/dotfiles/xmonad/xmonad.hs @@ -76,6 +76,15 @@ virtualClasses = [ (hangoutsSelector, "Hangouts") , (transmissionSelector, "Transmission") ] +-- Commands + +hangoutsCommand = "start_hangouts.sh" +spotifyCommand = "spotify" +chromeCommand = "google-chrome-stable" +emacsCommand = "emacsclient -c" +htopCommnad = "urxvt -e htop" +transmissionCommand = "transmission-gtk" + -- Startup hook myStartup = spawn "systemctl --user start wm.target" @@ -429,11 +438,11 @@ addKeys conf@XConfig {modMask = modm} = ] ++ bindBringAndRaiseMany - [ (modalt, xK_e, spawn "emacsclient -c", emacsSelector) - , (modalt, xK_s, spawn "spotify", spotifySelector) - , (modalt, xK_c, spawn "google-chrome-stable", chromeSelector) - , (modalt, xK_h, spawn "start_hangouts.sh", hangoutsSelector) - , (modalt, xK_t, spawn "transmission-gtk", transmissionSelector) + [ (modalt, xK_e, spawn emacsCommand, emacsSelector) + , (modalt, xK_c, spawn chromeCommand, chromeSelector) + , (modalt, xK_s, spawn spotifyCommand, spotifySelector) + , (modalt, xK_h, spawn hangoutsCommand, hangoutsSelector) + , (modalt, xK_t, spawn transmissionCommand, transmissionSelector) ] ++ -- Replace original moving stuff around + greedy view bindings [((additionalMask .|. modm, key), windows $ function workspace)