max/xmonad-custom
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add shortcut for setting working directory

Browse source
This commit is contained in:
Maximilian Keßler 2022-07-19 21:40:32 +02:00
parent 562c8b68fb
commit be10c83957
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/XMonad/Custom/BasicKeyBindings.hs
View file

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