From c8109a9e66288af4ab09016a893d2a12959924a3 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Fri, 8 Jul 2022 20:08:17 -0400 Subject: [PATCH] ENH don't flag key entries with !!! --- bin/xmonad.hs | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/bin/xmonad.hs b/bin/xmonad.hs index 05f69b3..51af6c8 100644 --- a/bin/xmonad.hs +++ b/bin/xmonad.hs @@ -598,12 +598,11 @@ evalKeyBinding k@KeyBinding { kbMaybeAction = a } = filterExternal :: [KeyGroup MaybeX] -> [KeyGroup (X ())] filterExternal = fmap go where - go k@KeyGroup { kgBindings = bs } = k { kgBindings = mapMaybe flagKeyBinding bs } - -flagKeyBinding :: KeyBinding MaybeX -> Maybe (KeyBinding (X ())) -flagKeyBinding k@KeyBinding{ kbDesc = d, kbMaybeAction = a } = case a of - (Just x) -> Just $ k{ kbMaybeAction = x } - Nothing -> Just $ k{ kbDesc = "[!!!]" ++ d, kbMaybeAction = skip } + go k@KeyGroup { kgBindings = bs } = + k { kgBindings = [ kb { kbMaybeAction = x } + | kb@KeyBinding { kbMaybeAction = Just x } <- bs + ] + } externalBindings :: ThreadState -> DBusState -> [KeyGroup FeatureX] externalBindings ts db =