ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FIX delay in displaying keys

This commit is contained in:
Nathan Dwarshuis 2022-12-29 15:04:48 -05:00
parent 0b8f79a968
commit aa3979b36f
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/XMonad/Internal/Command/DMenu.hs
View File

@ -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