From 4866f2e367dfcf22a9591231ba40948826a1b438 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 1 Nov 2007 21:10:59 +0100
Subject: Hierarchify

darcs-hash:20071101201059-a5988-fc1f1262bec1b69e13ba18ae7cefeafc8c4471d4.gz
---
 XMonad/Actions/SimpleDate.hs | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 XMonad/Actions/SimpleDate.hs

(limited to 'XMonad/Actions/SimpleDate.hs')

diff --git a/XMonad/Actions/SimpleDate.hs b/XMonad/Actions/SimpleDate.hs
new file mode 100644
index 0000000..a30d78b
--- /dev/null
+++ b/XMonad/Actions/SimpleDate.hs
@@ -0,0 +1,39 @@
+-----------------------------------------------------------------------------
+-- |
+-- 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
+
+-- $usage
+-- To use, modify your Config.hs to:
+--
+-- >     import XMonad.Actions.SimpleDate
+--
+-- and add a keybinding:
+--
+-- >    , ((modMask,               xK_d     ), date)
+--
+-- a popup date menu will now be bound to mod-d
+
+-- %import XMonad.Actions.SimpleDate
+-- %keybind , ((modMask,               xK_d     ), date)
+
+date :: X ()
+date = spawn "(date; sleep 10) | dzen2"
-- 
cgit v1.2.3