ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ENH show VM workspace when launching

This commit is contained in:
Nathan Dwarshuis 2020-02-14 23:00:45 -05:00
parent beb8f1d1b2
commit c5b9248108
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
xmonad.hs
View File

@ -195,6 +195,8 @@ myScreenCap = "screencap -s" --external script
myWindowCap = "screencap -w" --external script
myScreenLock = "screenlock" --external script
showVBox = windows $ W.view "VM"
showKeybindings :: [((KeyMask, KeySym), NamedAction)] -> NamedAction
showKeybindings x = addName "Show Keybindings" $ io $ do
h <- spawnPipe "zenity --text-info --font=DejaVu Sans"
@ -239,7 +241,7 @@ myKeys c =
[ ("M-", "switch to workspace", W.view)
, ("M-S-", "move client to workspace", W.shift)]
] ++
[ ("M-v", addName "switch to VM workspace" $ windows $ W.view "VM")
[ ("M-v", addName "switch to VM workspace" showVBox)
]) ++
mkNamedSubmap c "Screens"
@ -268,7 +270,7 @@ myKeys c =
, ("M-C-w", addName "run browser" $ spawn myBrowser)
, ("M-C-t", addName "run terminal" $ spawn myTerm)
, ("M-C-q", addName "run calc" $ spawn myCalc)
, ("M-C-v", addName "run windows VM" $ spawn myVBox)
, ("M-C-v", addName "run windows VM" $ spawn myVBox >> showVBox)
] ++
mkNamedSubmap c "Multimedia"