From 49966a962db9900cf036ed8417ff6b1309025151 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Sat, 19 Jun 2021 16:19:41 -0400 Subject: [PATCH] ENH flag functions that are missing exes --- bin/xmonad.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/bin/xmonad.hs b/bin/xmonad.hs index e0369da..8b726b7 100644 --- a/bin/xmonad.hs +++ b/bin/xmonad.hs @@ -474,10 +474,11 @@ filterExternal kgs = let kgs' = fmap go kgs in (fst <$> kgs', concatMap snd kgs' where go k@KeyGroup { kgBindings = bs } = let bs' = go' <$> bs in (k { kgBindings = mapMaybe fst bs' }, concatMap snd bs') - go' k@KeyBinding { kbAction = a } = case a of - Installed x ds -> (Just $ k { kbAction = x }, fmap Optional ds) - Missing ds -> (Nothing, ds) + go' k@KeyBinding{ kbDesc = d, kbAction = a } = case a of + Installed x ds -> (Just $ k{ kbAction = x }, fmap Optional ds) + Missing ds -> (Just $ k{ kbDesc = flagMissing d, kbAction = skip }, ds) Ignore -> (Nothing, []) + flagMissing s = "[!!!]" ++ s externalBindings :: ThreadState -> [KeyGroup (IO MaybeX)] externalBindings ts =