-----------------------------------------------------------------------------
-- |
-- Module      :  XMonad.Actions.SimpleDate
-- Description :  An example external contrib module for XMonad.
-- Copyright   :  (c) Don Stewart 2007
-- License     :  BSD3-style (see LICENSE)
--
-- Maintainer  :  dons@cse.unsw.edu.au
-- Stability   :  stable
-- Portability :  portable
--
-- An example external contrib module for XMonad.
-- Provides a simple binding to dzen2 to print the date as a popup menu.
--
-----------------------------------------------------------------------------

module XMonad.Actions.SimpleDate (
                                 -- * Usage
                                 -- $usage
                                 date
                                ) where

import XMonad.Core
import XMonad.Util.Run

-- $usage
-- To use, import this module into @xmonad.hs@:
--
-- >     import XMonad.Actions.SimpleDate
--
-- and add a keybinding, for example:
--
-- >    , ((modm,               xK_d     ), date)
--
-- In this example, a popup date menu will now be bound to @mod-d@.
--
-- For detailed instructions on editing your key bindings, see
-- <https://xmonad.org/TUTORIAL.html#customizing-xmonad the tutorial>.

date :: X ()
date :: X ()
date = forall (m :: * -> *). MonadIO m => String -> m ()
unsafeSpawn String
"(date; sleep 10) | dzen2"