Copyright | (c) Don Stewart <dons@cse.unsw.edu.au> |
---|---|
License | BSD3-style (see LICENSE) |
Maintainer | Don Stewart <dons@cse.unsw.edu.au> |
Stability | unstable |
Portability | unportable |
Safe Haskell | Safe-Inferred |
Language | Haskell2010 |
Note: This module is a compatibility wrapper for the following:
DynamicLog API is frozen and users are encouraged to migrate to these modern replacements.
Original description and documentation follows:
xmonad calls the logHook with every internal state update, which is useful for (among other things) outputting status information to an external status bar program such as xmobar or dzen. DynamicLog provides several drop-in logHooks for this purpose, as well as flexible tools for specifying your own formatting.
Synopsis
- xmobarProp :: LayoutClass l Window => XConfig l -> XConfig (ModifiedLayout AvoidStruts l)
- xmobar :: LayoutClass l Window => XConfig l -> IO (XConfig (ModifiedLayout AvoidStruts l))
- statusBar :: LayoutClass l Window => String -> PP -> (XConfig Layout -> (KeyMask, KeySym)) -> XConfig l -> IO (XConfig (ModifiedLayout AvoidStruts l))
- dzen :: LayoutClass l Window => XConfig l -> IO (XConfig (ModifiedLayout AvoidStruts l))
- dzenWithFlags :: LayoutClass l Window => String -> XConfig l -> IO (XConfig (ModifiedLayout AvoidStruts l))
- dynamicLog :: X ()
- dynamicLogXinerama :: X ()
- xmonadPropLog :: String -> X ()
- xmonadPropLog' :: String -> String -> X ()
- xmonadDefProp :: String
- dynamicLogWithPP :: PP -> X ()
- dynamicLogString :: PP -> X String
- data PP = PP {
- ppCurrent :: WorkspaceId -> String
- ppVisible :: WorkspaceId -> String
- ppHidden :: WorkspaceId -> String
- ppHiddenNoWindows :: WorkspaceId -> String
- ppVisibleNoWindows :: Maybe (WorkspaceId -> String)
- ppUrgent :: WorkspaceId -> String
- ppRename :: String -> WindowSpace -> String
- ppSep :: String
- ppWsSep :: String
- ppTitle :: String -> String
- ppTitleSanitize :: String -> String
- ppLayout :: String -> String
- ppOrder :: [String] -> [String]
- ppSort :: X ([WindowSpace] -> [WindowSpace])
- ppExtras :: [X (Maybe String)]
- ppOutput :: String -> IO ()
- ppPrinters :: WSPP
- def :: Default a => a
- dzenPP :: PP
- xmobarPP :: PP
- sjanssenPP :: PP
- byorgeyPP :: PP
- wrap :: String -> String -> String -> String
- pad :: String -> String
- trim :: String -> String
- shorten :: Int -> String -> String
- shorten' :: String -> Int -> String -> String
- shortenLeft :: Int -> String -> String
- shortenLeft' :: String -> Int -> String -> String
- xmobarColor :: String -> String -> String -> String
- xmobarAction :: String -> String -> String -> String
- xmobarBorder :: String -> String -> Int -> String -> String
- xmobarRaw :: String -> String
- xmobarStrip :: String -> String
- xmobarStripTags :: [String] -> String -> String
- dzenColor :: String -> String -> String -> String
- dzenEscape :: String -> String
- dzenStrip :: String -> String
- filterOutWsPP :: [WorkspaceId] -> PP -> PP
- pprWindowSet :: WorkspaceSort -> [Window] -> PP -> WindowSet -> String
- pprWindowSetXinerama :: WindowSet -> String
Usage
You can use this module with the following in your xmonad.hs
:
import XMonad import XMonad.Hooks.DynamicLog
If you just want a quick-and-dirty status bar with zero effort, try
the xmobar
or dzen
functions:
main = xmonad =<< xmobar myConfig myConfig = def { ... }
There is also statusBar
if you'd like to use another status bar, or would
like to use different formatting options. The xmobar
, dzen
, and
statusBar
functions are preferred over the other options listed below, as
they take care of all the necessary plumbing -- no shell scripting required!
Alternatively, you can choose among several default status bar formats
(dynamicLog
or dynamicLogXinerama
) by simply setting your logHook to the
appropriate function, for instance:
main = xmonad $ def { ... logHook = dynamicLog ... }
For more flexibility, you can also use dynamicLogWithPP
and supply
your own pretty-printing format (by either defining one from scratch,
or customizing one of the provided examples).
For example:
-- use sjanssen's pretty-printer format, but with the sections -- in reverse logHook = dynamicLogWithPP $ sjanssenPP { ppOrder = reverse }
Note that setting the logHook
only sets up xmonad's output; you
are responsible for starting your own status bar program (e.g. dzen
or xmobar) and making sure xmonad's output is piped into it
appropriately, either by putting it in your .xsession
or similar
file, or by using spawnPipe
in your main
function, for example:
import XMonad.Util.Run -- for spawnPipe and hPutStrLn main = do h <- spawnPipe "xmobar -options -foo -bar" xmonad $ def { ... logHook = dynamicLogWithPP $ def { ppOutput = hPutStrLn h }
If you use spawnPipe
, be sure to redefine the ppOutput
field of
your pretty-printer as in the example above; by default the status
will be printed to stdout rather than the pipe you create.
Even if you don't use a statusbar, you can still use
dynamicLogString
to show on-screen notifications in response to
some events. For example, to show the current layout when it
changes, you could make a keybinding to cycle the layout and
display the current status:
, ((mod1Mask, xK_a ), sendMessage NextLayout >> (dynamicLogString myPP >>= xmessage))
Drop-in loggers
:: LayoutClass l Window | |
=> XConfig l | The base config |
-> XConfig (ModifiedLayout AvoidStruts l) |
Run xmonad with a property-based xmobar status bar set to some nice defaults.
main = xmonad $ xmobarProp myConfig myConfig = def { ... }
The intent is that the above config file should provide a nice
status bar with minimal effort. Note that you still need to configure
xmobar to use the XMonadLog
plugin instead of the default StdinReader
,
see above.
If you wish to customize the status bar format at all, use the modernized interface provided by the XMonad.Hooks.StatusBar and XMonad.Hooks.StatusBar.PP modules instead.
The binding uses the XMonad.Hooks.ManageDocks module to automatically handle screen placement for xmobar, and enables 'mod-b' for toggling the menu bar.
:: LayoutClass l Window | |
=> XConfig l | The base config |
-> IO (XConfig (ModifiedLayout AvoidStruts l)) |
This function works like xmobarProp
, but uses pipes instead of
property-based logging.
:: LayoutClass l Window | |
=> String | The command line to launch the status bar |
-> PP | The pretty printing options |
-> (XConfig Layout -> (KeyMask, KeySym)) | The desired key binding to toggle bar visibility |
-> XConfig l | The base config |
-> IO (XConfig (ModifiedLayout AvoidStruts l)) |
Like statusBarProp
, but uses pipes instead of property-based logging.
Only use this function if your status bar does not support reading from a
property of the root window.
:: LayoutClass l Window | |
=> XConfig l | The base config |
-> IO (XConfig (ModifiedLayout AvoidStruts l)) |
Run xmonad with a dzen status bar set to some nice defaults.
main = xmonad =<< dzen myConfig myConfig = def { ... }
This works pretty much the same as the xmobar
function.
:: LayoutClass l Window | |
=> String | Flags to give to |
-> XConfig l | The base config |
-> IO (XConfig (ModifiedLayout AvoidStruts l)) |
Run xmonad with a dzen status bar with specified dzen command line arguments.
main = xmonad =<< dzenWithFlags flags myConfig myConfig = def { ... } flags = "-e onstart lower -w 800 -h 24 -ta l -fg #a8a3f7 -bg #3f3c6d"
This function works much in the same way as the dzen
function, only that it
can also be used to customize the arguments passed to dzen2, e.g changing the
default width and height of dzen2.
You should use this function only when the default dzen
function does not
serve your purpose.
dynamicLog :: X () Source #
An example log hook, which prints status information to stdout in the default format:
1 2 [3] 4 7 : full : title
That is, the currently populated workspaces, the current workspace layout, and the title of the focused window.
To customize the output format, see dynamicLogWithPP
.
dynamicLogXinerama :: X () Source #
Workspace logger with a format designed for Xinerama:
[1 9 3] 2 7
where 1, 9, and 3 are the workspaces on screens 1, 2 and 3, respectively, and 2 and 7 are non-visible, non-empty workspaces.
At the present time, the current layout and window title
are not shown. The xinerama workspace format shown above can be (mostly) replicated
using dynamicLogWithPP
by setting ppSort
to getSortByXineramaRule from
XMonad.Util.WorkspaceCompare. For example,
def { ppCurrent = dzenColor "red" "#efebe7" , ppVisible = wrap "[" "]" , ppSort = getSortByXineramaRule }
xmonadPropLog :: String -> X () Source #
Write a string to the _XMONAD_LOG
property on the root window.
Write a string to a property on the root window. This property is of type
UTF8_STRING
.
xmonadDefProp :: String Source #
The default property xmonad writes to. (_XMONAD_LOG
).
Build your own formatter
dynamicLogWithPP :: PP -> X () Source #
Format the current status using the supplied pretty-printing format, and write it to stdout.
dynamicLogString :: PP -> X String Source #
The same as dynamicLogWithPP
, except it simply returns the status
as a formatted string without actually printing it to stdout, to
allow for further processing, or use in some application other than
a status bar.
The PP
type allows the user to customize the formatting of
status information.
PP | |
|
Example formatters
sjanssenPP :: PP Source #
The options that sjanssen likes to use with xmobar, as an
example. Note the use of xmobarColor
and the record update on
def
.
Formatting utilities
Wrap a string in delimiters, unless it is empty.
shorten :: Int -> String -> String Source #
Limit a string to a certain length, adding "..." if truncated.
shorten' :: String -> Int -> String -> String Source #
Limit a string to a certain length, adding end
if truncated.
shortenLeft :: Int -> String -> String Source #
Like shorten
, but truncate from the left instead of right.
shortenLeft' :: String -> Int -> String -> String Source #
Like shorten'
, but truncate from the left instead of right.
:: String | foreground color: a color name, or #rrggbb format |
-> String | background color |
-> String | output string |
-> String |
Use xmobar escape codes to output a string with given foreground and background colors.
:: String | Command. Use of backticks (`) will cause a parse error. |
-> String | Buttons 1-5, such as "145". Other characters will cause a parse error. |
-> String | Displayed/wrapped text. |
-> String |
Encapsulate text with an action. The text will be displayed, and the action executed when the displayed text is clicked. Illegal input is not filtered, allowing xmobar to display any parse errors. Uses xmobar's new syntax wherein the command is surrounded by backticks.
:: String | Border type. Possible values: VBoth, HBoth, Full, Top, Bottom, Left or Right |
-> String | color: a color name, or #rrggbb format |
-> Int | width in pixels |
-> String | output string |
-> String |
Use xmobar box to add a border to an arbitrary string.
xmobarRaw :: String -> String Source #
Encapsulate arbitrary text for display only, i.e. untrusted content if wrapped (perhaps from window titles) will be displayed only, with all tags ignored. Introduced in xmobar 0.21; see their documentation. Be careful not to shorten the result.
xmobarStrip :: String -> String Source #
Strip xmobar markup, specifically the <fc>, <icon> and <action> tags and the matching tags like </fc>.
:: String | foreground color: a color name, or #rrggbb format |
-> String | background color |
-> String | output string |
-> String |
Use dzen escape codes to output a string with given foreground and background colors.
dzenEscape :: String -> String Source #
Escape any dzen metacharacters.
filterOutWsPP :: [WorkspaceId] -> PP -> PP Source #
Transforms a pretty-printer into one not displaying the given workspaces.
For example, filtering out the NSP
workspace before giving the PP
to
dynamicLogWithPP
:
logHook = dynamicLogWithPP . filterOutWsPP [scratchpadWorkspaceTag] $ def
Here is another example, when using XMonad.Layout.IndependentScreens. If
you have handles hLeft
and hRight
for bars on the left and right screens,
respectively, and pp
is a pretty-printer function that takes a handle, you
could write
logHook = let log screen handle = dynamicLogWithPP . filterOutWsPP [scratchpadWorkspaceTag] . marshallPP screen . pp $ handle in log 0 hLeft >> log 1 hRight
Internal formatting functions
pprWindowSet :: WorkspaceSort -> [Window] -> PP -> WindowSet -> String Source #
Format the workspace information, given a workspace sorting function, a list of urgent windows, a pretty-printer format, and the current WindowSet.