From daa49542004ca5774f793ecb3f8a76b83156d055 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sat, 13 Oct 2007 11:05:24 +0200
Subject: WindowNavigation: don't export the config constructor and some
 haddock fixes

I told to David I would have taken care of that: instead of exporting
the config constructor we export 2 functions: navigateColor and
noNavigateBorders. Updated documentation accordingly.

darcs-hash:20071013090524-32816-303a461ace55ca42289a15c79b2db77a9943fa3d.gz
---
 WindowNavigation.hs | 32 ++++++++++++++++++++------------
 1 file changed, 20 insertions(+), 12 deletions(-)

(limited to 'WindowNavigation.hs')

diff --git a/WindowNavigation.hs b/WindowNavigation.hs
index 8c66a5a..915257f 100644
--- a/WindowNavigation.hs
+++ b/WindowNavigation.hs
@@ -20,7 +20,7 @@ module XMonadContrib.WindowNavigation (
                                    -- $usage
                                    windowNavigation,
                                    Navigate(..), Direction(..),
-                                   WNConfig (..), defaultWNConfig
+                                   navigateColor, noNavigateBorders
                                   ) where
 
 import Graphics.X11.Xlib ( Rectangle(..), Window, Pixel, setWindowBorder )
@@ -39,24 +39,24 @@ import XMonadContrib.XUtils
 --
 -- > import XMonadContrib.WindowNavigation
 -- >
--- > layoutHook = Layout $ windowNavigation defaultWNConfig $ Select ...
+-- > layoutHook = Layout $ windowNavigation defaultWNConfig $ LayoutSelection ...
 --
 -- In keybindings:
 --
 -- >    , ((modMask, xK_Right), sendMessage $ Go R)
--- >    , ((modMask, xK_Left), sendMessage $ Go L)
--- >    , ((modMask, xK_Up), sendMessage $ Go U)
--- >    , ((modMask, xK_Down), sendMessage $ Go D)
+-- >    , ((modMask, xK_Left ), sendMessage $ Go L)
+-- >    , ((modMask, xK_Up   ), sendMessage $ Go U)
+-- >    , ((modMask, xK_Down ), sendMessage $ Go D)
 
 -- %import XMonadContrib.WindowNavigation
--- %keybind , ((modMask, xK_Right), sendMessage $ Go R)
--- %keybind , ((modMask, xK_Left), sendMessage $ Go L)
--- %keybind , ((modMask, xK_Up), sendMessage $ Go U)
--- %keybind , ((modMask, xK_Down), sendMessage $ Go D)
+-- %keybind , ((modMask,                 xK_Right), sendMessage $ Go R)
+-- %keybind , ((modMask,                 xK_Left ), sendMessage $ Go L)
+-- %keybind , ((modMask,                 xK_Up   ), sendMessage $ Go U)
+-- %keybind , ((modMask,                 xK_Down ), sendMessage $ Go D)
 -- %keybind , ((modMask .|. controlMask, xK_Right), sendMessage $ Swap R)
--- %keybind , ((modMask .|. controlMask, xK_Left), sendMessage $ Swap L)
--- %keybind , ((modMask .|. controlMask, xK_Up), sendMessage $ Swap U)
--- %keybind , ((modMask .|. controlMask, xK_Down), sendMessage $ Swap D)
+-- %keybind , ((modMask .|. controlMask, xK_Left ), sendMessage $ Swap L)
+-- %keybind , ((modMask .|. controlMask, xK_Up   ), sendMessage $ Swap U)
+-- %keybind , ((modMask .|. controlMask, xK_Down ), sendMessage $ Swap D)
 -- %layout -- include 'windowNavigation' in layoutHook definition above.
 -- %layout -- just before the list, like the following (don't uncomment next line):
 -- %layout -- layoutHook = Layout $ windowNavigation defaultWNConfig $ ...
@@ -74,6 +74,14 @@ data WNConfig =
         , rightColor    :: String
         } deriving (Show, Read)
 
+noNavigateBorders :: WNConfig
+noNavigateBorders = 
+    defaultWNConfig {showNavigable = False}
+
+navigateColor :: String -> WNConfig
+navigateColor c =
+    WNC True c c c c
+
 defaultWNConfig :: WNConfig
 defaultWNConfig = WNC True "#0000FF" "#00FFFF" "#FF0000" "#FF00FF"
 
-- 
cgit v1.2.3