diff --git a/src/XMonad/Custom/BasicKeyBindings.hs b/src/XMonad/Custom/BasicKeyBindings.hs index 0891919..c46034c 100644 --- a/src/XMonad/Custom/BasicKeyBindings.hs +++ b/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