FIX delay in displaying keys
This commit is contained in:
parent
0b8f79a968
commit
aa3979b36f
|
@ -203,6 +203,7 @@ showKeys :: [((KeyMask, KeySym), NamedAction)] -> X ()
|
||||||
showKeys kbs = do
|
showKeys kbs = do
|
||||||
h <- spawnPipe cmd
|
h <- spawnPipe cmd
|
||||||
io $ hPutStr h $ unlines $ showKm kbs
|
io $ hPutStr h $ unlines $ showKm kbs
|
||||||
|
io $ hClose h
|
||||||
where
|
where
|
||||||
cmd = fmtCmd myDmenuCmd $ ["-dmenu", "-p", "commands"]
|
cmd = fmtCmd myDmenuCmd $ ["-dmenu", "-p", "commands"]
|
||||||
++ themeArgs "#7f66ff" ++ myDmenuMatchingArgs
|
++ themeArgs "#7f66ff" ++ myDmenuMatchingArgs
|
||||||
|
|
Loading…
Reference in New Issue