mpo
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Leave access to shellPrompt

This commit is contained in:
Martin Potier 2017-12-10 23:56:01 +02:00
parent 8cbaaeb840
commit b59c77776f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
xmonad.hs
View File

@ -99,6 +99,7 @@ myConfig = desktopConfig
, ("M-S-<Left>", shiftToPrev >> prevWS)
, ("M-S-<Right>", shiftToNext >> nextWS)
, ("M-p", fuzzyPrompt myXPConfig)
, ("M-S-p", shellPrompt myXPConfig)
, ("<Tab>-b", sendMessage (Toggle "Full"))
, ("M-s", spawn "/run/current-system/sw/bin/scrot /tmp/screen.png")
, ("M-S-s", spawn "sleep 0.2 ; /run/current-system/sw/bin/scrot -s /tmp/screenSel.png")
@ -148,7 +149,7 @@ main = xmonad =<< bar myConfig
-- Slightly taken from
-- https://mail.haskell.org/pipermail/xmonad/2010-October/010671.html
data FuzzySpawn = FuzzySpawn deriving (Read, Show)
instance XPrompt FuzzySpawn where showXPrompt _ = "Run: "
instance XPrompt FuzzySpawn where showXPrompt _ = "RunC: "
fuzzyPrompt config = do
cmds <- io getCommands
let compl s