ENH don't flag key entries with !!!
This commit is contained in:
parent
7ad7b8960e
commit
c8109a9e66
|
@ -598,12 +598,11 @@ evalKeyBinding k@KeyBinding { kbMaybeAction = a } =
|
||||||
filterExternal :: [KeyGroup MaybeX] -> [KeyGroup (X ())]
|
filterExternal :: [KeyGroup MaybeX] -> [KeyGroup (X ())]
|
||||||
filterExternal = fmap go
|
filterExternal = fmap go
|
||||||
where
|
where
|
||||||
go k@KeyGroup { kgBindings = bs } = k { kgBindings = mapMaybe flagKeyBinding bs }
|
go k@KeyGroup { kgBindings = bs } =
|
||||||
|
k { kgBindings = [ kb { kbMaybeAction = x }
|
||||||
flagKeyBinding :: KeyBinding MaybeX -> Maybe (KeyBinding (X ()))
|
| kb@KeyBinding { kbMaybeAction = Just x } <- bs
|
||||||
flagKeyBinding k@KeyBinding{ kbDesc = d, kbMaybeAction = a } = case a of
|
]
|
||||||
(Just x) -> Just $ k{ kbMaybeAction = x }
|
}
|
||||||
Nothing -> Just $ k{ kbDesc = "[!!!]" ++ d, kbMaybeAction = skip }
|
|
||||||
|
|
||||||
externalBindings :: ThreadState -> DBusState -> [KeyGroup FeatureX]
|
externalBindings :: ThreadState -> DBusState -> [KeyGroup FeatureX]
|
||||||
externalBindings ts db =
|
externalBindings ts db =
|
||||||
|
|
Loading…
Reference in New Issue