-----------------------------------------------------------------------------
-- |
-- Module      :  XMonad.Actions.SimpleDate
-- 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\/xmonad.hs@:
--
-- >     import XMonad.Actions.SimpleDate
--
-- and add a keybinding, for example:
--
-- >    , ((modMask x,               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
-- "XMonad.Doc.Extending#Editing_key_bindings".

date :: X ()
date = unsafeSpawn "(date; sleep 10) | dzen2"