diff options
author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-10-13 11:05:24 +0200 |
---|---|---|
committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-10-13 11:05:24 +0200 |
commit | daa49542004ca5774f793ecb3f8a76b83156d055 (patch) | |
tree | 392af7d09a4a7f1f8e524f437360ff7e10707f1a /WindowNavigation.hs | |
parent | b2d9ce8ee33bc74b846c2aa5aaced33864c75a64 (diff) | |
download | XMonadContrib-daa49542004ca5774f793ecb3f8a76b83156d055.tar.gz XMonadContrib-daa49542004ca5774f793ecb3f8a76b83156d055.tar.xz XMonadContrib-daa49542004ca5774f793ecb3f8a76b83156d055.zip |
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
Diffstat (limited to '')
-rw-r--r-- | WindowNavigation.hs | 32 |
1 files changed, 20 insertions, 12 deletions
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" |