mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 11:30:22 -07:00
commit
cc7ddcfa60
@ -49,12 +49,12 @@ import XMonad.Prompt
|
||||
-- @fireEmployee@ action, like so:
|
||||
--
|
||||
-- > firingPrompt :: X ()
|
||||
-- > firingPrompt = inputPrompt defaultXPConfig \"Fire\" ?+ fireEmployee
|
||||
-- > firingPrompt = inputPrompt defaultXPConfig "Fire" ?+ fireEmployee
|
||||
--
|
||||
-- If @employees@ contains a list of all his employees, he could also
|
||||
-- create an autocompleting version, like this:
|
||||
--
|
||||
-- > firingPrompt' = inputPromptWithCompl defaultXPConfig \"Fire\"
|
||||
-- > firingPrompt' = inputPromptWithCompl defaultXPConfig "Fire"
|
||||
-- > (mkComplFunFromList employees) ?+ fireEmployee
|
||||
--
|
||||
-- Now all he has to do is add a keybinding to @firingPrompt@ (or
|
||||
@ -112,4 +112,4 @@ infixr 1 ?+
|
||||
-- with input prompts. If you find a more general use for it and
|
||||
-- want to move it to a different module, be my guest.
|
||||
(?+) :: (Monad m) => m (Maybe a) -> (a -> m ()) -> m ()
|
||||
x ?+ k = x >>= maybe (return ()) k
|
||||
x ?+ k = x >>= maybe (return ()) k
|
||||
|
Loading…
x
Reference in New Issue
Block a user