colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Add shell command variables

Browse Source
This commit is contained in:
Ivan Malison 2016-11-21 23:45:30 -06:00
parent 91f36064e5
commit c483e4957b
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
dotfiles/xmonad/xmonad.hs
View File

@ -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)