twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Hierarchify

Browse Source
This commit is contained in:
Spencer Janssen 2007-11-01 20:10:59 +00:00
parent 4a76d9e675
commit cd1884466a
77 changed files with 412 additions and 412 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

152
MetaModule.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.MetaModule -- Module : XMonad.MetaModule
-- Copyright : (c) 2007 Spencer Janssen <sjanssen@cse.unl.edu> -- Copyright : (c) 2007 Spencer Janssen <sjanssen@cse.unl.edu>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -8,7 +8,7 @@
-- Stability : unstable -- Stability : unstable
-- Portability : unportable -- Portability : unportable
-- --
-- This is an artificial dependency on all the XMonadContrib.* modules. It is -- This is an artificial dependency on all the XMonad.* modules. It is
-- intended to help xmonad hackers ensure that contrib modules build after API -- intended to help xmonad hackers ensure that contrib modules build after API
-- changes. -- changes.
-- --
@ -17,78 +17,78 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.MetaModule () where module XMonad.MetaModule () where
import XMonadContrib.Accordion () import XMonad.Accordion ()
import XMonadContrib.Anneal () import XMonad.Anneal ()
import XMonadContrib.Circle () import XMonad.Circle ()
import XMonadContrib.Commands () import XMonad.Commands ()
import XMonadContrib.Combo () -- broken under ghc head -- import XMonad.Combo () -- broken under ghc head
import XMonadContrib.ConstrainedResize () import XMonad.ConstrainedResize ()
import XMonadContrib.CopyWindow () import XMonad.CopyWindow ()
import XMonadContrib.CycleWS () import XMonad.CycleWS ()
import XMonadContrib.DeManage () import XMonad.DeManage ()
import XMonadContrib.DirectoryPrompt () import XMonad.DirectoryPrompt ()
import XMonadContrib.Dishes () import XMonad.Dishes ()
import XMonadContrib.Dmenu () import XMonad.Dmenu ()
import XMonadContrib.DragPane () import XMonad.DragPane ()
import XMonadContrib.DwmPromote () import XMonad.DwmPromote ()
import XMonadContrib.DynamicLog () import XMonad.DynamicLog ()
import XMonadContrib.DynamicWorkspaces () import XMonad.DynamicWorkspaces ()
import XMonadContrib.Dzen () import XMonad.Dzen ()
import XMonadContrib.EwmhDesktops () import XMonad.EwmhDesktops ()
import XMonadContrib.FindEmptyWorkspace () import XMonad.FindEmptyWorkspace ()
import XMonadContrib.FlexibleResize () import XMonad.FlexibleResize ()
import XMonadContrib.FlexibleManipulate () import XMonad.FlexibleManipulate ()
import XMonadContrib.FloatKeys () import XMonad.FloatKeys ()
import XMonadContrib.FocusNth () import XMonad.FocusNth ()
import XMonadContrib.Grid () import XMonad.Grid ()
import XMonadContrib.Invisible () import XMonad.Invisible ()
-- import XMonadContrib.HintedTile () -- import XMonad.HintedTile ()
import XMonadContrib.LayoutCombinators () -- import XMonad.LayoutCombinators ()
import XMonadContrib.LayoutModifier () import XMonad.LayoutModifier ()
import XMonadContrib.LayoutHints () -- import XMonad.LayoutHints ()
import XMonadContrib.LayoutScreens () import XMonad.LayoutScreens ()
import XMonadContrib.MagicFocus () import XMonad.MagicFocus ()
import XMonadContrib.ManageDocks () -- import XMonad.ManageDocks ()
import XMonadContrib.ManPrompt () import XMonad.ManPrompt ()
-- import XMonadContrib.Magnifier () -- import XMonad.Magnifier ()
import XMonadContrib.Maximize () import XMonad.Maximize ()
-- import XMonadContrib.Mosaic () -- import XMonad.Mosaic ()
import XMonadContrib.MosaicAlt () import XMonad.MosaicAlt ()
import XMonadContrib.MouseGestures () import XMonad.MouseGestures ()
import XMonadContrib.NamedWindows () import XMonad.NamedWindows ()
import XMonadContrib.NoBorders () import XMonad.NoBorders ()
import XMonadContrib.ResizableTile () import XMonad.ResizableTile ()
import XMonadContrib.Roledex () import XMonad.Roledex ()
import XMonadContrib.RotSlaves () import XMonad.RotSlaves ()
import XMonadContrib.RotView () import XMonad.RotView ()
import XMonadContrib.Run () import XMonad.Run ()
import XMonadContrib.SetWMName () import XMonad.SetWMName ()
import XMonadContrib.ShellPrompt () import XMonad.ShellPrompt ()
import XMonadContrib.SimpleDate () import XMonad.SimpleDate ()
import XMonadContrib.SinkAll () import XMonad.SinkAll ()
import XMonadContrib.Spiral () import XMonad.Spiral ()
import XMonadContrib.Square () import XMonad.Square ()
import XMonadContrib.SshPrompt () import XMonad.SshPrompt ()
import XMonadContrib.Submap () import XMonad.Submap ()
import XMonadContrib.SwapWorkspaces () import XMonad.SwapWorkspaces ()
import XMonadContrib.SwitchTrans () -- import XMonad.SwitchTrans ()
import XMonadContrib.Tabbed () import XMonad.Tabbed ()
import XMonadContrib.TagWindows () import XMonad.TagWindows ()
import XMonadContrib.ThreeColumns () import XMonad.ThreeColumns ()
import XMonadContrib.TilePrime () -- import XMonad.TilePrime ()
import XMonadContrib.ToggleLayouts () import XMonad.ToggleLayouts ()
import XMonadContrib.TwoPane () import XMonad.TwoPane ()
import XMonadContrib.XMonadPrompt () import XMonad.XMonadPrompt ()
import XMonadContrib.XPrompt () import XMonad.XPrompt ()
import XMonadContrib.XPropManage () import XMonad.XPropManage ()
import XMonadContrib.XSelection () import XMonad.XSelection ()
import XMonadContrib.XUtils () import XMonad.XUtils ()
import XMonadContrib.Warp () import XMonad.Warp ()
import XMonadContrib.WindowBringer () import XMonad.WindowBringer ()
import XMonadContrib.WindowNavigation () import XMonad.WindowNavigation ()
import XMonadContrib.WindowPrompt () import XMonad.WindowPrompt ()
import XMonadContrib.WmiiActions () import XMonad.WmiiActions ()
import XMonadContrib.WorkspaceDir () import XMonad.WorkspaceDir ()
import XMonadContrib.WorkspacePrompt () import XMonad.WorkspacePrompt ()

