lib/Confirm.hs


1
2
3
4
5
6
7
8
9
10
11

module Confirm (confirm) where

import Control.Monad

import XMonad.Core
import XMonad.Actions.GridSelect

confirm :: GSConfig Bool -> String -> X() -> X()
confirm config string action = do
  res <- gridselect config [(string, True), ("No", False)]
  whenJust res (\x -> when x action)