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

Leave access to shellPrompt

Browse source
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-<Left>", shiftToPrev >> prevWS)
, ("M-S-<Right>", shiftToNext >> nextWS) , ("M-S-<Right>", shiftToNext >> nextWS)
, ("M-p", fuzzyPrompt myXPConfig) , ("M-p", fuzzyPrompt myXPConfig)
, ("M-S-p", shellPrompt myXPConfig)
, ("<Tab>-b", sendMessage (Toggle "Full")) , ("<Tab>-b", sendMessage (Toggle "Full"))
, ("M-s", spawn "/run/current-system/sw/bin/scrot /tmp/screen.png") , ("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") , ("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 -- Slightly taken from
-- https://mail.haskell.org/pipermail/xmonad/2010-October/010671.html -- https://mail.haskell.org/pipermail/xmonad/2010-October/010671.html
data FuzzySpawn = FuzzySpawn deriving (Read, Show) data FuzzySpawn = FuzzySpawn deriving (Read, Show)
instance XPrompt FuzzySpawn where showXPrompt _ = "Run: " instance XPrompt FuzzySpawn where showXPrompt _ = "RunC: "
fuzzyPrompt config = do fuzzyPrompt config = do
cmds <- io getCommands cmds <- io getCommands
let compl s let compl s