add simple date example

SimpleDate.hs

@@ -0,0 +1,33 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  XMonadContrib.Example
+-- 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.
+--
+-- To use, modify your Config.hs to:
+--
+--      import XMonadContrib.SimpleDate
+--
+-- and add a keybinding:
+--
+--     , ((modMask,               xK_d     ), date)
+--
+-- a popup date menu will now be bound to mod-d
+--
+
+module XMonadContrib.SimpleDate where
+
+import XMonad
+
+date :: X ()
+date = spawn "(date; sleep 10) | dzen2"