From be10c83957d683147da5aa156d3e79d50ab081b7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Maximilian=20Ke=C3=9Fler?= <git@maximilian-kessler.de>
Date: Tue, 19 Jul 2022 21:40:32 +0200
Subject: [PATCH] add shortcut for setting working directory

---
 src/XMonad/Custom/BasicKeyBindings.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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