From be10c83957d683147da5aa156d3e79d50ab081b7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Maximilian=20Ke=C3=9Fler?= 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