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

ENH flag functions that are missing exes

This commit is contained in:
Nathan Dwarshuis 2021-06-19 16:19:41 -04:00
parent e8a1b1150b
commit 49966a962d
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
bin/xmonad.hs
View File

@ -474,10 +474,11 @@ filterExternal kgs = let kgs' = fmap go kgs in (fst <$> kgs', concatMap snd kgs'
where where
go k@KeyGroup { kgBindings = bs } = let bs' = go' <$> bs in go k@KeyGroup { kgBindings = bs } = let bs' = go' <$> bs in
(k { kgBindings = mapMaybe fst bs' }, concatMap snd bs') (k { kgBindings = mapMaybe fst bs' }, concatMap snd bs')
go' k@KeyBinding { kbAction = a } = case a of go' k@KeyBinding{ kbDesc = d, kbAction = a } = case a of
Installed x ds -> (Just $ k { kbAction = x }, fmap Optional ds) Installed x ds -> (Just $ k{ kbAction = x }, fmap Optional ds)
Missing ds -> (Nothing, ds) Missing ds -> (Just $ k{ kbDesc = flagMissing d, kbAction = skip }, ds)
Ignore -> (Nothing, []) Ignore -> (Nothing, [])
flagMissing s = "[!!!]" ++ s
externalBindings :: ThreadState -> [KeyGroup (IO MaybeX)] externalBindings :: ThreadState -> [KeyGroup (IO MaybeX)]
externalBindings ts = externalBindings ts =