XMonad.Hooks.ManageDocks

xmonad-contrib-0.13: Third party extensions for xmonad

Copyright | (c) Joachim Breitner <mail@joachim-breitner.de>
License | BSD
Maintainer | Joachim Breitner <mail@joachim-breitner.de>
Stability | unstable
Portability | unportable
Safe Haskell | None
Language | Haskell98

XMonad.Hooks.ManageDocks

Contents

- Usage

Description

This module provides tools to automatically manage `dock` type programs, such as gnome-panel, kicker, dzen, and xmobar.

Synopsis

- docks :: XConfig a -> XConfig a
- manageDocks :: ManageHook
- checkDock :: Query Bool
- data AvoidStruts a
- avoidStruts :: LayoutClass l a => l a -> ModifiedLayout AvoidStruts l a
- avoidStrutsOn :: LayoutClass l a => [Direction2D] -> l a -> ModifiedLayout AvoidStruts l a
- docksEventHook :: Event -> X All
- docksStartupHook :: X ()
- data ToggleStruts
  - = ToggleStruts
  - | ToggleStrut Direction2D
- data SetStruts = SetStruts {
  - addedStruts :: [Direction2D]
  - removedStruts :: [Direction2D]
  }
- module XMonad.Util.Types
- calcGap :: Set Direction2D -> X (Rectangle -> Rectangle)

# Usage

To use this module, add the following import to `~/.xmonad/xmonad.hs`:

    import XMonad.Hooks.ManageDocks

Wrap your xmonad config with a call to `docks`, like so:

    main = xmonad $ docks def

Then add `avoidStruts` or `avoidStrutsOn` layout modifier to your layout to prevent windows from overlapping these windows.

    layoutHook = avoidStruts (tall ||| mirror tall ||| ...)
                      where  tall = Tall 1 (3/100) (1/2)

`AvoidStruts` also supports toggling the dock gaps; add a keybinding similar to:

    ,((modm, xK_b     ), sendMessage ToggleStruts)

If you have multiple docks, you can toggle their gaps individually. For example, to toggle only the top gap:

    ,((modm .|. controlMask, xK_t), sendMessage $ ToggleStrut U)

Similarly, you can use `D`, `L`, and `R` to individually toggle gaps on the bottom, left, or right.

If you want certain docks to be avoided but others to be covered by default, you can manually specify the sides of the screen on which docks should be avoided, using `avoidStrutsOn`. For example:

    layoutHook = avoidStrutsOn [U,L] (tall ||| mirror tall ||| ...)

For detailed instructions on editing your key bindings, see XMonad.Doc.Extending.

docks :: XConfig a -> XConfig a #

Add docks functionality to the given config. See above for an example.

manageDocks :: ManageHook #

Detects if the given window is of type DOCK and if so, reveals it, but does not manage it.

checkDock :: Query Bool #

Checks if a window is a DOCK or DESKTOP window

data AvoidStruts a #

Instances

LayoutModifier AvoidStruts a # |
Methods modifyLayout :: LayoutClass l a => AvoidStruts a -> Workspace WorkspaceId (l a) a -> Rectangle -> X ([(a, Rectangle)], Maybe (l a)) # modifyLayoutWithUpdate :: LayoutClass l a => AvoidStruts a -> Workspace WorkspaceId (l a) a -> Rectangle -> X (([(a, Rectangle)], Maybe (l a)), Maybe (AvoidStruts a)) # handleMess :: AvoidStruts a -> SomeMessage -> X (Maybe (AvoidStruts a)) # handleMessOrMaybeModifyIt :: AvoidStruts a -> SomeMessage -> X (Maybe (Either (AvoidStruts a) SomeMessage)) # pureMess :: AvoidStruts a -> SomeMessage -> Maybe (AvoidStruts a) # redoLayout :: AvoidStruts a -> Rectangle -> Maybe (Stack a) -> [(a, Rectangle)] -> X ([(a, Rectangle)], Maybe (AvoidStruts a)) # pureModifier :: AvoidStruts a -> Rectangle -> Maybe (Stack a) -> [(a, Rectangle)] -> ([(a, Rectangle)], Maybe (AvoidStruts a)) # hook :: AvoidStruts a -> X () # unhook :: AvoidStruts a -> X () # modifierDescription :: AvoidStruts a -> String # modifyDescription :: LayoutClass l a => AvoidStruts a -> l a -> String #
Read (AvoidStruts a) # |
Methods readsPrec :: Int -> ReadS (AvoidStruts a) # readList :: ReadS [AvoidStruts a] # readPrec :: ReadPrec (AvoidStruts a) # readListPrec :: ReadPrec [AvoidStruts a] #
Show (AvoidStruts a) # |
Methods showsPrec :: Int -> AvoidStruts a -> ShowS # show :: AvoidStruts a -> String # showList :: [AvoidStruts a] -> ShowS #

avoidStruts :: LayoutClass l a => l a -> ModifiedLayout AvoidStruts l a #

Adjust layout automagically: don't cover up any docks, status bars, etc.

avoidStrutsOn :: LayoutClass l a => [Direction2D] -> l a -> ModifiedLayout AvoidStruts l a #

Adjust layout automagically: don't cover up docks, status bars, etc. on the indicated sides of the screen. Valid sides are U (top), D (bottom), R (right), or L (left).

docksEventHook :: Event -> X All #

Whenever a new dock appears, refresh the layout immediately to avoid the new dock.

docksStartupHook :: X () #

data ToggleStruts #

Message type which can be sent to an `AvoidStruts` layout modifier to alter its behavior.

Constructors

ToggleStruts |
ToggleStrut Direction2D |

Instances

Read ToggleStruts # |
Methods readsPrec :: Int -> ReadS ToggleStruts # readList :: ReadS [ToggleStruts] # readPrec :: ReadPrec ToggleStruts # readListPrec :: ReadPrec [ToggleStruts] #
Show ToggleStruts # |
Methods showsPrec :: Int -> ToggleStruts -> ShowS # show :: ToggleStruts -> String # showList :: [ToggleStruts] -> ShowS #
Message ToggleStruts # |

data SetStruts #

SetStruts is a message constructor used to set or unset specific struts, regardless of whether or not the struts were originally set. Here are some example bindings:

Show all gaps:

      ,((modm .|. shiftMask  ,xK_b),sendMessage $ SetStruts [minBound .. maxBound] [])

Hide all gaps:

      ,((modm .|. controlMask,xK_b),sendMessage $ SetStruts [] [minBound .. maxBound])

Show only upper and left gaps:

      ,((modm .|. controlMask .|. shiftMask,xK_b),sendMessage $ SetStruts [U,L] [minBound .. maxBound])

Hide the bottom keeping whatever the other values were:

      ,((modm .|. controlMask .|. shiftMask,xK_g),sendMessage $ SetStruts [] [D])

Constructors

SetStruts |
Fields addedStruts :: [Direction2D] removedStruts :: [Direction2D] These are removed from the currently set struts before `addedStruts` are added.

Instances

Read SetStruts # |
Methods readsPrec :: Int -> ReadS SetStruts # readList :: ReadS [SetStruts] # readPrec :: ReadPrec SetStruts # readListPrec :: ReadPrec [SetStruts] #
Show SetStruts # |
Methods showsPrec :: Int -> SetStruts -> ShowS # show :: SetStruts -> String # showList :: [SetStruts] -> ShowS #
Message SetStruts # |

module XMonad.Util.Types

calcGap :: Set Direction2D -> X (Rectangle -> Rectangle) #

Goes through the list of windows and find the gap so that all STRUT settings are satisfied.