From aa3979b36fa756f08a8e43fbe041dfb118eef361 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Thu, 29 Dec 2022 15:04:48 -0500 Subject: [PATCH] FIX delay in displaying keys --- lib/XMonad/Internal/Command/DMenu.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/lib/XMonad/Internal/Command/DMenu.hs b/lib/XMonad/Internal/Command/DMenu.hs index 2d6de6a..2fb2477 100644 --- a/lib/XMonad/Internal/Command/DMenu.hs +++ b/lib/XMonad/Internal/Command/DMenu.hs @@ -203,6 +203,7 @@ showKeys :: [((KeyMask, KeySym), NamedAction)] -> X () showKeys kbs = do h <- spawnPipe cmd io $ hPutStr h $ unlines $ showKm kbs + io $ hClose h where cmd = fmtCmd myDmenuCmd $ ["-dmenu", "-p", "commands"] ++ themeArgs "#7f66ff" ++ myDmenuMatchingArgs