From b59c77776fef747eb88b0e2de364904913ee1b61 Mon Sep 17 00:00:00 2001
From: Martin Potier <martin.potier@relexsolutions.com>
Date: Sun, 10 Dec 2017 23:56:01 +0200
Subject: [PATCH] Leave access to shellPrompt

---
 xmonad.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/xmonad.hs b/xmonad.hs
index 2bebb8c..76877ee 100755
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -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