add shortcut for setting working directory

src/XMonad/Custom/BasicKeyBindings.hs

@@ -7,7 +7,7 @@ import qualified XMonad.StackSet as W
 
 import XMonad.Custom.BindingUtils
 import XMonad.Custom.TopicSpace
-
+import XMonad.Custom.Prompt
 
 myBasicKeyBindings :: [([Char], X ())]
 myBasicKeyBindings = addMainModifierToBinding $ myFocusBindings ++ mySwapBindings ++ myMasterBindings ++ myXMonadBindings ++ myLaunchBindings
@@ -59,7 +59,8 @@ myMasterBindings = [
 myXMonadBindings :: [([Char], X ())]
 myXMonadBindings = [
     ("q", restartXMonad),
-    ("S-q", quitXMonad)
+    ("S-q", quitXMonad),
+    ("k", promptSetTopicDir myXPConfig)
   ]
     where
       quitXMonad    = io exitSuccess