12
Commands.hs → XMonad/Actions/Commands.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Commands -- Module : XMonad.Actions.Commands
-- Copyright : (c) David Glasser 2007 -- Copyright : (c) David Glasser 2007
-- License : BSD3 -- License : BSD3
-- --
@ -10,11 +10,11 @@
-- --
-- Allows you to run internal xmonad commands (X () actions) using -- Allows you to run internal xmonad commands (X () actions) using
-- a dmenu menu in addition to key bindings. Requires dmenu and -- a dmenu menu in addition to key bindings. Requires dmenu and
-- the Dmenu XMonadContrib module. -- the Dmenu XMonad.Actions module.
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Commands ( module XMonad.Actions.Commands (
-- * Usage -- * Usage
-- $usage -- $usage
commandMap, commandMap,
@ -28,7 +28,7 @@ module XMonadContrib.Commands (
import XMonad import XMonad
import XMonad.Operations import XMonad.Operations
import XMonad.StackSet hiding (workspaces) import XMonad.StackSet hiding (workspaces)
import XMonadContrib.Dmenu (dmenu) import XMonad.Util.Dmenu (dmenu)
import XMonad.Layouts import XMonad.Layouts
import Control.Monad.Reader import Control.Monad.Reader
@ -40,7 +40,7 @@ import Data.Maybe
-- --
-- To use, modify your Config.hs to: -- To use, modify your Config.hs to:
-- --
-- > import XMonadContrib.Commands -- > import XMonad.Actions.Commands
-- --
-- and add a keybinding to the runCommand action: -- and add a keybinding to the runCommand action:
-- --
@ -58,7 +58,7 @@ import Data.Maybe
-- %def commands :: [(String, X ())] -- %def commands :: [(String, X ())]
-- %def commands = defaultCommands -- %def commands = defaultCommands
-- %import XMonadContrib.Commands -- %import XMonad.Actions.Commands
-- %keybind , ((modMask .|. controlMask, xK_y), runCommand commands) -- %keybind , ((modMask .|. controlMask, xK_y), runCommand commands)
commandMap :: [(String, X ())] -> M.Map String (X ()) commandMap :: [(String, X ())] -> M.Map String (X ())

10
ConstrainedResize.hs → XMonad/Actions/ConstrainedResize.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.ConstrainedResize -- Module : XMonad.Actions.ConstrainedResize
-- Copyright : (c) Dougal Stanton -- Copyright : (c) Dougal Stanton
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -15,10 +15,10 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.ConstrainedResize ( module XMonad.Actions.ConstrainedResize (
-- * Usage -- * Usage
-- $usage -- $usage
XMonadContrib.ConstrainedResize.mouseResizeWindow XMonad.Actions.ConstrainedResize.mouseResizeWindow
) where ) where
import XMonad import XMonad
@ -29,7 +29,7 @@ import Graphics.X11.Xlib.Extras
-- $usage -- $usage
-- Put something like this in your Config.hs file: -- Put something like this in your Config.hs file:
-- --
-- > import qualified XMonadContrib.ConstrainedResize as Sqr -- > import qualified XMonad.Actions.ConstrainedResize as Sqr
-- > mouseBindings = M.fromList -- > mouseBindings = M.fromList
-- > [ ... -- > [ ...
-- > , ((modMask, button3), (\w -> focus w >> Sqr.mouseResizeWindow w False)) -- > , ((modMask, button3), (\w -> focus w >> Sqr.mouseResizeWindow w False))
@ -38,7 +38,7 @@ import Graphics.X11.Xlib.Extras
-- The line without the shiftMask replaces the standard mouse resize function call, so it's -- The line without the shiftMask replaces the standard mouse resize function call, so it's
-- not completely necessary but seems neater this way. -- not completely necessary but seems neater this way.
-- %import qualified XMonadContrib.ConstrainedResize as Sqr -- %import qualified XMonad.Actions.ConstrainedResize as Sqr
-- %mousebind , ((modMask, button3), (\\w -> focus w >> Sqr.mouseResizeWindow w False)) -- %mousebind , ((modMask, button3), (\\w -> focus w >> Sqr.mouseResizeWindow w False))
-- %mousebind , ((modMask .|. shiftMask, button3), (\\w -> focus w >> Sqr.mouseResizeWindow w True)) -- %mousebind , ((modMask .|. shiftMask, button3), (\\w -> focus w >> Sqr.mouseResizeWindow w True))

8
CopyWindow.hs → XMonad/Actions/CopyWindow.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.CopyWindow -- Module : XMonad.Actions.CopyWindow
-- Copyright : (c) David Roundy <droundy@darcs.net> -- Copyright : (c) David Roundy <droundy@darcs.net>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -13,7 +13,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.CopyWindow ( module XMonad.Actions.CopyWindow (
-- * Usage -- * Usage
-- $usage -- $usage
copy, kill1 copy, kill1
@ -29,7 +29,7 @@ import XMonad.StackSet
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.CopyWindow -- > import XMonad.Actions.CopyWindow
-- --
-- > -- mod-[1..9] @@ Switch to workspace N -- > -- mod-[1..9] @@ Switch to workspace N
-- > -- mod-shift-[1..9] @@ Move client to workspace N -- > -- mod-shift-[1..9] @@ Move client to workspace N
@ -43,7 +43,7 @@ import XMonad.StackSet
-- --
-- > , ((modMask .|. shiftMask, xK_c ), kill1) -- @@ Close the focused window -- > , ((modMask .|. shiftMask, xK_c ), kill1) -- @@ Close the focused window
-- %import XMonadContrib.CopyWindow -- %import XMonad.Actions.CopyWindow
-- %keybind -- comment out default close window binding above if you uncomment this: -- %keybind -- comment out default close window binding above if you uncomment this:
-- %keybind , ((modMask .|. shiftMask, xK_c ), kill1) -- @@ Close the focused window -- %keybind , ((modMask .|. shiftMask, xK_c ), kill1) -- @@ Close the focused window
-- %keybindlist ++ -- %keybindlist ++

8
CycleWS.hs → XMonad/Actions/CycleWS.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.CycleWS -- Module : XMonad.Actions.CycleWS
-- Copyright : (c) Joachim Breitner <mail@joachim-breitner.de>, -- Copyright : (c) Joachim Breitner <mail@joachim-breitner.de>,
-- Nelson Elhage <nelhage@mit.edu> (`toggleWS' function) -- Nelson Elhage <nelhage@mit.edu> (`toggleWS' function)
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
@ -14,7 +14,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.CycleWS ( module XMonad.Actions.CycleWS (
-- * Usage -- * Usage
-- $usage -- $usage
nextWS, nextWS,
@ -38,7 +38,7 @@ import XMonad.Operations
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.CycleWS -- > import XMonad.Actions.CycleWS
-- --
-- > , ((modMask, xK_Right), nextWS) -- > , ((modMask, xK_Right), nextWS)
-- > , ((modMask, xK_Left), prevWS) -- > , ((modMask, xK_Left), prevWS)
@ -52,7 +52,7 @@ import XMonad.Operations
-- > , ((modMask .|. shiftMask, xK_Left), shiftToPrev >> prevWS) -- > , ((modMask .|. shiftMask, xK_Left), shiftToPrev >> prevWS)
-- --
-- %import XMonadContrib.CycleWS -- %import XMonad.Actions.CycleWS
-- %keybind , ((modMask, xK_Right), nextWS) -- %keybind , ((modMask, xK_Right), nextWS)
-- %keybind , ((modMask, xK_Left), prevWS) -- %keybind , ((modMask, xK_Left), prevWS)
-- %keybind , ((modMask .|. shiftMask, xK_Right), shiftToNext) -- %keybind , ((modMask .|. shiftMask, xK_Right), shiftToNext)

8
DeManage.hs → XMonad/Actions/DeManage.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.DeManage -- Module : XMonad.Actions.DeManage
-- Copyright : (c) Spencer Janssen <sjanssen@cse.unl.edu> -- Copyright : (c) Spencer Janssen <sjanssen@cse.unl.edu>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -25,7 +25,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.DeManage ( module XMonad.Actions.DeManage (
-- * Usage -- * Usage
-- $usage -- $usage
demanage demanage
@ -40,14 +40,14 @@ import Graphics.X11 (Window)
-- $usage -- $usage
-- To use demanage, add this import: -- To use demanage, add this import:
-- --
-- > import XMonadContrib.DeManage -- > import XMonad.Actions.DeManage
-- --
-- And add a keybinding to it: -- And add a keybinding to it:
-- --
-- > , ((modMask, xK_d ), withFocused demanage) -- > , ((modMask, xK_d ), withFocused demanage)
-- --
-- %import XMonadContrib.DeManage -- %import XMonad.Actions.DeManage
-- %keybind , ((modMask, xK_d ), withFocused demanage) -- %keybind , ((modMask, xK_d ), withFocused demanage)
-- | Stop managing the current focused window. -- | Stop managing the current focused window.

8
DwmPromote.hs → XMonad/Actions/DwmPromote.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.DwmPromote -- Module : XMonad.Actions.DwmPromote
-- Copyright : (c) Miikka Koskinen 2007 -- Copyright : (c) Miikka Koskinen 2007
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -16,7 +16,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.DwmPromote ( module XMonad.Actions.DwmPromote (
-- * Usage -- * Usage
-- $usage -- $usage
dwmpromote dwmpromote
@ -30,13 +30,13 @@ import XMonad.StackSet
-- --
-- To use, modify your Config.hs to: -- To use, modify your Config.hs to:
-- --
-- > import XMonadContrib.DwmPromote -- > import XMonad.Actions.DwmPromote
-- --
-- and add a keybinding or substitute promote with dwmpromote: -- and add a keybinding or substitute promote with dwmpromote:
-- --
-- > , ((modMask, xK_Return), dwmpromote) -- > , ((modMask, xK_Return), dwmpromote)
-- %import XMonadContrib.DwmPromote -- %import XMonad.Actions.DwmPromote
-- %keybind , ((modMask, xK_Return), dwmpromote) -- %keybind , ((modMask, xK_Return), dwmpromote)
dwmpromote :: X () dwmpromote :: X ()

10
DynamicWorkspaces.hs → XMonad/Actions/DynamicWorkspaces.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.DynamicWorkspaces -- Module : XMonad.Actions.DynamicWorkspaces
-- Copyright : (c) David Roundy <droundy@darcs.net> -- Copyright : (c) David Roundy <droundy@darcs.net>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -13,7 +13,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.DynamicWorkspaces ( module XMonad.Actions.DynamicWorkspaces (
-- * Usage -- * Usage
-- $usage -- $usage
addWorkspace, removeWorkspace, addWorkspace, removeWorkspace,
@ -28,13 +28,13 @@ import XMonad ( X, XState(..), Layout, WorkspaceId, WindowSet )
import XMonad.Operations import XMonad.Operations
import XMonad.StackSet hiding (filter, modify, delete) import XMonad.StackSet hiding (filter, modify, delete)
import Graphics.X11.Xlib ( Window ) import Graphics.X11.Xlib ( Window )
import XMonadContrib.WorkspacePrompt import XMonad.Prompt.Workspace
import XMonadContrib.XPrompt ( XPConfig ) import XMonad.Prompt ( XPConfig )
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.DynamicWorkspaces -- > import XMonad.Actions.DynamicWorkspaces
-- --
-- > , ((modMask .|. shiftMask, xK_n), selectWorkspace defaultXPConfig layoutHook) -- > , ((modMask .|. shiftMask, xK_n), selectWorkspace defaultXPConfig layoutHook)
-- > , ((modMask .|. shiftMask, xK_BackSpace), removeWorkspace) -- > , ((modMask .|. shiftMask, xK_BackSpace), removeWorkspace)

8
FindEmptyWorkspace.hs → XMonad/Actions/FindEmptyWorkspace.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.FindEmptyWorkspace -- Module : XMonad.Actions.FindEmptyWorkspace
-- Copyright : (c) Miikka Koskinen 2007 -- Copyright : (c) Miikka Koskinen 2007
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -12,7 +12,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.FindEmptyWorkspace ( module XMonad.Actions.FindEmptyWorkspace (
-- * Usage -- * Usage
-- $usage -- $usage
viewEmptyWorkspace, tagToEmptyWorkspace viewEmptyWorkspace, tagToEmptyWorkspace
@ -31,7 +31,7 @@ import XMonad.Operations
-- --
-- To use, modify your Config.hs to: -- To use, modify your Config.hs to:
-- --
-- > import XMonadContrib.FindEmptyWorkspace -- > import XMonad.Actions.FindEmptyWorkspace
-- --
-- and add a keybinding: -- and add a keybinding:
-- --
@ -41,7 +41,7 @@ import XMonad.Operations
-- Now you can jump to an empty workspace with mod-m. Mod-shift-m will -- Now you can jump to an empty workspace with mod-m. Mod-shift-m will
-- tag the current window to an empty workspace and view it. -- tag the current window to an empty workspace and view it.
-- %import XMonadContrib.FindEmptyWorkspace -- %import XMonad.Actions.FindEmptyWorkspace
-- %keybind , ((modMask, xK_m ), viewEmptyWorkspace) -- %keybind , ((modMask, xK_m ), viewEmptyWorkspace)
-- %keybind , ((modMask .|. shiftMask, xK_m ), tagToEmptyWorkspace) -- %keybind , ((modMask .|. shiftMask, xK_m ), tagToEmptyWorkspace)

8
FlexibleManipulate.hs → XMonad/Actions/FlexibleManipulate.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.FlexibleManipulate -- Module : XMonad.Actions.FlexibleManipulate
-- Copyright : (c) Michael Sloan -- Copyright : (c) Michael Sloan
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -16,7 +16,7 @@
-- Based on the FlexibleResize code by Lukas Mai (Mauke) -- Based on the FlexibleResize code by Lukas Mai (Mauke)
module XMonadContrib.FlexibleManipulate ( module XMonad.Actions.FlexibleManipulate (
-- * Usage -- * Usage
-- $usage -- $usage
mouseWindow, discrete, linear, resize, position mouseWindow, discrete, linear, resize, position
@ -30,7 +30,7 @@ import Graphics.X11.Xlib.Extras
-- $usage -- $usage
-- Add this import to your Config.hs file: -- Add this import to your Config.hs file:
-- --
-- > import qualified XMonadContrib.FlexibleManipulate as Flex -- > import qualified XMonad.Actions.FlexibleManipulate as Flex
-- --
-- Set one of the mouse button bindings up like this: -- Set one of the mouse button bindings up like this:
-- --
@ -49,7 +49,7 @@ import Graphics.X11.Xlib.Extras
-- a value between 0 and 1 indicating position, and return a value indicating -- a value between 0 and 1 indicating position, and return a value indicating
-- the corresponding position if plain Flex.linear was used. -- the corresponding position if plain Flex.linear was used.
-- %import qualified XMonadContrib.FlexibleManipulate as Flex -- %import qualified XMonad.Actions.FlexibleManipulate as Flex
-- %mousebind , ((modMask, button1), (\\w -> focus w >> Flex.mouseWindow Flex.linear w)) -- %mousebind , ((modMask, button1), (\\w -> focus w >> Flex.mouseWindow Flex.linear w))
discrete, linear, resize, position :: Double -> Double discrete, linear, resize, position :: Double -> Double

10
FlexibleResize.hs → XMonad/Actions/FlexibleResize.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.FlexibleResize -- Module : XMonad.Actions.FlexibleResize
-- Copyright : (c) Lukas Mai -- Copyright : (c) Lukas Mai
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -12,10 +12,10 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.FlexibleResize ( module XMonad.Actions.FlexibleResize (
-- * Usage -- * Usage
-- $usage -- $usage
XMonadContrib.FlexibleResize.mouseResizeWindow XMonad.Actions.FlexibleResize.mouseResizeWindow
) where ) where
import XMonad import XMonad
@ -27,12 +27,12 @@ import Foreign.C.Types
-- $usage -- $usage
-- Put something like this in your Config.hs file: -- Put something like this in your Config.hs file:
-- --
-- > import qualified XMonadContrib.FlexibleResize as Flex -- > import qualified XMonad.Actions.FlexibleResize as Flex
-- > mouseBindings = M.fromList -- > mouseBindings = M.fromList
-- > [ ... -- > [ ...
-- > , ((modMask, button3), (\w -> focus w >> Flex.mouseResizeWindow w)) ] -- > , ((modMask, button3), (\w -> focus w >> Flex.mouseResizeWindow w)) ]
-- %import qualified XMonadContrib.FlexibleResize as Flex -- %import qualified XMonad.Actions.FlexibleResize as Flex
-- %mousebind , ((modMask, button3), (\\w -> focus w >> Flex.mouseResizeWindow w)) -- %mousebind , ((modMask, button3), (\\w -> focus w >> Flex.mouseResizeWindow w))
mouseResizeWindow :: Window -> X () mouseResizeWindow :: Window -> X ()

6
FloatKeys.hs → XMonad/Actions/FloatKeys.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.FloatKeys -- Module : XMonad.Actions.FloatKeys
-- Copyright : (c) Karsten Schoelzel <kuser@gmx.de> -- Copyright : (c) Karsten Schoelzel <kuser@gmx.de>
-- License : BSD -- License : BSD
-- --
@ -11,7 +11,7 @@
-- Move and resize floating windows. -- Move and resize floating windows.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.FloatKeys ( module XMonad.Actions.FloatKeys (
-- * Usage -- * Usage
-- $usage -- $usage
keysMoveWindow, keysMoveWindow,
@ -25,7 +25,7 @@ import Graphics.X11.Xlib
import Graphics.X11.Xlib.Extras import Graphics.X11.Xlib.Extras
-- $usage -- $usage
-- > import XMonadContrib.FloatKeys -- > import XMonad.Actions.FloatKeys
-- --
-- > , ((modMask, xK_d ), withFocused (keysResizeWindow (-10,-10) (1,1))) -- > , ((modMask, xK_d ), withFocused (keysResizeWindow (-10,-10) (1,1)))
-- > , ((modMask, xK_s ), withFocused (keysResizeWindow (10,10) (1,1))) -- > , ((modMask, xK_s ), withFocused (keysResizeWindow (10,10) (1,1)))

8
FocusNth.hs → XMonad/Actions/FocusNth.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.FocusNth -- Module : XMonad.Actions.FocusNth
-- Copyright : (c) Karsten Schoelzel <kuser@gmx.de> -- Copyright : (c) Karsten Schoelzel <kuser@gmx.de>
-- License : BSD -- License : BSD
-- --
@ -11,7 +11,7 @@
-- Focus the nth window on the screen. -- Focus the nth window on the screen.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.FocusNth ( module XMonad.Actions.FocusNth (
-- * Usage -- * Usage
-- $usage -- $usage
focusNth) where focusNth) where
@ -21,13 +21,13 @@ import XMonad.Operations
import XMonad import XMonad
-- $usage -- $usage
-- > import XMonadContrib.FocusNth -- > import XMonad.Actions.FocusNth
-- > -- mod4-[1..9] @@ Switch to window N -- > -- mod4-[1..9] @@ Switch to window N
-- > ++ [((mod4Mask, k), focusNth i) -- > ++ [((mod4Mask, k), focusNth i)
-- > | (i, k) <- zip [0 .. 8] [xK_1 ..]] -- > | (i, k) <- zip [0 .. 8] [xK_1 ..]]
-- %import XMonadContrib.FocusNth -- %import XMonad.Actions.FocusNth
-- %keybdindextra ++ -- %keybdindextra ++
-- %keybdindextra -- mod4-[1..9] @@ Switch to window N -- %keybdindextra -- mod4-[1..9] @@ Switch to window N
-- %keybdindextra [((mod4Mask, k), focusNth i) -- %keybdindextra [((mod4Mask, k), focusNth i)

6
MouseGestures.hs → XMonad/Actions/MouseGestures.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.MouseGestures -- Module : XMonad.Actions.MouseGestures
-- Copyright : (c) Lukas Mai -- Copyright : (c) Lukas Mai
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -12,7 +12,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.MouseGestures ( module XMonad.Actions.MouseGestures (
-- * Usage -- * Usage
-- $usage -- $usage
Direction(..), Direction(..),
@ -34,7 +34,7 @@ import System.IO
-- $usage -- $usage
-- In your Config.hs: -- In your Config.hs:
-- --
-- > import XMonadContrib.MouseGestures -- > import XMonad.Actions.MouseGestures
-- > ... -- > ...
-- > mouseBindings = M.fromList $ -- > mouseBindings = M.fromList $
-- > [ ... -- > [ ...

10
RotSlaves.hs → XMonad/Actions/RotSlaves.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.RotSlaves -- Module : XMonad.Actions.RotSlaves
-- Copyright : (c) Hans Philipp Annen <haphi@gmx.net>, Mischa Dieterle <der_m@freenet.de> -- Copyright : (c) Hans Philipp Annen <haphi@gmx.net>, Mischa Dieterle <der_m@freenet.de>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -11,7 +11,7 @@
-- Rotate all windows except the master window -- Rotate all windows except the master window
-- and keep the focus in place. -- and keep the focus in place.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.RotSlaves ( module XMonad.Actions.RotSlaves (
-- $usag -- $usag
rotSlaves', rotSlavesUp, rotSlavesDown, rotSlaves', rotSlavesUp, rotSlavesDown,
rotAll', rotAllUp, rotAllDown rotAll', rotAllUp, rotAllDown
@ -25,7 +25,7 @@ import XMonad
-- --
-- To use this module, import it with: -- To use this module, import it with:
-- --
-- > import XMonadContrib.RotSlaves -- > import XMonad.Actions.RotSlaves
-- --
-- and add a keybinding: -- and add a keybinding:
-- --
@ -33,9 +33,9 @@ import XMonad
-- --
-- --
-- This operation will rotate all windows except the master window, while the focus -- This operation will rotate all windows except the master window, while the focus
-- stays where it is. It is useful together with the TwoPane-Layout (see XMonadContrib.TwoPane). -- stays where it is. It is useful together with the TwoPane-Layout (see XMonad.Actions.TwoPane).
-- %import XMonadContrib.RotSlaves -- %import XMonad.Actions.RotSlaves
-- %keybind , ((modMask .|. shiftMask, xK_Tab ), rotSlavesUp) -- %keybind , ((modMask .|. shiftMask, xK_Tab ), rotSlavesUp)
-- | Rotate the windows in the current stack excluding the first one -- | Rotate the windows in the current stack excluding the first one

8
RotView.hs → XMonad/Actions/RotView.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.RotView -- Module : XMonad.Actions.RotView
-- Copyright : (c) David Roundy <droundy@darcs.net> -- Copyright : (c) David Roundy <droundy@darcs.net>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -12,7 +12,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.RotView ( module XMonad.Actions.RotView (
-- * Usage -- * Usage
-- $usage -- $usage
rotView rotView
@ -30,12 +30,12 @@ import XMonad.Operations
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.RotView -- > import XMonad.Actions.RotView
-- --
-- > , ((modMask .|. shiftMask, xK_Right), rotView True) -- > , ((modMask .|. shiftMask, xK_Right), rotView True)
-- > , ((modMask .|. shiftMask, xK_Left), rotView False) -- > , ((modMask .|. shiftMask, xK_Left), rotView False)
-- %import XMonadContrib.RotView -- %import XMonad.Actions.RotView
-- %keybind , ((modMask .|. shiftMask, xK_Right), rotView True) -- %keybind , ((modMask .|. shiftMask, xK_Right), rotView True)
-- %keybind , ((modMask .|. shiftMask, xK_Left), rotView False) -- %keybind , ((modMask .|. shiftMask, xK_Left), rotView False)

8
SimpleDate.hs → XMonad/Actions/SimpleDate.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.SimpleDate -- Module : XMonad.Actions.SimpleDate
-- Copyright : (c) Don Stewart 2007 -- Copyright : (c) Don Stewart 2007
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -13,7 +13,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.SimpleDate ( module XMonad.Actions.SimpleDate (
-- * Usage -- * Usage
-- $usage -- $usage
date date
@ -24,7 +24,7 @@ import XMonad
-- $usage -- $usage
-- To use, modify your Config.hs to: -- To use, modify your Config.hs to:
-- --
-- > import XMonadContrib.SimpleDate -- > import XMonad.Actions.SimpleDate
-- --
-- and add a keybinding: -- and add a keybinding:
-- --
@ -32,7 +32,7 @@ import XMonad
-- --
-- a popup date menu will now be bound to mod-d -- a popup date menu will now be bound to mod-d
-- %import XMonadContrib.SimpleDate -- %import XMonad.Actions.SimpleDate
-- %keybind , ((modMask, xK_d ), date) -- %keybind , ((modMask, xK_d ), date)
date :: X () date :: X ()

6
SinkAll.hs → XMonad/Actions/SinkAll.hs
View File

@ -9,7 +9,7 @@
-- workspace back into tiling. -- workspace back into tiling.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.SinkAll ( module XMonad.Actions.SinkAll (
-- * Usage -- * Usage
-- $usage -- $usage
sinkAll) where sinkAll) where
@ -21,10 +21,10 @@ import XMonad.StackSet
import Graphics.X11.Xlib import Graphics.X11.Xlib
-- $usage -- $usage
-- > import XMonadContrib.SinkAll -- > import XMonad.Actions.SinkAll
-- > keys = [ ((modMask .|. shiftMask, xK_t), sinkAll) ] -- > keys = [ ((modMask .|. shiftMask, xK_t), sinkAll) ]
-- %import XMonadContrib.SinkAll -- %import XMonad.Actions.SinkAll
-- %keybind , ((modMask .|. shiftMask, xK_t), sinkAll) -- %keybind , ((modMask .|. shiftMask, xK_t), sinkAll)
sinkAll :: X () sinkAll :: X ()

6
Submap.hs → XMonad/Actions/Submap.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Submap -- Module : XMonad.Actions.Submap
-- Copyright : (c) Jason Creighton <jcreigh@gmail.com> -- Copyright : (c) Jason Creighton <jcreigh@gmail.com>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -12,7 +12,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Submap ( module XMonad.Actions.Submap (
-- * Usage -- * Usage
-- $usage -- $usage
submap submap
@ -43,7 +43,7 @@ anyModifier will not work, because that is a special value passed to XGrabKey()
and not an actual modifier. and not an actual modifier.
-} -}
-- %import XMonadContrib.Submap -- %import XMonad.Actions.Submap
-- %keybind , ((modMask, xK_a), submap . M.fromList $ -- %keybind , ((modMask, xK_a), submap . M.fromList $
-- %keybind [ ((0, xK_n), spawn "mpc next") -- %keybind [ ((0, xK_n), spawn "mpc next")
-- %keybind , ((0, xK_p), spawn "mpc prev") -- %keybind , ((0, xK_p), spawn "mpc prev")

8
SwapWorkspaces.hs → XMonad/Actions/SwapWorkspaces.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.SwapWorkspaces -- Module : XMonad.Actions.SwapWorkspaces
-- Copyright : (c) Devin Mullins <me@twifkak.com> -- Copyright : (c) Devin Mullins <me@twifkak.com>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -13,7 +13,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.SwapWorkspaces ( module XMonad.Actions.SwapWorkspaces (
-- * Usage -- * Usage
-- $usage -- $usage
swapWithCurrent, swapWithCurrent,
@ -25,7 +25,7 @@ import XMonad.StackSet
-- $usage -- $usage
-- Add this import to your Config.hs: -- Add this import to your Config.hs:
-- --
-- > import XMonadContrib.SwapWorkspaces -- > import XMonad.Actions.SwapWorkspaces
-- --
-- Throw this in your keys definition: -- Throw this in your keys definition:
-- --
@ -33,7 +33,7 @@ import XMonad.StackSet
-- > [((modMask .|. controlMask, k), windows $ swapWithCurrent i) -- > [((modMask .|. controlMask, k), windows $ swapWithCurrent i)
-- > | (i, k) <- zip workspaces [xK_1 ..]] -- > | (i, k) <- zip workspaces [xK_1 ..]]
-- %import XMonadContrib.SwapWorkspaces -- %import XMonad.Actions.SwapWorkspaces
-- %keybindlist ++ -- %keybindlist ++
-- %keybindlist [((modMask .|. controlMask, k), windows $ swapWithCurrent i) -- %keybindlist [((modMask .|. controlMask, k), windows $ swapWithCurrent i)
-- %keybindlist | (i, k) <- zip workspaces [xK_1 ..]] -- %keybindlist | (i, k) <- zip workspaces [xK_1 ..]]

14
TagWindows.hs → XMonad/Actions/TagWindows.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.TagWindows -- Module : XMonad.Actions.TagWindows
-- Copyright : (c) Karsten Schoelzel <kuser@gmx.de> -- Copyright : (c) Karsten Schoelzel <kuser@gmx.de>
-- License : BSD -- License : BSD
-- --
@ -11,7 +11,7 @@
-- Functions for tagging windows and selecting them by tags. -- Functions for tagging windows and selecting them by tags.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.TagWindows ( module XMonad.Actions.TagWindows (
-- * Usage -- * Usage
-- $usage -- $usage
addTag, delTag, unTag, addTag, delTag, unTag,
@ -34,15 +34,15 @@ import XMonad.Operations (windows, withFocused)
import Graphics.X11.Xlib import Graphics.X11.Xlib
import Graphics.X11.Xlib.Extras import Graphics.X11.Xlib.Extras
import XMonadContrib.XPrompt import XMonad.Prompt
import XMonad hiding (workspaces) import XMonad hiding (workspaces)
-- $usage -- $usage
-- --
-- To use window tags add in your Config.hs: -- To use window tags add in your Config.hs:
-- --
-- > import XMonadContrib.TagWindows -- > import XMonad.Actions.TagWindows
-- > import XMonadContrib.XPrompt -- to use tagPrompt -- > import XMonad.Prompt -- to use tagPrompt
-- --
-- and add keybindings like as follows: -- and add keybindings like as follows:
-- --
@ -62,8 +62,8 @@ import XMonad hiding (workspaces)
-- NOTE: Tags are saved as space seperated string and split with 'unwords' thus -- NOTE: Tags are saved as space seperated string and split with 'unwords' thus
-- if you add a tag "a b" the window will have the tags "a" and "b" but not "a b". -- if you add a tag "a b" the window will have the tags "a" and "b" but not "a b".
-- %import XMonadContrib.TagWindows -- %import XMonad.Actions.TagWindows
-- %import XMonadContrib.XPrompt -- to use tagPrompt -- %import XMonad.Prompt -- to use tagPrompt
-- set multiple tags for a window at once (overriding any previous tags) -- set multiple tags for a window at once (overriding any previous tags)
setTags :: [String] -> Window -> X () setTags :: [String] -> Window -> X ()

6
Warp.hs → XMonad/Actions/Warp.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Warp -- Module : XMonad.Actions.Warp
-- Copyright : (c) daniel@wagner-home.com -- Copyright : (c) daniel@wagner-home.com
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -13,7 +13,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Warp ( module XMonad.Actions.Warp (
-- * Usage -- * Usage
-- $usage -- $usage
warpToScreen, warpToScreen,
@ -44,7 +44,7 @@ my Config.hs:
Note that warping to a particular screen may change the focus. Note that warping to a particular screen may change the focus.
-} -}
-- %import XMonadContrib.Warp -- %import XMonad.Actions.Warp
-- %keybind , ((modMask, xK_z ), warpToWindow (1%2) (1%2)) -- @@ Move pointer to currently focused window -- %keybind , ((modMask, xK_z ), warpToWindow (1%2) (1%2)) -- @@ Move pointer to currently focused window
-- %keybindlist ++ -- %keybindlist ++
-- %keybindlist -- mod-ctrl-{w,e,r} @@ Move mouse pointer to screen 1, 2, or 3 -- %keybindlist -- mod-ctrl-{w,e,r} @@ Move mouse pointer to screen 1, 2, or 3

12
WindowBringer.hs → XMonad/Actions/WindowBringer.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.WindowBringer -- Module : XMonad.Actions.WindowBringer
-- Copyright : Devin Mullins <me@twifkak.com> -- Copyright : Devin Mullins <me@twifkak.com>
-- License : BSD-style (see LICENSE) -- License : BSD-style (see LICENSE)
-- --
@ -14,7 +14,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.WindowBringer ( module XMonad.Actions.WindowBringer (
-- * Usage -- * Usage
-- $usage -- $usage
gotoMenu, bringMenu, windowMapWith gotoMenu, bringMenu, windowMapWith
@ -29,21 +29,21 @@ import XMonad.Operations (windows)
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonad (X) import XMonad (X)
import qualified XMonad as X import qualified XMonad as X
import XMonadContrib.Dmenu (dmenuMap) import XMonad.Util.Dmenu (dmenuMap)
import XMonadContrib.NamedWindows (getName) import XMonad.Util.NamedWindows (getName)
-- $usage -- $usage
-- --
-- Place in your Config.hs: -- Place in your Config.hs:
-- --
-- > import XMonadContrib.WindowBringer -- > import XMonad.Actions.WindowBringer
-- --
-- and in the keys definition: -- and in the keys definition:
-- --
-- > , ((modMask .|. shiftMask, xK_g ), gotoMenu) -- > , ((modMask .|. shiftMask, xK_g ), gotoMenu)
-- > , ((modMask .|. shiftMask, xK_b ), bringMenu) -- > , ((modMask .|. shiftMask, xK_b ), bringMenu)
-- %import XMonadContrib.WindowBringer -- %import XMonad.Actions.WindowBringer
-- %keybind , ((modMask .|. shiftMask, xK_g ), gotoMenu) -- %keybind , ((modMask .|. shiftMask, xK_g ), gotoMenu)
-- %keybind , ((modMask .|. shiftMask, xK_b ), bringMenu) -- %keybind , ((modMask .|. shiftMask, xK_b ), bringMenu)

12
WmiiActions.hs → XMonad/Actions/WmiiActions.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.WmiiActions -- Module : XMonad.Actions.WmiiActions
-- Copyright : (c) Juraj Hercek <juhe_xmonad@hck.sk> -- Copyright : (c) Juraj Hercek <juhe_xmonad@hck.sk>
-- License : BSD3 -- License : BSD3
-- --
@ -16,7 +16,7 @@
-- recompile dmenu afterwards ;-). -- recompile dmenu afterwards ;-).
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.WmiiActions ( module XMonad.Actions.WmiiActions (
-- * Usage -- * Usage
-- $usage -- $usage
wmiiActions wmiiActions
@ -26,8 +26,8 @@ module XMonadContrib.WmiiActions (
) where ) where
import XMonad import XMonad
import XMonadContrib.Dmenu (dmenu, dmenuXinerama) import XMonad.Util.Dmenu (dmenu, dmenuXinerama)
import XMonadContrib.Run (runProcessWithInput) import XMonad.Util.Run (runProcessWithInput)
import Control.Monad (filterM, liftM, liftM2) import Control.Monad (filterM, liftM, liftM2)
import System.Directory (getDirectoryContents, doesFileExist, getPermissions, executable) import System.Directory (getDirectoryContents, doesFileExist, getPermissions, executable)
@ -36,7 +36,7 @@ import System.Directory (getDirectoryContents, doesFileExist, getPermissions, ex
-- --
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.WmiiActions -- > import XMonad.Actions.WmiiActions
-- --
-- and add following to the list of keyboard bindings: -- and add following to the list of keyboard bindings:
-- --
@ -47,7 +47,7 @@ import System.Directory (getDirectoryContents, doesFileExist, getPermissions, ex
-- > ,((modMask, xK_a), wmiiActionsXinerama "/home/joe/.wmii-3.5/") -- > ,((modMask, xK_a), wmiiActionsXinerama "/home/joe/.wmii-3.5/")
-- --
-- however, make sure you have also xinerama build of dmenu (for more -- however, make sure you have also xinerama build of dmenu (for more
-- information see "XMonadContrib.Dmenu" extension). -- information see "XMonad.Util.Dmenu" extension).
-- | The 'wmiiActions' function takes the file path as a first argument and -- | The 'wmiiActions' function takes the file path as a first argument and
-- executes dmenu with all executables found in the provided path. -- executes dmenu with all executables found in the provided path.

10
DynamicLog.hs → XMonad/Hooks/DynamicLog.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.DynamicLog -- Module : XMonad.Hooks.DynamicLog
-- Copyright : (c) Don Stewart <dons@cse.unsw.edu.au> -- Copyright : (c) Don Stewart <dons@cse.unsw.edu.au>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -18,7 +18,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.DynamicLog ( module XMonad.Hooks.DynamicLog (
-- * Usage -- * Usage
-- $usage -- $usage
dynamicLog, dynamicLog,
@ -44,16 +44,16 @@ import Data.List
import Data.Ord ( comparing ) import Data.Ord ( comparing )
import qualified XMonad.StackSet as S import qualified XMonad.StackSet as S
import Data.Monoid import Data.Monoid
import XMonadContrib.NamedWindows import XMonad.Util.NamedWindows
-- $usage -- $usage
-- --
-- To use, set: -- To use, set:
-- --
-- > import XMonadContrib.DynamicLog -- > import XMonad.Hooks.DynamicLog
-- > logHook = dynamicLog -- > logHook = dynamicLog
-- %import XMonadContrib.DynamicLog -- %import XMonad.Hooks.DynamicLog
-- %def -- comment out default logHook definition above if you uncomment any of these: -- %def -- comment out default logHook definition above if you uncomment any of these:
-- %def logHook = dynamicLog -- %def logHook = dynamicLog

0
EwmhDesktops.hs → XMonad/Hooks/EwmhDesktops
View File

8
ManageDocks.hs → XMonad/Hooks/ManageDocks.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.ManageDocks -- Module : XMonad.Hooks.ManageDocks
-- Copyright : (c) Joachim Breitner <mail@joachim-breitner.de> -- Copyright : (c) Joachim Breitner <mail@joachim-breitner.de>
-- License : BSD -- License : BSD
-- --
@ -16,7 +16,7 @@
-- windows (for example, after you resized or closed a panel), and to toggle the Gap -- windows (for example, after you resized or closed a panel), and to toggle the Gap
-- in a STRUT-aware fashion. -- in a STRUT-aware fashion.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.ManageDocks ( module XMonad.Hooks.ManageDocks (
-- * Usage -- * Usage
-- $usage -- $usage
manageDocksHook manageDocksHook
@ -37,7 +37,7 @@ import Data.Maybe (catMaybes)
-- $usage -- $usage
-- Add the imports to your configuration file and add the mangeHook: -- Add the imports to your configuration file and add the mangeHook:
-- --
-- > import XMonadContrib.ManageDocks -- > import XMonad.Hooks.ManageDocks
-- --
-- > manageHook w _ _ _ = manageDocksHook w -- > manageHook w _ _ _ = manageDocksHook w
-- --
@ -47,7 +47,7 @@ import Data.Maybe (catMaybes)
-- --
-- > , ((modMask, xK_b), toggleGap) -- > , ((modMask, xK_b), toggleGap)
-- %import XMonadContrib.ManageDocks -- %import XMonad.Hooks.ManageDocks
-- %def -- comment out default manageHook definition above if you uncomment this: -- %def -- comment out default manageHook definition above if you uncomment this:
-- %def manageHook w _ _ _ = manageDocksHook w -- %def manageHook w _ _ _ = manageDocksHook w
-- %keybind , ((modMask, xK_b), toggleGap) -- %keybind , ((modMask, xK_b), toggleGap)

4
SetWMName.hs → XMonad/Hooks/SetWMName.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.SetWMName -- Module : XMonad.Hooks.SetWMName
-- Copyright : © 2007 Ivan Tarasov <Ivan.Tarasov@gmail.com> -- Copyright : © 2007 Ivan Tarasov <Ivan.Tarasov@gmail.com>
-- License : BSD -- License : BSD
-- --
@ -32,7 +32,7 @@
-- fails miserably by guessing absolutely bogus values. -- fails miserably by guessing absolutely bogus values.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.SetWMName ( module XMonad.Hooks.SetWMName (
setWMName) where setWMName) where
import Control.Monad (join) import Control.Monad (join)

10
UrgencyHook.hs → XMonad/Hooks/UrgencyHook.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.UrgencyHook -- Module : XMonad.Hooks.UrgencyHook
-- Copyright : Devin Mullins <me@twifkak.com> -- Copyright : Devin Mullins <me@twifkak.com>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -16,7 +16,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.UrgencyHook ( module XMonad.Hooks.UrgencyHook (
-- * Usage -- * Usage
-- $usage -- $usage
withUrgencyHook, withUrgencyHook,
@ -29,7 +29,7 @@ import {-# SOURCE #-} Config (urgencyHook, logHook)
import Operations (windows) import Operations (windows)
import qualified StackSet as W import qualified StackSet as W
import XMonad import XMonad
import XMonadContrib.LayoutModifier import XMonad.Layout.LayoutModifier
import Control.Monad (when) import Control.Monad (when)
import Control.Monad.State (gets) import Control.Monad.State (gets)
@ -45,7 +45,7 @@ import Foreign (unsafePerformIO)
-- $usage -- $usage
-- To wire this up, add: -- To wire this up, add:
-- --
-- > import XMonadContrib.UrgencyHook -- > import XMonad.Hooks.UrgencyHook
-- --
-- to your import list in Config. Change your defaultLayout such that -- to your import list in Config. Change your defaultLayout such that
-- withUrgencyHook is applied along the chain. Mine, for example: -- withUrgencyHook is applied along the chain. Mine, for example:
@ -58,7 +58,7 @@ import Foreign (unsafePerformIO)
-- messages sent to it. Next, add your actual urgencyHook to Config. This -- messages sent to it. Next, add your actual urgencyHook to Config. This
-- needs to take a Window and return an X () action. Here's an example: -- needs to take a Window and return an X () action. Here's an example:
-- --
-- > import XMonadContrib.Dzen -- > import XMonad.Util.Dzen
-- ... -- ...
-- > urgencyHook :: Window -> X () -- > urgencyHook :: Window -> X ()
-- > urgencyHook = dzenUrgencyHook (5 `seconds`) -- > urgencyHook = dzenUrgencyHook (5 `seconds`)

6
XPropManage.hs → XMonad/Hooks/XPropManage.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.XPropManage -- Module : XMonad.Hooks.XPropManage
-- Copyright : (c) Karsten Schoelzel <kuser@gmx.de> -- Copyright : (c) Karsten Schoelzel <kuser@gmx.de>
-- License : BSD -- License : BSD
-- --
@ -11,7 +11,7 @@
-- A ManageHook matching on XProperties. -- A ManageHook matching on XProperties.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.XPropManage ( module XMonad.Hooks.XPropManage (
-- * Usage -- * Usage
-- $usage -- $usage
xPropManageHook, XPropMatch, pmX, pmP xPropManageHook, XPropMatch, pmX, pmP
@ -30,7 +30,7 @@ import XMonad
-- --
-- Add something like the following lines to Config.hs to use this module -- Add something like the following lines to Config.hs to use this module
-- --
-- > import XMonadContrib.XPropManage -- > import XMonad.Hooks.XPropManage
-- --
-- > manageHook = xPropManageHook xPropMatches -- > manageHook = xPropManageHook xPropMatches
-- > -- >

8
Accordion.hs → XMonad/Layout/Accordion.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Accordion -- Module : XMonad.Layout.Accordion
-- Copyright : (c) glasser@mit.edu -- Copyright : (c) glasser@mit.edu
-- License : BSD -- License : BSD
-- --
@ -14,7 +14,7 @@
-- of the screen. -- of the screen.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Accordion ( module XMonad.Layout.Accordion (
-- * Usage -- * Usage
-- $usage -- $usage
Accordion(Accordion)) where Accordion(Accordion)) where
@ -26,10 +26,10 @@ import Graphics.X11.Xlib
import Data.Ratio import Data.Ratio
-- $usage -- $usage
-- > import XMonadContrib.Accordion -- > import XMonad.Layout.Accordion
-- > layouts = [ Layout Accordion ] -- > layouts = [ Layout Accordion ]
-- %import XMonadContrib.Accordion -- %import XMonad.Layout.Accordion
-- %layout , Layout Accordion -- %layout , Layout Accordion
data Accordion a = Accordion deriving ( Read, Show ) data Accordion a = Accordion deriving ( Read, Show )

8
Circle.hs → XMonad/Layout/Circle.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Circle -- Module : XMonad.Layout.Circle
-- Copyright : (c) Peter De Wachter -- Copyright : (c) Peter De Wachter
-- License : BSD-style (see LICENSE) -- License : BSD-style (see LICENSE)
-- --
@ -14,7 +14,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Circle ( module XMonad.Layout.Circle (
-- * Usage -- * Usage
-- $usage -- $usage
Circle (..) Circle (..)
@ -28,10 +28,10 @@ import XMonad.StackSet (integrate, peek)
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.Circle -- > import XMonad.Layout.Circle
-- > layouts = [ Layout Circle ] -- > layouts = [ Layout Circle ]
-- %import XMonadContrib.Circle -- %import XMonad.Layout.Circle
data Circle a = Circle deriving ( Read, Show ) data Circle a = Circle deriving ( Read, Show )

12
Combo.hs → XMonad/Layout/Combo.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Combo -- Module : XMonad.Layout.Combo
-- Copyright : (c) David Roundy <droundy@darcs.net> -- Copyright : (c) David Roundy <droundy@darcs.net>
-- License : BSD-style (see LICENSE) -- License : BSD-style (see LICENSE)
-- --
@ -14,7 +14,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Combo ( module XMonad.Layout.Combo (
-- * Usage -- * Usage
-- $usage -- $usage
combineTwo, combineTwo,
@ -26,15 +26,15 @@ import Data.List ( delete, intersect, (\\) )
import Data.Maybe ( isJust ) import Data.Maybe ( isJust )
import XMonad import XMonad
import XMonad.StackSet ( integrate, Stack(..) ) import XMonad.StackSet ( integrate, Stack(..) )
import XMonadContrib.Invisible import XMonad.Util.Invisible
import XMonadContrib.WindowNavigation ( MoveWindowToWindow(..) ) import XMonad.Layout.WindowNavigation ( MoveWindowToWindow(..) )
import qualified XMonad.StackSet as W ( differentiate ) import qualified XMonad.StackSet as W ( differentiate )
-- $usage -- $usage
-- --
-- To use this layout write, in your Config.hs: -- To use this layout write, in your Config.hs:
-- --
-- > import XMonadContrib.Combo -- > import XMonad.Layout.Combo
-- --
-- and add something like -- and add something like
-- --
@ -62,7 +62,7 @@ import qualified XMonad.StackSet as W ( differentiate )
-- don't like this, lobby for hierarchical stacks in core xmonad or go -- don't like this, lobby for hierarchical stacks in core xmonad or go
-- reimelement the core of xmonad yourself. -- reimelement the core of xmonad yourself.
-- %import XMonadContrib.Combo -- %import XMonad.Layout.Combo
-- %layout , combineTwo (TwoPane 0.03 0.5) (tabbed shrinkText defaultTConf) (tabbed shrinkText defaultTConf) -- %layout , combineTwo (TwoPane 0.03 0.5) (tabbed shrinkText defaultTConf) (tabbed shrinkText defaultTConf)
data CombineTwo l l1 l2 a = C2 [a] [a] (l ()) (l1 a) (l2 a) data CombineTwo l l1 l2 a = C2 [a] [a] (l ()) (l1 a) (l2 a)

8
Dishes.hs → XMonad/Layout/Dishes.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Dishes -- Module : XMonad.Layout.Dishes
-- Copyright : (c) Jeremy Apthorp -- Copyright : (c) Jeremy Apthorp
-- License : BSD-style (see LICENSE) -- License : BSD-style (see LICENSE)
-- --
@ -15,7 +15,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Dishes ( module XMonad.Layout.Dishes (
-- * Usage -- * Usage
-- $usage -- $usage
Dishes (..) Dishes (..)
@ -31,13 +31,13 @@ import Graphics.X11.Xlib
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.Dishes -- > import XMonad.Layout.Dishes
-- --
-- and add the following line to your 'layouts' -- and add the following line to your 'layouts'
-- --
-- > , Layout $ Dishes 2 (1%6) -- > , Layout $ Dishes 2 (1%6)
-- %import XMonadContrib.Dishes -- %import XMonad.Layout.Dishes
-- %layout , Layout $ Dishes 2 (1%6) -- %layout , Layout $ Dishes 2 (1%6)
data Dishes a = Dishes Int Rational deriving (Show, Read) data Dishes a = Dishes Int Rational deriving (Show, Read)

10
DragPane.hs → XMonad/Layout/DragPane.hs
View File

@ -3,7 +3,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.DragPane -- Module : XMonad.Layout.DragPane
-- Copyright : (c) Spencer Janssen <sjanssen@cse.unl.edu> -- Copyright : (c) Spencer Janssen <sjanssen@cse.unl.edu>
-- David Roundy <droundy@darcs.net>, -- David Roundy <droundy@darcs.net>,
-- Andrea Rossato <andrea.rossato@unibz.it> -- Andrea Rossato <andrea.rossato@unibz.it>
@ -21,7 +21,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.DragPane ( module XMonad.Layout.DragPane (
-- * Usage -- * Usage
-- $usage -- $usage
dragPane dragPane
@ -37,14 +37,14 @@ import Data.Unique
import XMonad.Layouts import XMonad.Layouts
import XMonad.Operations import XMonad.Operations
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonadContrib.Invisible import XMonad.Util.Invisible
import XMonadContrib.XUtils import XMonad.Util.XUtils
-- $usage -- $usage
-- --
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.DragPane -- > import XMonad.Layout.DragPane
-- --
-- and add, to the list of layouts: -- and add, to the list of layouts:
-- --

8
Grid.hs → XMonad/Layout/Grid.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Grid -- Module : XMonad.Layout.Grid
-- Copyright : (c) Lukas Mai -- Copyright : (c) Lukas Mai
-- License : BSD-style (see LICENSE) -- License : BSD-style (see LICENSE)
-- --
@ -14,7 +14,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Grid ( module XMonad.Layout.Grid (
-- * Usage -- * Usage
-- $usage -- $usage
Grid(..) Grid(..)
@ -27,13 +27,13 @@ import Graphics.X11.Xlib.Types
-- $usage -- $usage
-- Put the following in your Config.hs file: -- Put the following in your Config.hs file:
-- --
-- > import XMonadContrib.Grid -- > import XMonad.Layout.Grid
-- > ... -- > ...
-- > layouts = [ ... -- > layouts = [ ...
-- > , Layout Grid -- > , Layout Grid
-- > ] -- > ]
-- %import XMonadContrib.Grid -- %import XMonad.Layout.Grid
-- %layout , Layout Grid -- %layout , Layout Grid
data Grid a = Grid deriving (Read, Show) data Grid a = Grid deriving (Read, Show)

12
HintedTile.hs → XMonad/Layout/HintedTile.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.HintedTile -- Module : XMonad.Layout.HintedTile
-- Copyright : (c) Peter De Wachter <pdewacht@gmail.com> -- Copyright : (c) Peter De Wachter <pdewacht@gmail.com>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -13,7 +13,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.HintedTile ( module XMonad.Layout.HintedTile (
-- * Usage -- * Usage
-- $usage -- $usage
tall, wide) where tall, wide) where
@ -29,13 +29,13 @@ import Control.Monad
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import qualified XMonadContrib.HintedTile -- > import qualified XMonad.Layout.HintedTile
-- --
-- > layouts = [ XMonadContrib.HintedTile.tall nmaster delta ratio, ... ] -- > layouts = [ XMonad.Layout.HintedTile.tall nmaster delta ratio, ... ]
-- %import qualified XMonadContrib.HintedTile -- %import qualified XMonad.Layout.HintedTile
-- --
-- %layout , XMonadContrib.HintedTile.tall nmaster delta ratio -- %layout , XMonad.Layout.HintedTile.tall nmaster delta ratio
-- this sucks -- this sucks
addBorder, substractBorder :: (Dimension, Dimension) -> (Dimension, Dimension) addBorder, substractBorder :: (Dimension, Dimension) -> (Dimension, Dimension)

8
LayoutCombinators.hs → XMonad/Layout/LayoutCombinators.hs
View File

@ -3,7 +3,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.LayoutCombinators -- Module : XMonad.Layout.LayoutCombinators
-- Copyright : (c) David Roundy <droundy@darcs.net> -- Copyright : (c) David Roundy <droundy@darcs.net>
-- License : BSD -- License : BSD
-- --
@ -14,7 +14,7 @@
-- A module for combining Layouts -- A module for combining Layouts
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.LayoutCombinators ( module XMonad.Layout.LayoutCombinators (
-- * Usage -- * Usage
-- $usage -- $usage
(<|>), (</>), (<||>), (<//>), (|||), JumpToLayout(JumpToLayout) (<|>), (</>), (<||>), (<//>), (|||), JumpToLayout(JumpToLayout)
@ -24,8 +24,8 @@ import Data.Maybe ( isJust )
import XMonad import XMonad
import Layouts ( Tall(..), Mirror(..), ChangeLayout(NextLayout) ) import Layouts ( Tall(..), Mirror(..), ChangeLayout(NextLayout) )
import XMonadContrib.Combo import XMonad.Layout.Combo
import XMonadContrib.DragPane import XMonad.Layout.DragPane
-- $usage -- $usage
-- Use LayoutCombinators to easily combine Layouts. -- Use LayoutCombinators to easily combine Layouts.

10
LayoutHints.hs → XMonad/Layout/LayoutHints.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.LayoutHints -- Module : XMonad.Layout.LayoutHints
-- Copyright : (c) David Roundy <droundy@darcs.net> -- Copyright : (c) David Roundy <droundy@darcs.net>
-- License : BSD -- License : BSD
-- --
@ -13,7 +13,7 @@
-- Make layouts respect size hints. -- Make layouts respect size hints.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.LayoutHints ( module XMonad.Layout.LayoutHints (
-- * usage -- * usage
-- $usage -- $usage
layoutHints, layoutHints,
@ -24,13 +24,13 @@ import Graphics.X11.Xlib
import Graphics.X11.Xlib.Extras ( getWMNormalHints ) import Graphics.X11.Xlib.Extras ( getWMNormalHints )
import {-#SOURCE#-} Config (borderWidth) import {-#SOURCE#-} Config (borderWidth)
import XMonad hiding ( trace ) import XMonad hiding ( trace )
import XMonadContrib.LayoutModifier import XMonad.Layout.LayoutModifier
-- $usage -- $usage
-- > import XMonadContrib.LayoutHints -- > import XMonad.Layout.LayoutHints
-- > layouts = [ layoutHints tiled , layoutHints $ Mirror tiled ] -- > layouts = [ layoutHints tiled , layoutHints $ Mirror tiled ]
-- %import XMonadContrib.LayoutHints -- %import XMonad.Layout.LayoutHints
-- %layout , layoutHints $ tiled -- %layout , layoutHints $ tiled
-- %layout , layoutHints $ Mirror tiled -- %layout , layoutHints $ Mirror tiled

4
LayoutModifier.hs → XMonad/Layout/LayoutModifier.hs
View File

@ -3,7 +3,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.LayoutModifier -- Module : XMonad.Layout.LayoutModifier
-- Copyright : (c) David Roundy <droundy@darcs.net> -- Copyright : (c) David Roundy <droundy@darcs.net>
-- License : BSD -- License : BSD
-- --
@ -14,7 +14,7 @@
-- A module for writing easy Layouts -- A module for writing easy Layouts
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.LayoutModifier ( module XMonad.Layout.LayoutModifier (
-- * Usage -- * Usage
-- $usage -- $usage
LayoutModifier(..), ModifiedLayout(..) LayoutModifier(..), ModifiedLayout(..)

10
LayoutScreens.hs → XMonad/Layout/LayoutScreens.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.LayoutScreens -- Module : XMonad.Layout.LayoutScreens
-- Copyright : (c) David Roundy <droundy@darcs.net> -- Copyright : (c) David Roundy <droundy@darcs.net>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -12,7 +12,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.LayoutScreens ( module XMonad.Layout.LayoutScreens (
-- * Usage -- * Usage
-- $usage -- $usage
layoutScreens, fixedLayout layoutScreens, fixedLayout
@ -37,7 +37,7 @@ import Graphics.X11.Xlib.Extras
-- --
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.LayoutScreens -- > import XMonad.Layout.LayoutScreens
-- --
-- > , ((modMask .|. shiftMask, xK_space), layoutScreens 2 (TwoPane 0.5 0.5)) -- > , ((modMask .|. shiftMask, xK_space), layoutScreens 2 (TwoPane 0.5 0.5))
-- > , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen) -- > , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen)
@ -46,13 +46,13 @@ import Graphics.X11.Xlib.Extras
-- work properly (e.g. a VNC X server in my case) and you want to be able -- work properly (e.g. a VNC X server in my case) and you want to be able
-- to resize your screen (e.g. to match the size of a remote VNC client): -- to resize your screen (e.g. to match the size of a remote VNC client):
-- --
-- > import XMonadContrib.LayoutScreens -- > import XMonad.Layout.LayoutScreens
-- --
-- > , ((modMask .|. shiftMask, xK_space), -- > , ((modMask .|. shiftMask, xK_space),
-- > layoutScreens 1 (fixedLayout $ Rectangle 0 0 1024 768)) -- > layoutScreens 1 (fixedLayout $ Rectangle 0 0 1024 768))
-- > , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen) -- > , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen)
-- %import XMonadContrib.LayoutScreens -- %import XMonad.Layout.LayoutScreens
-- %keybind , ((modMask .|. shiftMask, xK_space), layoutScreens 2 (twoPane 0.5 0.5)) -- %keybind , ((modMask .|. shiftMask, xK_space), layoutScreens 2 (twoPane 0.5 0.5))
-- %keybind , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen) -- %keybind , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen)

8
MagicFocus.hs → XMonad/Layout/MagicFocus.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.MagicFocus -- Module : XMonad.Layout.MagicFocus
-- Copyright : (c) Peter De Wachter <pdewacht@gmail.com> -- Copyright : (c) Peter De Wachter <pdewacht@gmail.com>
-- License : BSD -- License : BSD
-- --
@ -13,7 +13,7 @@
-- Automagically put the focused window in the master area. -- Automagically put the focused window in the master area.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.MagicFocus module XMonad.Layout.MagicFocus
(-- * Usage (-- * Usage
-- $usage -- $usage
MagicFocus(MagicFocus) MagicFocus(MagicFocus)
@ -24,10 +24,10 @@ import XMonad
import XMonad.StackSet import XMonad.StackSet
-- $usage -- $usage
-- > import XMonadContrib.MagicFocus -- > import XMonad.Layout.MagicFocus
-- > layouts = [ Layout $ MagicFocus tiled , Layout $ MagicFocus $ Mirror tiled ] -- > layouts = [ Layout $ MagicFocus tiled , Layout $ MagicFocus $ Mirror tiled ]
-- %import XMonadContrib.MagicFocus -- %import XMonad.Layout.MagicFocus
-- %layout , Layout $ MagicFocus tiled -- %layout , Layout $ MagicFocus tiled
-- %layout , Layout $ MagicFocus $ Mirror tiled -- %layout , Layout $ MagicFocus $ Mirror tiled

10
Magnifier.hs → XMonad/Layout/Magnifier.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Magnifier -- Module : XMonad.Layout.Magnifier
-- Copyright : (c) Peter De Wachter 2007 -- Copyright : (c) Peter De Wachter 2007
-- License : BSD-style (see xmonad/LICENSE) -- License : BSD-style (see xmonad/LICENSE)
-- --
@ -17,7 +17,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Magnifier ( module XMonad.Layout.Magnifier (
-- * Usage -- * Usage
-- $usage -- $usage
magnifier, magnifier') where magnifier, magnifier') where
@ -25,13 +25,13 @@ module XMonadContrib.Magnifier (
import Graphics.X11.Xlib (Window, Rectangle(..)) import Graphics.X11.Xlib (Window, Rectangle(..))
import XMonad import XMonad
import XMonad.StackSet import XMonad.StackSet
import XMonadContrib.LayoutHelpers import XMonad.Layout.LayoutHelpers
-- $usage -- $usage
-- > import XMonadContrib.Magnifier -- > import XMonad.Layout.Magnifier
-- > layouts = [ magnifier tiled , magnifier $ mirror tiled ] -- > layouts = [ magnifier tiled , magnifier $ mirror tiled ]
-- %import XMonadContrib.Magnifier -- %import XMonad.Layout.Magnifier
-- %layout , magnifier tiled -- %layout , magnifier tiled
-- %layout , magnifier $ mirror tiled -- %layout , magnifier $ mirror tiled

10
Maximize.hs → XMonad/Layout/Maximize.hs
View File

@ -3,7 +3,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Maximize -- Module : XMonad.Layout.Maximize
-- Copyright : (c) 2007 James Webb -- Copyright : (c) 2007 James Webb
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -16,7 +16,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Maximize ( module XMonad.Layout.Maximize (
-- * Usage -- * Usage
-- $usage -- $usage
maximize, maximize,
@ -25,13 +25,13 @@ module XMonadContrib.Maximize (
import Graphics.X11.Xlib import Graphics.X11.Xlib
import XMonad import XMonad
import XMonadContrib.LayoutModifier import XMonad.Layout.LayoutModifier
import Data.List ( partition ) import Data.List ( partition )
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.Maximize -- > import XMonad.Layout.Maximize
-- --
-- > layouts = ... -- > layouts = ...
-- > , Layout $ maximize $ tiled ... -- > , Layout $ maximize $ tiled ...
@ -41,7 +41,7 @@ import Data.List ( partition )
-- > , ((modMask, xK_backslash), withFocused (sendMessage . maximizeRestore)) -- > , ((modMask, xK_backslash), withFocused (sendMessage . maximizeRestore))
-- > ... -- > ...
-- %import XMonadContrib.Maximize -- %import XMonad.Layout.Maximize
-- %layout , Layout $ maximize $ tiled -- %layout , Layout $ maximize $ tiled
data Maximize a = Maximize (Maybe Window) deriving ( Read, Show ) data Maximize a = Maximize (Maybe Window) deriving ( Read, Show )

12
Mosaic.hs → XMonad/Layout/Mosaic.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Mosaic -- Module : XMonad.Layout.Mosaic
-- Copyright : (c) David Roundy <droundy@darcs.net> -- Copyright : (c) David Roundy <droundy@darcs.net>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -15,7 +15,7 @@
-- ratios configurable at run-time by the user. -- ratios configurable at run-time by the user.
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Mosaic ( module XMonad.Layout.Mosaic (
-- * Usage -- * Usage
-- $usage -- $usage
mosaic, expandWindow, shrinkWindow, squareWindow, myclearWindow, mosaic, expandWindow, shrinkWindow, squareWindow, myclearWindow,
@ -35,8 +35,8 @@ import Data.List ( sort )
import Data.Typeable ( Typeable ) import Data.Typeable ( Typeable )
import Control.Monad ( mplus ) import Control.Monad ( mplus )
import XMonadContrib.NamedWindows import XMonad.Util.NamedWindows
import XMonadContrib.Anneal import XMonad.Util.Anneal
-- $usage -- $usage
-- --
@ -44,7 +44,7 @@ import XMonadContrib.Anneal
-- --
-- You can use this module with the following in your Config.hs: -- You can use this module with the following in your Config.hs:
-- --
-- > import XMonadContrib.Mosaic -- > import XMonad.Layout.Mosaic
-- --
-- > layouts :: [Layout Window] -- > layouts :: [Layout Window]
-- > layouts = [ mosaic 0.25 0.5 M.empty, full ] -- > layouts = [ mosaic 0.25 0.5 M.empty, full ]
@ -60,7 +60,7 @@ import XMonadContrib.Anneal
-- > , ((controlMask .|. modMask .|. shiftMask, xK_o ), withNamedWindow (sendMessage . flexibleWindow)) -- > , ((controlMask .|. modMask .|. shiftMask, xK_o ), withNamedWindow (sendMessage . flexibleWindow))
-- --
-- %import XMonadContrib.Mosaic -- %import XMonad.Layout.Mosaic
-- %keybind , ((controlMask .|. modMask .|. shiftMask, xK_h), withNamedWindow (sendMessage . tallWindow)) -- %keybind , ((controlMask .|. modMask .|. shiftMask, xK_h), withNamedWindow (sendMessage . tallWindow))
-- %keybind , ((controlMask .|. modMask .|. shiftMask, xK_l), withNamedWindow (sendMessage . wideWindow)) -- %keybind , ((controlMask .|. modMask .|. shiftMask, xK_l), withNamedWindow (sendMessage . wideWindow))
-- %keybind , ((modMask .|. shiftMask, xK_h ), withNamedWindow (sendMessage . shrinkWindow)) -- %keybind , ((modMask .|. shiftMask, xK_h ), withNamedWindow (sendMessage . shrinkWindow))

8
MosaicAlt.hs → XMonad/Layout/MosaicAlt.hs
View File

@ -3,7 +3,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.MosaicAlt -- Module : XMonad.Layout.MosaicAlt
-- Copyright : (c) 2007 James Webb -- Copyright : (c) 2007 James Webb
-- License : BSD-style (see xmonad/LICENSE) -- License : BSD-style (see xmonad/LICENSE)
-- --
@ -17,7 +17,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.MosaicAlt ( module XMonad.Layout.MosaicAlt (
-- * Usage: -- * Usage:
-- $usage -- $usage
MosaicAlt(..) MosaicAlt(..)
@ -40,7 +40,7 @@ import Graphics.X11.Types ( Window )
-- $usage -- $usage
-- You can use this module with the following in your configuration file: -- You can use this module with the following in your configuration file:
-- --
-- > import XMonadContrib.MosaicAlt -- > import XMonad.Layout.MosaicAlt
-- --
-- > layouts = ... -- > layouts = ...
-- > , Layout $ MosaicAlt M.empty -- > , Layout $ MosaicAlt M.empty
@ -54,7 +54,7 @@ import Graphics.X11.Types ( Window )
-- > , ((modMask .|. controlMask, xK_space), sendMessage resetAlt) -- > , ((modMask .|. controlMask, xK_space), sendMessage resetAlt)
-- > ... -- > ...
-- %import XMonadContrib.MosaicAlt -- %import XMonad.Layout.MosaicAlt
-- %layout , Layout $ MosaicAlt M.empty -- %layout , Layout $ MosaicAlt M.empty
data HandleWindowAlt = data HandleWindowAlt =

10
NoBorders.hs → XMonad/Layout/NoBorders.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.NoBorders -- Module : XMonad.Layout.NoBorders
-- Copyright : (c) David Roundy <droundy@darcs.net> -- Copyright : (c) David Roundy <droundy@darcs.net>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -17,7 +17,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.NoBorders ( module XMonad.Layout.NoBorders (
-- * Usage -- * Usage
-- $usage -- $usage
noBorders, noBorders,
@ -30,14 +30,14 @@ import Control.Monad.Reader (asks)
import Graphics.X11.Xlib import Graphics.X11.Xlib
import XMonad import XMonad
import XMonadContrib.LayoutModifier import XMonad.Layout.LayoutModifier
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import Data.List ((\\)) import Data.List ((\\))
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.NoBorders -- > import XMonad.Layout.NoBorders
-- --
-- and modify the layouts to call noBorders on the layouts you want to lack -- and modify the layouts to call noBorders on the layouts you want to lack
-- borders -- borders
@ -45,7 +45,7 @@ import Data.List ((\\))
-- > layouts = [ Layout (noBorders Full), ... ] -- > layouts = [ Layout (noBorders Full), ... ]
-- --
-- %import XMonadContrib.NoBorders -- %import XMonad.Layout.NoBorders
-- %layout -- prepend noBorders to default layouts above to remove their borders, like so: -- %layout -- prepend noBorders to default layouts above to remove their borders, like so:
-- %layout , noBorders Full -- %layout , noBorders Full

6
ResizableTile.hs → XMonad/Layout/ResizableTile.hs
View File

@ -3,7 +3,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.ResizableTile -- Module : XMonad.Layout.ResizableTile
-- Copyright : (c) MATSUYAMA Tomohiro <t.matsuyama.pub@gmail.com> -- Copyright : (c) MATSUYAMA Tomohiro <t.matsuyama.pub@gmail.com>
-- License : BSD-style (see LICENSE) -- License : BSD-style (see LICENSE)
-- --
@ -15,7 +15,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.ResizableTile ( module XMonad.Layout.ResizableTile (
-- * Usage -- * Usage
-- $usage -- $usage
ResizableTall(..), MirrorResize(..) ResizableTall(..), MirrorResize(..)
@ -32,7 +32,7 @@ import Control.Monad
-- --
-- To use, modify your Config.hs to: -- To use, modify your Config.hs to:
-- --
-- > import XMonadContrib.ResizableTile -- > import XMonad.Layout.ResizableTile
-- --
-- and add a keybinding: -- and add a keybinding:
-- --

8
Roledex.hs → XMonad/Layout/Roledex.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Roledex -- Module : XMonad.Layout.Roledex
-- Copyright : (c) tim.thelion@gmail.com -- Copyright : (c) tim.thelion@gmail.com
-- License : BSD -- License : BSD
-- --
@ -15,7 +15,7 @@
-- This is a completely pointless layout which acts like Microsoft's Flip 3D -- This is a completely pointless layout which acts like Microsoft's Flip 3D
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Roledex ( module XMonad.Layout.Roledex (
-- * Usage -- * Usage
-- $usage -- $usage
Roledex(Roledex)) where Roledex(Roledex)) where
@ -28,10 +28,10 @@ import Data.Ratio
-- $usage -- $usage
-- --
-- > import XMonadContrib.Roledex -- > import XMonad.Layout.Roledex
-- > layouts = [ Layout Roledex ] -- > layouts = [ Layout Roledex ]
-- %import XMonadContrib.Roledex -- %import XMonad.Layout.Roledex
-- %layout , Layout Roledex -- %layout , Layout Roledex
data Roledex a = Roledex deriving ( Show, Read ) data Roledex a = Roledex deriving ( Show, Read )

8
Spiral.hs → XMonad/Layout/Spiral.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Spiral -- Module : XMonad.Layout.Spiral
-- Copyright : (c) Joe Thornber <joe.thornber@gmail.com> -- Copyright : (c) Joe Thornber <joe.thornber@gmail.com>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -14,7 +14,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Spiral ( module XMonad.Layout.Spiral (
-- * Usage -- * Usage
-- $usage -- $usage
spiral spiral
@ -33,11 +33,11 @@ import XMonad.StackSet ( integrate )
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.Spiral -- > import XMonad.Layout.Spiral
-- --
-- > layouts = [ ..., Layout $ spiral (1 % 1), ... ] -- > layouts = [ ..., Layout $ spiral (1 % 1), ... ]
-- %import XMonadContrib.Spiral -- %import XMonad.Layout.Spiral
-- %layout , Layout $ spiral (1 % 1) -- %layout , Layout $ spiral (1 % 1)
fibs :: [Integer] fibs :: [Integer]

12
Square.hs → XMonad/Layout/Square.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Square -- Module : XMonad.Layout.Square
-- Copyright : (c) David Roundy <droundy@darcs.net> -- Copyright : (c) David Roundy <droundy@darcs.net>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -13,13 +13,13 @@
-- A layout that splits the screen into a square area and the rest of the -- A layout that splits the screen into a square area and the rest of the
-- screen. -- screen.
-- This is probably only ever useful in combination with -- This is probably only ever useful in combination with
-- "XMonadContrib.Combo". -- "XMonad.Layout.Combo".
-- It sticks one window in a square region, and makes the rest -- It sticks one window in a square region, and makes the rest
-- of the windows live with what's left (in a full-screen sense). -- of the windows live with what's left (in a full-screen sense).
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Square ( module XMonad.Layout.Square (
-- * Usage -- * Usage
-- $usage -- $usage
Square(..) ) where Square(..) ) where
@ -31,16 +31,16 @@ import XMonad.StackSet ( integrate )
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.Square -- > import XMonad.Layout.Square
-- --
-- An example layout using square together with "XMonadContrib.Combo" -- An example layout using square together with "XMonad.Layout.Combo"
-- to make the very last area square: -- to make the very last area square:
-- --
-- > , combo (combo (mirror $ twoPane 0.03 0.85),1)] (twoPane 0.03 0.5) ) -- > , combo (combo (mirror $ twoPane 0.03 0.85),1)] (twoPane 0.03 0.5) )
-- > [(twoPane 0.03 0.2,1),(combo [(twoPane 0.03 0.8,1),(square,1)] -- > [(twoPane 0.03 0.2,1),(combo [(twoPane 0.03 0.8,1),(square,1)]
-- > [(tabbed,3),(tabbed,30),(tabbed,1),(tabbed,1)] -- > [(tabbed,3),(tabbed,30),(tabbed,1),(tabbed,1)]
-- %import XMonadContrib.Square -- %import XMonad.Layout.Square
data Square a = Square deriving ( Read, Show ) data Square a = Square deriving ( Read, Show )

6
SwitchTrans.hs → XMonad/Layout/SwitchTrans.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.SwitchTrans -- Module : XMonad.Layout.SwitchTrans
-- Copyright : (c) Lukas Mai -- Copyright : (c) Lukas Mai
-- License : BSD-style (see LICENSE) -- License : BSD-style (see LICENSE)
-- --
@ -39,7 +39,7 @@
-- > ]) -- > ])
-- > ) [ Layout tiled ] -- > ) [ Layout tiled ]
-- --
-- (The @noBorders@ transformer is from "XMonadContrib.NoBorders".) -- (The @noBorders@ transformer is from "XMonad.Layout.NoBorders".)
-- --
-- This example is probably overkill but it's very close to what I actually use. -- This example is probably overkill but it's very close to what I actually use.
-- Anyway, this layout behaves like the default @tiled@ layout, until you send it -- Anyway, this layout behaves like the default @tiled@ layout, until you send it
@ -68,7 +68,7 @@
-- transformer. -- transformer.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.SwitchTrans ( module XMonad.Layout.SwitchTrans (
Toggle(..), Toggle(..),
Enable(..), Enable(..),
Disable(..), Disable(..),

14
Tabbed.hs → XMonad/Layout/Tabbed.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Tabbed -- Module : XMonad.Layout.Tabbed
-- Copyright : (c) 2007 David Roundy, Andrea Rossato -- Copyright : (c) 2007 David Roundy, Andrea Rossato
-- License : BSD-style (see xmonad/LICENSE) -- License : BSD-style (see xmonad/LICENSE)
-- --
@ -14,7 +14,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Tabbed ( module XMonad.Layout.Tabbed (
-- * Usage: -- * Usage:
-- $usage -- $usage
tabbed tabbed
@ -35,14 +35,14 @@ import XMonad
import XMonad.Operations import XMonad.Operations
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonadContrib.NamedWindows import XMonad.Util.NamedWindows
import XMonadContrib.Invisible import XMonad.Util.Invisible
import XMonadContrib.XUtils import XMonad.Util.XUtils
-- $usage -- $usage
-- You can use this module with the following in your configuration file: -- You can use this module with the following in your configuration file:
-- --
-- > import XMonadContrib.Tabbed -- > import XMonad.Layout.Tabbed
-- --
-- > layouts :: [Layout Window] -- > layouts :: [Layout Window]
-- > layouts = [ Layout tiled -- > layouts = [ Layout tiled
@ -65,7 +65,7 @@ import XMonadContrib.XUtils
-- > layouts = [ ... -- > layouts = [ ...
-- > , Layout $ tabbed shrinkText myTabConfig ] -- > , Layout $ tabbed shrinkText myTabConfig ]
-- %import XMonadContrib.Tabbed -- %import XMonad.Layout.Tabbed
-- %layout , tabbed shrinkText defaultTConf -- %layout , tabbed shrinkText defaultTConf
tabbed :: Shrinker -> TConf -> Tabbed a tabbed :: Shrinker -> TConf -> Tabbed a

8
ThreeColumns.hs → XMonad/Layout/ThreeColumns.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.ThreeColumns -- Module : XMonad.Layout.ThreeColumns
-- Copyright : (c) Kai Grossjohann <kai@emptydomain.de> -- Copyright : (c) Kai Grossjohann <kai@emptydomain.de>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -14,7 +14,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.ThreeColumns ( module XMonad.Layout.ThreeColumns (
-- * Usage -- * Usage
-- $usage -- $usage
ThreeCol(..) ThreeCol(..)
@ -35,13 +35,13 @@ import Graphics.X11.Xlib
-- --
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.ThreeColumns -- > import XMonad.Layout.ThreeColumns
-- --
-- and add, to the list of layouts: -- and add, to the list of layouts:
-- --
-- > ThreeCol nmaster delta ratio -- > ThreeCol nmaster delta ratio
-- %import XMonadContrib.ThreeColumns -- %import XMonad.Layout.ThreeColumns
-- %layout , ThreeCol nmaster delta ratio -- %layout , ThreeCol nmaster delta ratio
data ThreeCol a = ThreeCol Int Rational Rational deriving (Show,Read) data ThreeCol a = ThreeCol Int Rational Rational deriving (Show,Read)

6
TilePrime.hs → XMonad/Layout/TilePrime.hs
View File

@ -14,7 +14,7 @@
-- ----------------------------------------------------------------------------- -- -----------------------------------------------------------------------------
-- --
module XMonadContrib.TilePrime ( module XMonad.Layout.TilePrime (
-- * Usage -- * Usage
-- $usage -- $usage
TilePrime(TilePrime) TilePrime(TilePrime)
@ -32,7 +32,7 @@ import {-#SOURCE#-} Config (borderWidth)
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.TilePrime -- > import XMonad.Layout.TilePrime
-- --
-- and add the following line to your 'layouts' -- and add the following line to your 'layouts'
-- --
@ -40,7 +40,7 @@ import {-#SOURCE#-} Config (borderWidth)
-- --
-- Use True as the last argument to get a wide layout. -- Use True as the last argument to get a wide layout.
-- %import XMonadContrib.TilePrime -- %import XMonad.Layout.TilePrime
-- %layout , Layout $ TilePrime nmaster delta ratio False -- %layout , Layout $ TilePrime nmaster delta ratio False
data TilePrime a = TilePrime data TilePrime a = TilePrime

6
ToggleLayouts.hs → XMonad/Layout/ToggleLayouts.hs
View File

@ -3,7 +3,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.ToggleLayouts -- Module : XMonad.Layout.ToggleLayouts
-- Copyright : (c) David Roundy <droundy@darcs.net> -- Copyright : (c) David Roundy <droundy@darcs.net>
-- License : BSD -- License : BSD
-- --
@ -14,7 +14,7 @@
-- A module for writing easy Layouts -- A module for writing easy Layouts
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.ToggleLayouts ( module XMonad.Layout.ToggleLayouts (
-- * Usage -- * Usage
-- $usage -- $usage
toggleLayouts, ToggleLayout(..) toggleLayouts, ToggleLayout(..)
@ -25,7 +25,7 @@ import XMonad
-- $usage -- $usage
-- Use toggleLayouts to toggle between two layouts. -- Use toggleLayouts to toggle between two layouts.
-- --
-- import XMonadContrib.ToggleLayouts -- import XMonad.Layout.ToggleLayouts
-- --
-- and add to your layoutHook something like -- and add to your layoutHook something like
-- --

8
TwoPane.hs → XMonad/Layout/TwoPane.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.TwoPane -- Module : XMonad.Layout.TwoPane
-- Copyright : (c) Spencer Janssen <sjanssen@cse.unl.edu> -- Copyright : (c) Spencer Janssen <sjanssen@cse.unl.edu>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -16,7 +16,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.TwoPane ( module XMonad.Layout.TwoPane (
-- * Usage -- * Usage
-- $usage -- $usage
TwoPane (..) TwoPane (..)
@ -30,13 +30,13 @@ import XMonad.StackSet ( focus, up, down)
-- --
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.TwoPane -- > import XMonad.Layout.TwoPane
-- --
-- and add, to the list of layouts: -- and add, to the list of layouts:
-- --
-- > , (Layout $ TwoPane 0.03 0.5) -- > , (Layout $ TwoPane 0.03 0.5)
-- %import XMonadContrib.TwoPane -- %import XMonad.Layout.TwoPane
-- %layout , (Layout $ TwoPane 0.03 0.5) -- %layout , (Layout $ TwoPane 0.03 0.5)
data TwoPane a = data TwoPane a =

14
WindowNavigation.hs → XMonad/Layout/WindowNavigation.hs
View File

@ -3,7 +3,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.WindowNavigation -- Module : XMonad.Layout.WindowNavigation
-- Copyright : (c) 2007 David Roundy <droundy@darcs.net> -- Copyright : (c) 2007 David Roundy <droundy@darcs.net>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -15,7 +15,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.WindowNavigation ( module XMonad.Layout.WindowNavigation (
-- * Usage -- * Usage
-- $usage -- $usage
windowNavigation, configurableNavigation, windowNavigation, configurableNavigation,
@ -32,14 +32,14 @@ import Data.List ( nub, sortBy, (\\) )
import XMonad import XMonad
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonad.Operations ( windows, focus ) import XMonad.Operations ( windows, focus )
import XMonadContrib.LayoutModifier import XMonad.Layout.LayoutModifier
import XMonadContrib.Invisible import XMonad.Util.Invisible
import XMonadContrib.XUtils import XMonad.Util.XUtils
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.WindowNavigation -- > import XMonad.Layout.WindowNavigation
-- > -- >
-- > layoutHook = Layout $ windowNavigation $ Select ... -- > layoutHook = Layout $ windowNavigation $ Select ...
-- --
@ -54,7 +54,7 @@ import XMonadContrib.XUtils
-- > , ((modMask, xK_Up ), sendMessage $ Go U) -- > , ((modMask, xK_Up ), sendMessage $ Go U)
-- > , ((modMask, xK_Down ), sendMessage $ Go D) -- > , ((modMask, xK_Down ), sendMessage $ Go D)
-- %import XMonadContrib.WindowNavigation -- %import XMonad.Layout.WindowNavigation
-- %keybind , ((modMask, xK_Right), sendMessage $ Go R) -- %keybind , ((modMask, xK_Right), sendMessage $ Go R)
-- %keybind , ((modMask, xK_Left ), sendMessage $ Go L) -- %keybind , ((modMask, xK_Left ), sendMessage $ Go L)
-- %keybind , ((modMask, xK_Up ), sendMessage $ Go U) -- %keybind , ((modMask, xK_Up ), sendMessage $ Go U)

16
WorkspaceDir.hs → XMonad/Layout/WorkspaceDir.hs
View File

@ -3,7 +3,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.WorkspaceDir -- Module : XMonad.Layout.WorkspaceDir
-- Copyright : (c) 2007 David Roundy <droundy@darcs.net> -- Copyright : (c) 2007 David Roundy <droundy@darcs.net>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -22,7 +22,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.WorkspaceDir ( module XMonad.Layout.WorkspaceDir (
-- * Usage -- * Usage
-- $usage -- $usage
workspaceDir, workspaceDir,
@ -33,15 +33,15 @@ import System.Directory ( setCurrentDirectory )
import XMonad import XMonad
import XMonad.Operations ( sendMessage ) import XMonad.Operations ( sendMessage )
import XMonadContrib.Run ( runProcessWithInput ) import XMonad.Util.Run ( runProcessWithInput )
import XMonadContrib.XPrompt ( XPConfig ) import XMonad.Prompt ( XPConfig )
import XMonadContrib.DirectoryPrompt ( directoryPrompt ) import XMonad.Prompt.Directory ( directoryPrompt )
import XMonadContrib.LayoutModifier import XMonad.Layout.LayoutModifier
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.WorkspaceDir -- > import XMonad.Layout.WorkspaceDir
-- > -- >
-- > layouts = map (workspaceDir "~") [ tiled, ... ] -- > layouts = map (workspaceDir "~") [ tiled, ... ]
-- --
@ -49,7 +49,7 @@ import XMonadContrib.LayoutModifier
-- --
-- > , ((modMask .|. shiftMask, xK_x ), changeDir defaultXPConfig) -- > , ((modMask .|. shiftMask, xK_x ), changeDir defaultXPConfig)
-- %import XMonadContrib.WorkspaceDir -- %import XMonad.Layout.WorkspaceDir
-- %keybind , ((modMask .|. shiftMask, xK_x ), changeDir defaultXPConfig) -- %keybind , ((modMask .|. shiftMask, xK_x ), changeDir defaultXPConfig)
-- %layout -- prepend 'map (workspaceDir "~")' to layouts definition above, -- %layout -- prepend 'map (workspaceDir "~")' to layouts definition above,
-- %layout -- just before the list, like the following (don't uncomment next line): -- %layout -- just before the list, like the following (don't uncomment next line):

6
XPrompt.hs → XMonad/Prompt.hs
View File

@ -14,7 +14,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.XPrompt ( module XMonad.Prompt (
-- * Usage -- * Usage
-- $usage -- $usage
mkXPrompt mkXPrompt
@ -46,8 +46,8 @@ import Graphics.X11.Xlib.Extras
import XMonad hiding (config, io) import XMonad hiding (config, io)
import XMonad.Operations (initColor) import XMonad.Operations (initColor)
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonadContrib.XUtils import XMonad.Util.XUtils
import XMonadContrib.XSelection (getSelection) import XMonad.Util.XSelection (getSelection)
import Control.Arrow ((***),(&&&)) import Control.Arrow ((***),(&&&))
import Control.Monad.Reader import Control.Monad.Reader

10
DirectoryPrompt.hs → XMonad/Prompt/Directory.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.DirectoryPrompt -- Module : XMonad.Prompt.Directory
-- Copyright : (C) 2007 Andrea Rossato, David Roundy -- Copyright : (C) 2007 Andrea Rossato, David Roundy
-- License : BSD3 -- License : BSD3
-- --
@ -12,18 +12,18 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.DirectoryPrompt ( module XMonad.Prompt.Directory (
-- * Usage -- * Usage
-- $usage -- $usage
directoryPrompt directoryPrompt
) where ) where
import XMonad import XMonad
import XMonadContrib.XPrompt import XMonad.Prompt
import XMonadContrib.Run ( runProcessWithInput ) import XMonad.Util.Run ( runProcessWithInput )
-- $usage -- $usage
-- For an example usage see "XMonadContrib.WorkspaceDir" -- For an example usage see "XMonad.Layout.WorkspaceDir"
data Dir = Dir String data Dir = Dir String

16
ManPrompt.hs → XMonad/Prompt/Man.hs
View File

@ -1,7 +1,7 @@
{-# OPTIONS_GHC -Wall #-} {-# OPTIONS_GHC -Wall #-}
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.ManPrompt -- Module : XMonad.Prompt.Man
-- Copyright : (c) 2007 Valery V. Vorotyntsev -- Copyright : (c) 2007 Valery V. Vorotyntsev
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -19,7 +19,7 @@
-- * test with QuickCheck -- * test with QuickCheck
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.ManPrompt ( module XMonad.Prompt.Man (
-- * Usage -- * Usage
-- $usage -- $usage
manPrompt manPrompt
@ -27,9 +27,9 @@ module XMonadContrib.ManPrompt (
) where ) where
import XMonad import XMonad
import XMonadContrib.XPrompt import XMonad.Prompt
import XMonadContrib.Run import XMonad.Util.Run
import XMonadContrib.ShellPrompt (split) import XMonad.Prompt.Shell (split)
import System.Directory import System.Directory
import System.Process import System.Process
@ -43,14 +43,14 @@ import Data.Maybe
-- $usage -- $usage
-- 1. In Config.hs add: -- 1. In Config.hs add:
-- --
-- > import XMonadContrib.ManPrompt -- > import XMonad.Prompt.ManPrompt
-- --
-- 2. In your keybindings add something like: -- 2. In your keybindings add something like:
-- --
-- > , ((modMask, xK_F1), manPrompt defaultXPConfig) -- mod-f1 %! Query for manual page to be displayed -- > , ((modMask, xK_F1), manPrompt defaultXPConfig) -- mod-f1 %! Query for manual page to be displayed
-- %import XMonadContrib.XPrompt -- %import XMonad.Prompt.XPrompt
-- %import XMonadContrib.ManPrompt -- %import XMonad.Prompt.ManPrompt
-- %keybind , ((modMask, xK_F1), manPrompt defaultXPConfig) -- %keybind , ((modMask, xK_F1), manPrompt defaultXPConfig)
data Man = Man data Man = Man

16
ShellPrompt.hs → XMonad/Prompt/Shell.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.ShellPrompt -- Module : XMonad.Prompt.Shell
-- Copyright : (C) 2007 Andrea Rossato -- Copyright : (C) 2007 Andrea Rossato
-- License : BSD3 -- License : BSD3
-- --
@ -12,7 +12,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.ShellPrompt ( module XMonad.Prompt.Shell(
-- * Usage -- * Usage
-- $usage -- $usage
shellPrompt shellPrompt
@ -27,24 +27,24 @@ import Control.Monad
import Data.List import Data.List
import System.Directory import System.Directory
import System.IO import System.IO
import XMonadContrib.Run import XMonad.Util.Run
import XMonad import XMonad
import XMonadContrib.XPrompt import XMonad.Prompt
-- $usage -- $usage
-- --
-- 1. In Config.hs add: -- 1. In Config.hs add:
-- --
-- > import XMonadContrib.XPrompt -- > import XMonad.Prompt
-- > import XMonadContrib.ShellPrompt -- > import XMonad.Prompt.Shell
-- --
-- 2. In your keybindings add something like: -- 2. In your keybindings add something like:
-- --
-- > , ((modMask .|. controlMask, xK_x), shellPrompt defaultXPConfig) -- > , ((modMask .|. controlMask, xK_x), shellPrompt defaultXPConfig)
-- --
-- %import XMonadContrib.XPrompt -- %import XMonad.Prompt
-- %import XMonadContrib.ShellPrompt -- %import XMonad.Prompt.ShellPrompt
-- %keybind , ((modMask .|. controlMask, xK_x), shellPrompt defaultXPConfig) -- %keybind , ((modMask .|. controlMask, xK_x), shellPrompt defaultXPConfig)
data Shell = Shell data Shell = Shell

16
SshPrompt.hs → XMonad/Prompt/Ssh.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.SshPrompt -- Module : XMonad.Prompt.Ssh
-- Copyright : (C) 2007 Andrea Rossato -- Copyright : (C) 2007 Andrea Rossato
-- License : BSD3 -- License : BSD3
-- --
@ -12,15 +12,15 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.SshPrompt ( module XMonad.Prompt.Ssh(
-- * Usage -- * Usage
-- $usage -- $usage
sshPrompt sshPrompt
) where ) where
import XMonad import XMonad
import XMonadContrib.Run import XMonad.Util.Run
import XMonadContrib.XPrompt import XMonad.Prompt
import System.Directory import System.Directory
import System.Environment import System.Environment
@ -32,16 +32,16 @@ import Data.Maybe
-- $usage -- $usage
-- 1. In Config.hs add: -- 1. In Config.hs add:
-- --
-- > import XMonadContrib.XPrompt -- > import XMonad.Prompt
-- > import XMonadContrib.SshPrompt -- > import XMonad.Prompt.SshPrompt
-- --
-- 2. In your keybindings add something like: -- 2. In your keybindings add something like:
-- --
-- > , ((modMask .|. controlMask, xK_s), sshPrompt defaultXPConfig) -- > , ((modMask .|. controlMask, xK_s), sshPrompt defaultXPConfig)
-- --
-- %import XMonadContrib.XPrompt -- %import XMonad.Prompt
-- %import XMonadContrib.SshPrompt -- %import XMonad.Prompt.SshPrompt
-- %keybind , ((modMask .|. controlMask, xK_s), sshPrompt defaultXPConfig) -- %keybind , ((modMask .|. controlMask, xK_s), sshPrompt defaultXPConfig)
data Ssh = Ssh data Ssh = Ssh

16
WindowPrompt.hs → XMonad/Prompt/Window.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.WindowPrompt -- Module : XMonad.Prompt.Window
-- Copyright : Devin Mullins <me@twifkak.com> -- Copyright : Devin Mullins <me@twifkak.com>
-- Andrea Rossato <andrea.rossato@unibz.it> -- Andrea Rossato <andrea.rossato@unibz.it>
-- License : BSD-style (see LICENSE) -- License : BSD-style (see LICENSE)
@ -14,7 +14,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.WindowPrompt module XMonad.Prompt.Window
( (
-- * Usage -- * Usage
-- $usage -- $usage
@ -28,8 +28,8 @@ import Data.List
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonad import XMonad
import XMonad.Operations (windows) import XMonad.Operations (windows)
import XMonadContrib.XPrompt import XMonad.Prompt
import XMonadContrib.WindowBringer import XMonad.Actions.WindowBringer
-- $usage -- $usage
-- WindowPrompt brings windows to you and you to windows. -- WindowPrompt brings windows to you and you to windows.
@ -38,16 +38,16 @@ import XMonadContrib.WindowBringer
-- --
-- Place in your Config.hs: -- Place in your Config.hs:
-- --
-- > import XMonadContrib.XPrompt -- > import XMonad.Prompt
-- > import XMonadContrib.WindowPrompt -- > import XMonad.Prompt.WindowPrompt
-- --
-- and in the keys definition: -- and in the keys definition:
-- --
-- > , ((modMask .|. shiftMask, xK_g ), windowPromptGoto defaultXPConfig) -- > , ((modMask .|. shiftMask, xK_g ), windowPromptGoto defaultXPConfig)
-- > , ((modMask .|. shiftMask, xK_b ), windowPromptBring defaultXPConfig) -- > , ((modMask .|. shiftMask, xK_b ), windowPromptBring defaultXPConfig)
-- %import XMonadContrib.XPrompt -- %import XMonad.Prompt
-- %import XMonadContrib.WindowPrompt -- %import XMonad.Prompt.WindowPrompt
-- %keybind , ((modMask .|. shiftMask, xK_g ), windowPromptGoto defaultXPConfig) -- %keybind , ((modMask .|. shiftMask, xK_g ), windowPromptGoto defaultXPConfig)
-- %keybind , ((modMask .|. shiftMask, xK_b ), windowPromptBring defaultXPConfig) -- %keybind , ((modMask .|. shiftMask, xK_b ), windowPromptBring defaultXPConfig)

8
WorkspacePrompt.hs → XMonad/Prompt/Workspace.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.WorkspacePrompt -- Module : XMonad.Prompt.Workspace
-- Copyright : (C) 2007 Andrea Rossato, David Roundy -- Copyright : (C) 2007 Andrea Rossato, David Roundy
-- License : BSD3 -- License : BSD3
-- --
@ -12,7 +12,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.WorkspacePrompt ( module XMonad.Prompt.Workspace (
-- * Usage -- * Usage
-- $usage -- $usage
workspacePrompt workspacePrompt
@ -21,13 +21,13 @@ module XMonadContrib.WorkspacePrompt (
import Control.Monad.State ( gets ) import Control.Monad.State ( gets )
import Data.List ( sort ) import Data.List ( sort )
import XMonad hiding ( workspaces ) import XMonad hiding ( workspaces )
import XMonadContrib.XPrompt import XMonad.Prompt
import XMonad.StackSet ( workspaces, tag ) import XMonad.StackSet ( workspaces, tag )
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.WorkspacePrompt -- > import XMonad.Prompt.WorkspacePrompt
-- --
-- > , ((modMask .|. shiftMask, xK_m ), workspacePrompt myXPConfig (windows . W.shift)) -- > , ((modMask .|. shiftMask, xK_m ), workspacePrompt myXPConfig (windows . W.shift))

16
XMonadPrompt.hs → XMonad/Prompt/XMonad.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.XMonadPrompt -- Module : XMonad.Prompt.XMonad
-- Copyright : (C) 2007 Andrea Rossato -- Copyright : (C) 2007 Andrea Rossato
-- License : BSD3 -- License : BSD3
-- --
@ -12,7 +12,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.XMonadPrompt ( module XMonad.Prompt.XMonad (
-- * Usage -- * Usage
-- $usage -- $usage
xmonadPrompt, xmonadPrompt,
@ -20,23 +20,23 @@ module XMonadContrib.XMonadPrompt (
) where ) where
import XMonad import XMonad
import XMonadContrib.XPrompt import XMonad.Prompt
import XMonadContrib.Commands (defaultCommands, runCommand') import XMonad.Actions.Commands (defaultCommands, runCommand')
-- $usage -- $usage
-- --
-- in Config.hs add: -- in Config.hs add:
-- --
-- > import XMonadContrib.XPrompt -- > import XMonad.Prompt
-- > import XMonadContrib.XMonadPrompt -- > import XMonad.Prompt.XMonad
-- --
-- in you keybindings add: -- in you keybindings add:
-- --
-- > , ((modMask .|. controlMask, xK_x), xmonadPrompt defaultXPConfig) -- > , ((modMask .|. controlMask, xK_x), xmonadPrompt defaultXPConfig)
-- --
-- %import XMonadContrib.XPrompt -- %import XMonad.Prompt
-- %import XMonadContrib.XMonadPrompt -- %import XMonad.Prompt.XMonad
-- %keybind , ((modMask .|. controlMask, xK_x), xmonadPrompt defaultXPConfig) -- %keybind , ((modMask .|. controlMask, xK_x), xmonadPrompt defaultXPConfig)
data XMonad = XMonad data XMonad = XMonad

6
Anneal.hs → XMonad/Util/Anneal.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Anneal -- Module : XMonad.Util.Anneal
-- Copyright : (c) David Roundy -- Copyright : (c) David Roundy
-- License : BSD-style (see LICENSE) -- License : BSD-style (see LICENSE)
-- --
@ -12,13 +12,13 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Anneal ( Rated(Rated), the_value, the_rating module XMonad.Util.Anneal ( Rated(Rated), the_value, the_rating
, anneal, annealMax ) where , anneal, annealMax ) where
import System.Random ( StdGen, Random, mkStdGen, randomR ) import System.Random ( StdGen, Random, mkStdGen, randomR )
import Control.Monad.State ( State, runState, put, get, gets, modify ) import Control.Monad.State ( State, runState, put, get, gets, modify )
-- %import XMonadContrib.Anneal -- %import XMonad.Util.Anneal
data Rated a b = Rated !a !b data Rated a b = Rated !a !b
deriving ( Show ) deriving ( Show )

10
Dmenu.hs → XMonad/Util/Dmenu.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Dmenu -- Module : XMonad.Util.Dmenu
-- Copyright : (c) Spencer Janssen <sjanssen@cse.unl.edu> -- Copyright : (c) Spencer Janssen <sjanssen@cse.unl.edu>
-- License : BSD-style (see LICENSE) -- License : BSD-style (see LICENSE)
-- --
@ -14,7 +14,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Dmenu ( module XMonad.Util.Dmenu (
-- * Usage -- * Usage
-- $usage -- $usage
dmenu, dmenuXinerama, dmenuMap dmenu, dmenuXinerama, dmenuMap
@ -24,14 +24,14 @@ import XMonad
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import qualified Data.Map as M import qualified Data.Map as M
import Control.Monad.State import Control.Monad.State
import XMonadContrib.Run import XMonad.Util.Run
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
-- --
-- > import XMonadContrib.Dmenu -- > import XMonad.Util.Dmenu
-- %import XMonadContrib.Dmenu -- %import XMonad.Util.Dmenu
-- | Starts dmenu on the current screen. Requires this patch to dmenu: -- | Starts dmenu on the current screen. Requires this patch to dmenu:
-- <http://www.jcreigh.com/dmenu/dmenu-3.2-xinerama.patch> -- <http://www.jcreigh.com/dmenu/dmenu-3.2-xinerama.patch>

8
Dzen.hs → XMonad/Util/Dzen.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Dzen -- Module : XMonad.Util.Dzen
-- Copyright : (c) glasser@mit.edu -- Copyright : (c) glasser@mit.edu
-- License : BSD -- License : BSD
-- --
@ -12,7 +12,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Dzen (dzen, dzenWithArgs, dzenScreen, module XMonad.Util.Dzen (dzen, dzenWithArgs, dzenScreen,
dzenUrgencyHook, dzenUrgencyHookWithArgs, dzenUrgencyHook, dzenUrgencyHookWithArgs,
seconds) where seconds) where
@ -24,8 +24,8 @@ import Graphics.X11.Types (Window)
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonad import XMonad
import XMonadContrib.NamedWindows (getName) import XMonad.Util.NamedWindows (getName)
import XMonadContrib.Run (runProcessWithInputAndWait, seconds) import XMonad.Util.Run (runProcessWithInputAndWait, seconds)
-- | @dzen str timeout@ pipes @str@ to dzen2 for @timeout@ microseconds. -- | @dzen str timeout@ pipes @str@ to dzen2 for @timeout@ microseconds.
-- Example usage: -- Example usage:

4
Invisible.hs → XMonad/Util/Invisible.hs
View File

@ -2,7 +2,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Invisible -- Module : XMonad.Util.Invisible
-- Copyright : (c) 2007 Andrea Rossato, David Roundy -- Copyright : (c) 2007 Andrea Rossato, David Roundy
-- License : BSD-style (see xmonad/LICENSE) -- License : BSD-style (see xmonad/LICENSE)
-- --
@ -14,7 +14,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Invisible ( module XMonad.Util.Invisible (
-- * Usage: -- * Usage:
-- $usage -- $usage
Invisible (..) Invisible (..)

4
NamedWindows.hs → XMonad/Util/NamedWindows.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.NamedWindows -- Module : XMonad.Util.NamedWindows
-- Copyright : (c) David Roundy <droundy@darcs.net> -- Copyright : (c) David Roundy <droundy@darcs.net>
-- License : BSD3-style (see LICENSE) -- License : BSD3-style (see LICENSE)
-- --
@ -13,7 +13,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.NamedWindows ( module XMonad.Util.NamedWindows (
-- * Usage -- * Usage
-- $usage -- $usage
NamedWindow, NamedWindow,

16
Run.hs → XMonad/Util/Run.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.Run -- Module : XMonad.Util.Run
-- Copyright : (C) 2007 Spencer Janssen, Andrea Rossato, glasser@mit.edu -- Copyright : (C) 2007 Spencer Janssen, Andrea Rossato, glasser@mit.edu
-- License : BSD-style (see LICENSE) -- License : BSD-style (see LICENSE)
-- --
@ -9,13 +9,13 @@
-- Portability : unportable -- Portability : unportable
-- --
-- This modules provides several commands to run an external process. -- This modules provides several commands to run an external process.
-- It is composed of functions formerly defined in XMonadContrib.Dmenu (by -- It is composed of functions formerly defined in XMonad.Util.Dmenu (by
-- Spenver Jannsen), XMonadContrib.Dzen (by glasser@mit.edu) and -- Spenver Jannsen), XMonad.Util.Dzen (by glasser@mit.edu) and
-- XMonadContrib.RunInXTerm (by Andrea Rossato). -- XMonad.Util.RunInXTerm (by Andrea Rossato).
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.Run ( module XMonad.Util.Run (
-- * Usage -- * Usage
-- $usage -- $usage
runProcessWithInput, runProcessWithInput,
@ -38,12 +38,12 @@ import System.Process (runInteractiveProcess, waitForProcess)
import XMonad import XMonad
-- $usage -- $usage
-- For an example usage of runInTerm see XMonadContrib.SshPrompt -- For an example usage of runInTerm see XMonad.Prompt.Ssh
-- --
-- For an example usage of runProcessWithInput see -- For an example usage of runProcessWithInput see
-- XMonadContrib.{DirectoryPrompt,Dmenu,ShellPrompt,WmiiActions,WorkspaceDir} -- XMonad.Prompt.{DirectoryPrompt,Dmenu,ShellPrompt,WmiiActions,WorkspaceDir}
-- --
-- For an example usage of runProcessWithInputAndWait see XMonadContrib.Dzen -- For an example usage of runProcessWithInputAndWait see XMonad.Util.Dzen
-- | Returns Just output if the command succeeded, and Nothing if it didn't. -- | Returns Just output if the command succeeded, and Nothing if it didn't.
-- This corresponds to dmenu's notion of exit code 1 for a cancelled invocation. -- This corresponds to dmenu's notion of exit code 1 for a cancelled invocation.

4
XSelection.hs → XMonad/Util/XSelection.hs
View File

@ -15,7 +15,7 @@
-- $ darcs get "http:\/\/gorgias.mine.nu\/repos\/xmonad-utils" -- $ darcs get "http:\/\/gorgias.mine.nu\/repos\/xmonad-utils"
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.XSelection ( module XMonad.Util.XSelection (
-- * Usage -- * Usage
-- $usage -- $usage
getSelection, getSelection,
@ -38,7 +38,7 @@ import Control.Monad(Monad (return, (>>)), Functor(..), liftM, join)
import Data.Char (chr, ord) import Data.Char (chr, ord)
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
import Foreign(Word8, Data.Bits.Bits (shiftL, (.&.), (.|.))) import Foreign(Word8, Data.Bits.Bits (shiftL, (.&.), (.|.)))
import XMonadContrib.Run (safeSpawn, unsafeSpawn) import XMonad.Util.Run (safeSpawn, unsafeSpawn)
import XMonad (X, io) import XMonad (X, io)
{- $usage {- $usage

4
XUtils.hs → XMonad/Util/XUtils.hs
View File

@ -1,6 +1,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonadContrib.XUtils -- Module : XMonad.Util.XUtils
-- Copyright : (c) 2007 Andrea Rossato -- Copyright : (c) 2007 Andrea Rossato
-- License : BSD-style (see xmonad/LICENSE) -- License : BSD-style (see xmonad/LICENSE)
-- --
@ -12,7 +12,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonadContrib.XUtils ( module XMonad.Util.XUtils (
-- * Usage: -- * Usage:
-- $usage -- $usage
stringToPixel stringToPixel

2
tests/test_SwapWorkspaces.hs
View File

@ -6,7 +6,7 @@ import Test.QuickCheck
import StackSet import StackSet
import Properties(T, NonNegative) import Properties(T, NonNegative)
import XMonadContrib.SwapWorkspaces import XMonad.SwapWorkspaces
-- Ensures that no "loss of information" can happen from a swap. -- Ensures that no "loss of information" can happen from a swap.
prop_double_swap (ss :: T) (t1 :: NonNegative Int) (t2 :: NonNegative Int) = prop_double_swap (ss :: T) (t1 :: NonNegative Int) (t2 :: NonNegative Int) =

4
tests/test_XPrompt.hs
View File

@ -10,8 +10,8 @@ import Test.QuickCheck
import Data.List import Data.List
import XMonadContrib.XPrompt import XMonad.XPrompt
import qualified XMonadContrib.ShellPrompt as S import qualified XMonad.ShellPrompt as S
instance Arbitrary Char where instance Arbitrary Char where
arbitrary = choose ('\32', '\255') arbitrary = choose ('\32', '\255')