Copyright | (c) Roman Cheplyaka |
---|---|
License | BSD-style (see LICENSE) |
Maintainer | Roman Cheplyaka <roma@ro-che.info> |
Stability | unstable |
Portability | unportable |
Safe Haskell | None |
Language | Haskell2010 |
Layout modifier for displaying some window (monitor) above other windows.
Synopsis
- data Monitor a = Monitor {}
- monitor :: Monitor a
- data Property
- data MonitorMessage
- doHideIgnore :: ManageHook
- manageMonitor :: Monitor a -> ManageHook
Usage
You can use this module with the following in your xmonad.hs
:
import XMonad.Layout.Monitor
Define Monitor
record. monitor
can be used as a template. At least prop
and rect
should be set here. Also consider setting persistent
to True.
Minimal example:
myMonitor = monitor { prop = ClassName "SomeClass" , rect = Rectangle 0 0 40 20 -- rectangle 40x20 in upper left corner }
More interesting example:
clock = monitor { -- Cairo-clock creates 2 windows with the same classname, thus also using title prop = ClassName "Cairo-clock" `And` Title "MacSlow's Cairo-Clock" -- rectangle 150x150 in lower right corner, assuming 1280x800 resolution , rect = Rectangle (1280-150) (800-150) 150 150 -- avoid flickering , persistent = True -- make the window transparent , opacity = 0.6 -- hide on start , visible = False -- assign it a name to be able to toggle it independently of others , name = "clock" }
Add ManageHook to de-manage monitor windows and apply opacity settings.
manageHook = myManageHook <> manageMonitor clock
Apply layout modifier.
myLayout = ModifiedLayout clock $ tall ||| Full ||| ...
After that, if there exists a window with specified properties, it will be displayed on top of all tiled (not floated) windows on specified position.
It's also useful to add some keybinding to toggle monitor visibility:
, ((mod1Mask, xK_u ), broadcastMessage ToggleMonitor >> refresh)
Screenshot: http://www.haskell.org/haskellwiki/Image:Xmonad-clock.png
Hints and issues
- This module assumes that there is only one window satisfying property exists.
- If your monitor is available on all layouts, set
persistent
toTrue
to avoid unnecessary flickering. You can still toggle monitor with a keybinding. - You can use several monitors with nested modifiers. Give them names
Instances
Most of the property constructors are quite self-explaining.
Title String | |
ClassName String | |
Resource String | |
Role String | WM_WINDOW_ROLE property |
Machine String | WM_CLIENT_MACHINE property |
And Property Property infixr 9 | |
Or Property Property infixr 8 | |
Not Property | |
Const Bool | |
Tagged String | Tagged via XMonad.Actions.TagWindows |
data MonitorMessage Source #
Messages without names affect all monitors. Messages with names affect only monitors whose names match.
ToggleMonitor | |
ShowMonitor | |
HideMonitor | |
ToggleMonitorNamed String | |
ShowMonitorNamed String | |
HideMonitorNamed String |
Instances
Read MonitorMessage Source # | |
Defined in XMonad.Layout.Monitor readsPrec :: Int -> ReadS MonitorMessage # readList :: ReadS [MonitorMessage] # | |
Show MonitorMessage Source # | |
Defined in XMonad.Layout.Monitor showsPrec :: Int -> MonitorMessage -> ShowS # show :: MonitorMessage -> String # showList :: [MonitorMessage] -> ShowS # | |
Eq MonitorMessage Source # | |
Defined in XMonad.Layout.Monitor (==) :: MonitorMessage -> MonitorMessage -> Bool # (/=) :: MonitorMessage -> MonitorMessage -> Bool # | |
Message MonitorMessage Source # | |
Defined in XMonad.Layout.Monitor |
doHideIgnore :: ManageHook Source #
Hides window and ignores it.
manageMonitor :: Monitor a -> ManageHook Source #
ManageHook which demanages monitor window and applies opacity settings.
TODO
- make Monitor remember the window it manages
- specify position relative to the screen