- xmonad - Haskell.org

workspace switching and Xinerama
by Karl Hasselström 28 Jan '09

28 Jan '09

Two questions for those who've been using this nice WM longer than I have ... 1. I have two monitors, one that's nice and big, and one that's attached to my laptop. How do I swap the workspaces on them? That is, if they currently show workspaces A and B, what action should I bind to a key to make them show B and A? I imagine this is just a matter of transforming StackSet the right way, but I haven't been able to figure out exactly how. 2. Currently, I've bound mod-Right/Left and ctrl-mod-Right/Left to switching to the next Xinerama screen and the next visible window in that direction: import qualified XMonad.Actions.CycleWS as CWS import qualified XMonad.Layout.WindowNavigation as WN , ((modMask x, xK_Right), CWS.nextScreen) , ((modMask x, xK_Left), CWS.prevScreen) , ((modMask x .|. controlMask, xK_Right), sendMessage $ WN.Go WN.R) , ((modMask x .|. controlMask, xK_Left ), sendMessage $ WN.Go WN.L) However, what I'd like to do is have just one binding for these two tasks, so that mod-Right would switch focus to the next window to the right until it reached the edge of the screen, and then the next press would switch focus to the leftmost window on the Xinerama screen to the right of the one where I just was. -- Karl Hasselström, kha(a)treskal.com www.treskal.com/kalle

3 3

Re: Re: [xmonad] Two xmonad-contrib packages
by Quentin Moser 28 Jan '09

28 Jan '09

On Tue, Jan 27 2009 at 16:52:40 -0500, Brent Yorgey wrote: > Applied, thanks! > > Looked good to me. Now you have some experience. =) Thanks ! Now onto the next bunch...

1 0

darcs patch: Actions.DisplayUI, for displaying bindings onscreen during screencasts
by wirtwolff 28 Jan '09

28 Jan '09

This is an XConfig modifier designed to be used with external display program like dzen2 or osd_cat. You give it a String -> X(), it modifies bindings so when you use one, whatever your function does with the string representing that key or mouse binding is sequenced with the normal action. There's a custom format version too. It doesn't work with submapped keys, i.e. sequences like "M-x f". Amazing how something with the potential to screw up every single action in XMonad never once broke my xmonad. Yay for xmonad's design, monads, and functional programming! regards, Wirt Sat Nov 1 22:51:09 MDT 2008 Wirt Wolff <wirtwolff(a)gmail.com> * Actions.DisplayUI, for displaying bindings onscreen during screencasts New patches: [Actions.DisplayUI, for displaying bindings onscreen during screencasts Wirt Wolff <wirtwolff(a)gmail.com>**20081102045109] { addfile ./XMonad/Actions/DisplayUI.hs hunk ./XMonad/Actions/DisplayUI.hs 1 +-------------------------------------------------------------------- +-- | +-- Module : XMonad.Actions.DisplayUI +-- Copyright : Wirt Wolff <wirtwolff(a)gmail.com> +-- License : BSD3-style (see LICENSE) +-- +-- Maintainer : Wirt Wolff <wirtwolff(a)gmail.com> +-- +-- Functions for displaying key and mouse bindings on screen while +-- making screencasts, along with related helper functions. DisplayUI +-- does not provide a way to display or parse the related X() actions +-- from files. It also does not display submapped keys, i.e. a sequence +-- like \"M1-x f\" will only display \"M1-x\". It was designed to be used with +-- an external on screen display program like osd_cat or dzen2, but can +-- be used for any String -> X(). +-- +-- (See also "XMonad.Util.EZConfig", "XMonad.Actions.Submap" in xmonad-contrib.) +-- +-------------------------------------------------------------------- + +module XMonad.Actions.DisplayUI ( + -- * Usage + -- $usage + + displayUI, + + -- * Using a custom UI display format + -- $formats + displayUIWith, + UIFormat (..), + defaultUIFormat, altUIFormat, longUIFormat, hsUIFormat, + + -- * Troubleshooting + -- $troubleshooting + + -- * toString utilities + -- $tostring + keyToString, mouseToString, + modifierToString, + keyToStringWith, mouseToStringWith, + modifierToStringWith + + ) where + + +import XMonad + +import Data.Bits ((.&.)) +import Graphics.X11.Xlib (keysymToString) +import Data.List (zip, filter, intercalate) +import qualified Data.Map as M (mapWithKey) + + +-- $usage +-- To use this module, first add it to the imports in your @~\/.xmonad\/xmonad.hs@: +-- Import "XMonad.Util.Run", too, if you haven't already, to spawn shell programs. +-- +-- > import XMonad +-- > -- other imports ... +-- > import XMonad.Actions.DisplayUI +-- > import XMonad.Util.Run +-- +-- Choose an on screen display program, such as dzen2, or osd_cat (part of the +-- xosd library.) You probably want something which accepts text on its stdin. +-- osd_cat gives a transparent background effect like television OSD's. dzen2 has +-- an opaque background of whatever color you choose. Define a function from type +-- String to X() with parameters appropriate for your configuration. Anything you +-- could bind a key to will work for the value of your function. +-- +-- For example: +-- If running the command @echo \"Some message\" | osd_cat -o 100 -i 500 -c '#4f2'@ +-- @ -d 1 -f '-*-terminus-bold-r-*-*-32-*-*-*-*-*-*-*'@ in a shell gives the effect +-- you are after, add the following @osd_cat = ...@ definition outside your existing +-- xmonad configuration. Also include a type signature, e.g. @osd_cat :: String -> X()@. +-- +-- > main = xmonad $ defaultConfig { terminal = "urxvt" } +-- > `additionalKeys` +-- > [ ((mod1Mask, xK_F12), spawn "xscreensaver-command -lock") +-- > , ((mod1Mask .|. controlMask, xK_Return), spawn "specialTerminal") +-- > ] +-- > +-- > osd_cat :: String -> X() +-- > osd_cat = \ui -> spawn $ "echo '" ++ ui ++ "' | osd_cat --offset 100 \ +-- > \ --indent 500 --color '#4f2' --delay 1 \ +-- > \ --font '-*-terminus-bold-r-*-*-32-*-*-*-*-*-*-*'" +-- +-- Using dzen2 it would be something like this: +-- +-- > osdDzen :: String -> X() +-- > osdDzen = \ui -> spawn $ "echo '" ++ ui ++ "' | dzen2 -x 500 -y 100 -w 600 \ +-- > \ -ta c -fg '#4f2' -p 1 -h 48 \ +-- > \ -fn '-*-terminus-bold-r-*-*-32-*-*-*-*-*-*-*'" +-- +-- (Note the \' \' quotes around the ui string, colors, and fonts.) To +-- see what core fonts and sizes are available, run @xfontsel@. dzen2 +-- and osd_cat do not currently support fontconfig/xft. +-- +-- Now add a 'displayUI' or 'displayUIWith' line to modify your XMonad config +-- to run the X() action you set up and have XMonad display user interface +-- bindings as you use them. +-- +-- > main = xmonad $ +-- > displayUI osdDzen $ +-- > defaultConfig { terminal = "urxvt" } +-- > `additionalKeys` +-- > [ ((mod1Mask, xK_F12), spawn "xscreensaver-command -lock") +-- > , ((mod1Mask .|. controlMask, xK_Return), spawn "specialTerminal") +-- > ] +-- +-- You don't have to put @displayUI osdDzen $@ on a separate line, but +-- it's easier to comment out since you're probably only using this module +-- for making screencasts. Now if all's in place, simply save the file, +-- @mod-q@ and you should have bindings being displayed when you use them. +-- +-- The default 'displayUI' format is very close to the one in "XMonad.Util.EZConfig"\'s +-- @additionalKeysP@ and @additionalMouseBindings@ functions, but without the +-- angle brackets, e.g. \"M3-C-S-F9\", \"M4-button3\". DisplayUI always uses "Graphics.X11" +-- @keysymToString@ to choose what string will be displayed for keys. These are +-- as in the keysymdef.h file (usually in \/usr\/include\/X11\/) less the xK_ part. + +-- $formats +-- 'displayUIWith' takes an additional argument: a 'UIFormat' record describing +-- how to format the user interface binding strings. In addition to the default, +-- some ready made ones are provided: 'longUIFormat' (\"Mod4-Shift-space\", +-- \"Mod4-MouseButton3\", etc.) 'altUIFormat' (\"alt-win-F9\"), and for fun, 'hsUIFormat' +-- that builds strings like \"shiftMask .|. mod1Mask, xK_F4\". For example: +-- +-- > main = xmonad $ +-- > displayUIWith altUIFormat osd_cat $ +-- > defaultConfig { terminal = "urxvt" } +-- + +-- | UIFormat records define how to display the modifiers, keys, buttons, and bindings +-- as a whole. The modifier string list, @mods@, is in bit order, least significant bit first, +-- the same as xmodmap. (caps) lockMask is left as empty string in the predefined UIFormats. +-- For example, here is the definition of altUIFormat: +-- +-- > altUIFormat :: UIFormat +-- > altUIFormat = UIFormat { +-- > mods = ["shift", "", "ctrl", "alt", "mod2", "mod3", "win", "mod5"] +-- > , modSep = "-" -- string to separate modifiers +-- > , lastSep = "-" -- string to separate modifiers from key or button +-- > , button = "mouse" +-- > } +-- +data UIFormat = UIFormat + { mods :: [String] -- string used to display each modifier (in bit order 0..) + , modSep :: String + , lastSep :: String + , button :: String + } + +-- | Close to "XMonad.Util.EZConfig" parser format, but no angle brackets +defaultUIFormat :: UIFormat +defaultUIFormat = UIFormat + { mods = ["S", "", "C"] ++ ['M': show n | n <- [1..5]::[Int] ] + , modSep = "-" + , lastSep = "-" + , button = "button" + } + +-- | Common names from ms US keys, lower case (\"ctrl\", \"alt\",\"win\", \"mouse\") +altUIFormat :: UIFormat +altUIFormat = defaultUIFormat + { mods = ["shift", "", "ctrl", "alt", "mod2", "mod3", "win", "mod5"] + , button = "mouse" + } + +-- | Longer capitalized format (\"Control\", \"MouseButton\") +longUIFormat :: UIFormat +longUIFormat = defaultUIFormat + { mods = ["Shift", "", "Control"] ++ ["Mod" ++ show n | n <- [1..5]::[Int] ] + , button = "MouseButton" + } + +-- | May as well have a default haskell format (as in xmonad.hs) +hsUIFormat :: UIFormat +hsUIFormat = UIFormat + { mods = ["shiftMask", "", "controlMask", "mod1Mask", "mod2Mask", "mod3Mask", "mod4Mask", "mod5Mask"] + , modSep = " .|. " + , lastSep = ", xK_" + , button = "button" + } + +-- | Modifies the xmonad key and mouse bindings so that whenever one's used, +-- the normal action is performed along with a displayUI action that has use +-- of the ui binding string. displayUI's first parameter is the function from +-- a binding string to X() defining what to do. +displayUI :: (String -> X()) -> XConfig l -> XConfig l +displayUI sa conf = conf + { keys = \c -> M.mapWithKey (sequenceXk sa) (keys conf c) + , mouseBindings = \c -> M.mapWithKey (sequenceXm sa) (mouseBindings conf c) } + +-- | Combine a key binding action with a displayUI action using the default +-- "S-M4-Return" format similar to "XMonad.Util.EZConfig" additionalKeysP +sequenceXk :: (String -> X()) -> (Modifier, KeySym) -> X() -> X() +sequenceXk sa k f = (sa $ keyToString k) >> f + +-- | Combine a mouse binding action with a displayUI action using the default +-- "M4-button1" format. +sequenceXm :: (String -> X()) -> (Modifier, Button) -> (Window -> X()) -> (Window -> X()) +sequenceXm sa k f = (>> ( sa $ mouseToString k)) . f + +-- | Like displayUI, but using a custom format from UIFormat fields. +displayUIWith :: UIFormat -> (String -> X()) -> XConfig l -> XConfig l +displayUIWith fmt sa conf = conf + { keys = \c -> M.mapWithKey (sequenceXk' fmt sa) (keys conf c) + , mouseBindings = \c -> M.mapWithKey (sequenceXm' fmt sa) (mouseBindings conf c) } + +-- | Combine a key binding action with a displayUI action using a custom format. +sequenceXk' :: UIFormat -> (String -> X()) -> (Modifier, KeySym) -> X() -> X() +sequenceXk' fmt sa k f = (sa $ keyToStringWith fmt k) >> f + +-- | Combine a mouse binding action with a displayUI action using a custom format. +sequenceXm' :: UIFormat -> (String -> X()) -> (Modifier, Button) -> (Window -> X()) -> (Window -> X()) +sequenceXm' fmt sa k f = (>> (sa $ mouseToStringWith fmt k)) . f + +-- $troubleshooting +-- @osd_cat@ refused to use anything but the default --align left during my +-- testing, so if your display doesn't show, check that. Also, a common +-- problem from forums is using fonts or colors without wrapping with +-- \' \', e.g. use \'\#f00\' not \#f00 and '-*-fixed-...' not -*-fixed-... +-- +-- Key sequences, aka "XMonad.Actions.Submap" submaps aren't displayed. Only +-- the first key is shown. At some point that may get added, if it seems worth it. + +-- $tostring +-- The 'modifierToString' and 'modifierToStringWith' functions complement +-- keySymToString from the Graphics.X11 package. 'modifierToStringWith' will +-- work on buttonMasks if you add the button mask strings you want to a custom +-- UIFormat, but xmonad bindings seem to only use key masks so button masks +-- are ignored in the default 'UIFormat's. + +-- String utilities using a default format +-- | Build a default format keybinding string. e.g. \"S-M1-Space\" +keyToString :: (Modifier, KeySym) -> String +keyToString k = keyToStringWith defaultUIFormat k + +-- | Build a default format mouse binding string. e.g. \"S-M1-button3\" +mouseToString :: (Modifier, Button) -> String +mouseToString b = mouseToStringWith defaultUIFormat b + +-- | Build a default format modifier masks string. e.g. \"S-C-M4\" +modifierToString :: Modifier -> String +modifierToString m = modifierToStringWith defaultUIFormat m + +-- String utilities using a custom format +-- | Build a keybinding string using the given format. For example: +-- @keyToStringWith longUIFormat (controlMask, xK_h) == \"Control-h\"@ +keyToStringWith :: UIFormat -> (Modifier, KeySym) -> String +keyToStringWith fmt (m, sym) = + modifierToStringWith fmt m ++ (lastSep fmt) ++ keysymToString sym + +-- | Build a mouse binding string using the given format. +mouseToStringWith :: UIFormat -> (Modifier, Button) -> String +mouseToStringWith fmt (m, b) = + modifierToStringWith fmt m ++ (lastSep fmt) ++ (button fmt) ++ show b + +-- | Build a modifier masks string using the given format. +modifierToStringWith :: UIFormat -> Modifier -> String +modifierToStringWith fmt mask = intercalate (modSep fmt) $ + map snd . filter (sharesMask mask) $ zip maskList $ mods fmt + where sharesMask m (m',_) = 0 /= m .&. m' + +-- | List of modifier masks in bit order, least signifigant bit first +maskList :: [Modifier] +maskList = [shiftMask,lockMask,controlMask,mod1Mask,mod2Mask,mod3Mask,mod4Mask,mod5Mask] + ++ [button1Mask,button2Mask,button3Mask,button4Mask,button5Mask] hunk ./xmonad-contrib.cabal 77 + XMonad.Actions.DisplayUI } Context: [Prompt.hs rename deleteConsecutiveDuplicates gwern0(a)gmail.com**20081008205131 That name is really unwieldy and long. ] [Prompt.hs: have historyCompletion filter dupes gwern0(a)gmail.com**20081008204710 Specifically, it calls deleteConsecutiveDuplicates on the end product. uniqSort reverses order in an unfortunate way, so we don't use that. The use-case is when a user has added the same input many times - as it stands, if the history records 30 'top's or whatever, the completion will show 30 'top' entries! This fixes that. ] [Prompt.hs: tweak haddocks gwern0(a)gmail.com**20081008204649] [Prompt.hs: mv uniqSort to next to its confreres, and mention the trade-off gwern0(a)gmail.com**20081008192645] [Do not consider XMONAD_TIMER unknown Joachim Breitner <mail(a)joachim-breitner.de>**20081008195643] [Kill window without focusing it first Joachim Breitner <mail(a)joachim-breitner.de>**20081005002533 This patch requires the patch "add killWindow function" in xmonad. Before this patch, people would experience “workspace flicker” when closing a window via EWMH that is not on the current workspace, for example when quitting pidgin via the panel icon. ] [let MagnifyLess actually magnify less daniel(a)wagner-home.com**20081015153911] [Actions.Search: add a few search engines intrigeri(a)boum.org**20081008104033 Add Debian {package, bug, tracking system} search engines, as well as Google Images and isohunt. ] [Implement HiddenNonEmptyWS with HiddenWS and NonEmptyWS Joachim Breitner <mail(a)joachim-breitner.de>**20081006211027 (Just to reduce code duplication) ] [Add straightforward HiddenWS to WSType Joachim Breitner <mail(a)joachim-breitner.de>**20081006210548 With NonEmptyWS and HiddenNonEmptyWS present, HiddenWS is obviously missing. ] [Merge emptyLayoutMod into redoLayout Joachim Breitner <mail(a)joachim-breitner.de>**20081005190220 This removes the emptyLayoutMod method from the LayoutModifier class, and change the Stack parameter to redoLayout to a Maybe Stack one. It also changes all affected code. This should should be a refactoring without any change in program behaviour. ] [SmartBorders even for empty layouts Joachim Breitner <mail(a)joachim-breitner.de>**20081005184426 Fixes: http://code.google.com/p/xmonad/issues/detail?id=223 ] [Paste.hs: improve haddocks gwern0(a)gmail.com**20080927150158] [Paste.hs: fix haddock gwern0(a)gmail.com**20080927145238] [minor explanatory comment daniel(a)wagner-home.com**20081003015919] [XMonad.Layout.HintedGrid: add GridRatio (--no-test because of haddock breakage) Lukas Mai <l.mai(a)web.de>**20080930141715] [XMonad.Util.Font: UTF8 -> USE_UTF8 Lukas Mai <l.mai(a)web.de>**20080930140056] [Paste.hs: implement noModMask suggestion gwern0(a)gmail.com**20080926232056] [fix a divide by zero error in Grid daniel(a)wagner-home.com**20080926204148] [-DUTF8 flag with -DUSE_UTF8 gwern0(a)gmail.com**20080921154014] [XSelection.hs: use CPP to compile against utf8-string gwern0(a)gmail.com**20080920151615] [add XMonad.Config.Azerty Devin Mullins <me(a)twifkak.com>**20080924044946] [flip GridRatio to match convention (x/y) Devin Mullins <me(a)twifkak.com>**20080922033354] [let Grid have a configurable aspect ratio goal daniel(a)wagner-home.com**20080922010950] [Paste.hs: +warning about ASCII limitations gwern0(a)gmail.com**20080921155038] [Paste.hs: shorten comment lines to under 80 columns per sjanssen gwern0(a)gmail.com**20080921154950] [Forgot to enable historyFilter :( Spencer Janssen <spencerjanssen(a)gmail.com>**20080921094254] [Prompt: add configurable history filters Spencer Janssen <spencerjanssen(a)gmail.com>**20080921093453] [Update my config to use 'statusBar' Spencer Janssen <spencerjanssen(a)gmail.com>**20080921063513] [Rename pasteKey functions to sendKey Spencer Janssen <spencerjanssen(a)gmail.com>**20080921062016] [DynamicLog: doc fixes Spencer Janssen <spencerjanssen(a)gmail.com>**20080921061314] [Move XMonad.Util.XPaste to XMonad.Util.Paste Spencer Janssen <spencerjanssen(a)gmail.com>**20080921060947] [Depend on X11 >= 1.4.3 Spencer Janssen <spencerjanssen(a)gmail.com>**20080921055456] [statusBar now supplies the action to toggle struts Spencer Janssen <spencerjanssen(a)gmail.com>**20080918013858] [cleanup - use currentTag Devin Mullins <me(a)twifkak.com>**20080921011159] [XPaste.hs: improve author info gwern0(a)gmail.com**20080920152342] [+XMonad.Util.XPaste: a module for pasting strings to windows gwern0(a)gmail.com**20080920152106] [UrgencyHook bug fix: cleanupUrgents should clean up reminders, too Devin Mullins <me(a)twifkak.com>**20080920062117] [Sketch of XMonad.Config.Monad Spencer Janssen <spencerjanssen(a)gmail.com>**20080917081838] [raiseMaster seanmce33(a)gmail.com**20080912184830] [Add missing space between dzen command and flags Daniel Neri <daniel.neri(a)sigicom.com>**20080915131009] [Big DynamicLog refactor. Added statusBar, improved compositionality for dzen and xmobar Spencer Janssen <spencerjanssen(a)gmail.com>**20080913205931 Compatibility notes: - dzen type change - xmobar type change - dynamicLogDzen removed - dynamicLogXmobar removed ] [Take maintainership of XMonad.Prompt Spencer Janssen <spencerjanssen(a)gmail.com>**20080911230442] [Overhaul Prompt to use a zipper for history navigation. Fixes issue #216 Spencer Janssen <spencerjanssen(a)gmail.com>**20080911225940] [Use the new completion on tab setting Spencer Janssen <spencerjanssen(a)gmail.com>**20080911085940] [Only start to show the completion window with more than one match Joachim Breitner <mail(a)joachim-breitner.de>**20080908110129] [XPrompt: Add showCompletionOnTab option Joachim Breitner <mail(a)joachim-breitner.de>**20080908105758 This patch partially implements http://code.google.com/p/xmonad/issues/detail?id=215 It adds a XPConfig option that, if enabled, hides the completion window until the user presses Tab once. Default behaviour is preserved. TODO: If Tab causes a unique completion, continue to hide the completion window. ] [XMonad.Actions.Plane.planeKeys: function to make easier to configure Marco Túlio Gontijo e Silva <marcot(a)riseup.net>**20080714153601] [XMonad.Actions.Plane: removed unneeded hiding Marco Túlio Gontijo e Silva <marcot(a)riseup.net>**20080714152631] [Improvements in documentation Marco Túlio Gontijo e Silva <marcot(a)riseup.net>**20080709002425] [Fix haddock typos in XMonad.Config.{Desktop,Gnome,Kde} Spencer Janssen <spencerjanssen(a)gmail.com>**20080911040808] [add clearUrgents for your keys Devin Mullins <me(a)twifkak.com>**20080909055425] [add reminder functionality to UrgencyHook Devin Mullins <me(a)twifkak.com>**20080824200548 I'm considering rewriting remindWhen and suppressWhen as UrgencyHookModifiers, so to speak. Bleh. ] [TAG 0.8 Spencer Janssen <spencerjanssen(a)gmail.com>**20080905195420] Patch bundle hash: dc8f746c1319799df0ed431610cc259c77dc7a48

2 2

darcs patch: dzenStatusBar (and 1 more)
by seanmce33＠gmail.com 28 Jan '09

28 Jan '09

Fri Sep 26 16:58:38 EDT 2008 seanmce33(a)gmail.com * dzenStatusBar adds a full width status bar using dzen run completely from xmonad Thu Oct 2 09:13:04 EDT 2008 seanmce33(a)gmail.com * layoutLogger, windowLogger, workspaceLogger,maildDir loggers layoutLogger: shows current layout workspaceLogger: shows current workspace windowLogger: shows current window mailDirUnread: show unread mail for a maildir directory mailDirNew: show new mail for a maildir directory fileCountLogger: show count of files matching filter in a given diretory

2 1

darcs patch: X actions in DynamicLog
by asgaroth 28 Jan '09

28 Jan '09

The attached patch makes it possible to use arbitrary X actions in the functions in DynamicLog, e.g. to display the window count for each workspace or display other more dynamic information. I supplied an additional PPX data type and functions that use it in order to maintain compatability with current configs. (This is my first contribution to a Haskell project and I'm not very skilled in writing Haskell code, so the patch probably contains style errors). Fri Jan 2 22:16:26 CET 2009 asgaroth <asgaroth_(a)gmx.de> * Support for X actions in logHook New patches: [Support for X actions in logHook asgaroth <asgaroth_(a)gmx.de>**20090102211626] { hunk ./XMonad/Hooks/DynamicLog.hs 36 dynamicLogWithPP, dynamicLogString, PP(..), defaultPP, + dynamicLogWithPPX, + dynamicLogStringX, + ppToPPX, PPX(..), -- * Example formatters dzenPP, xmobarPP, sjanssenPP, byorgeyPP, hunk ./XMonad/Hooks/DynamicLog.hs 225 -- | Format the current status using the supplied pretty-printing format, -- and write it to stdout. +dynamicLogWithPPX :: PPX -> X () +dynamicLogWithPPX ppx = dynamicLogStringX ppx >>= io . ppxOutput ppx + +-- | The same as dynamicLogWithPPX for PP dynamicLogWithPP :: PP -> X () hunk ./XMonad/Hooks/DynamicLog.hs 230 -dynamicLogWithPP pp = dynamicLogString pp >>= io . ppOutput pp +dynamicLogWithPP = dynamicLogWithPPX . ppToPPX hunk ./XMonad/Hooks/DynamicLog.hs 232 --- | The same as 'dynamicLogWithPP', except it simply returns the status +-- | The same as 'dynamicLogWithPPX', 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. hunk ./XMonad/Hooks/DynamicLog.hs 236 -dynamicLogString :: PP -> X String -dynamicLogString pp = do +dynamicLogStringX :: PPX -> X String +dynamicLogStringX ppx = do winset <- gets windowset urgents <- readUrgents hunk ./XMonad/Hooks/DynamicLog.hs 241 - sort' <- ppSort pp + sort' <- ppxSort ppx -- layout description let ld = description . S.layout . S.workspace . S.current $ winset hunk ./XMonad/Hooks/DynamicLog.hs 247 -- workspace list - let ws = pprWindowSet sort' urgents pp winset + ws <- pprWindowSet sort' urgents ppx winset -- window title hunk ./XMonad/Hooks/DynamicLog.hs 250 - wt <- maybe (return "") (fmap show . getName) . S.peek $ winset + wt <- (maybe (return "") (fmap show . getName) . S.peek $ winset) -- run extra loggers, ignoring any that generate errors. hunk ./XMonad/Hooks/DynamicLog.hs 253 - extras <- sequence $ map (flip catchX (return Nothing)) $ ppExtras pp + extras <- sequence $ map (flip catchX (return Nothing)) $ ppxExtras ppx + + -- format layout + layout <- ppxLayout ppx ld hunk ./XMonad/Hooks/DynamicLog.hs 258 - return $ encodeOutput . sepBy (ppSep pp) . ppOrder pp $ + -- format window title + tl <- ppxTitle ppx wt + + return $ encodeOutput . sepBy (ppxSep ppx) . ppxOrder ppx $ [ ws hunk ./XMonad/Hooks/DynamicLog.hs 263 - , ppLayout pp ld - , ppTitle pp wt + , layout + , tl ] ++ catMaybes extras hunk ./XMonad/Hooks/DynamicLog.hs 268 +-- | The same as dynamicLogStringX for PP +dynamicLogString :: PP -> X String +dynamicLogString = dynamicLogStringX . ppToPPX + -- | Format the workspace information, given a workspace sorting function, -- a list of urgent windows, a pretty-printer format, and the current -- WindowSet. hunk ./XMonad/Hooks/DynamicLog.hs 275 -pprWindowSet :: WorkspaceSort -> [Window] -> PP -> WindowSet -> String -pprWindowSet sort' urgents pp s = sepBy (ppWsSep pp) . map fmt . sort' $ - map S.workspace (S.current s : S.visible s) ++ S.hidden s +pprWindowSet :: WorkspaceSort -> [Window] -> PPX -> WindowSet -> X String +pprWindowSet sort' urgents ppx s = return . sepBy (ppxWsSep ppx) =<< (mapM fmt . sort' $ + map S.workspace (S.current s : S.visible s) ++ S.hidden s) where this = S.currentTag s visibles = map (S.tag . S.workspace) (S.visible s) hunk ./XMonad/Hooks/DynamicLog.hs 281 - fmt w = printer pp (S.tag w) - where printer | S.tag w == this = ppCurrent - | S.tag w `elem` visibles = ppVisible - | any (\x -> maybe False (== S.tag w) (S.findTag x s)) urgents = \ppC -> ppUrgent ppC . ppHidden ppC - | isJust (S.stack w) = ppHidden - | otherwise = ppHiddenNoWindows + fmt w = printer ppx (S.tag w) + where printer | S.tag w == this = ppxCurrent + | S.tag w `elem` visibles = ppxVisible + | any (\x -> maybe False (== S.tag w) (S.findTag x s)) urgents = \ppC str -> ppxUrgent ppC =<< ppxHidden ppC str + | isJust (S.stack w) = ppxHidden + | otherwise = ppxHiddenNoWindows -- | -- Workspace logger with a format designed for Xinerama: hunk ./XMonad/Hooks/DynamicLog.hs 418 -- formatting. } +-- | The 'PPX' is almost identical to PP, but differs from PP in that it +-- allows for X actions in its functions +data PPX = PPX { ppxCurrent :: WorkspaceId -> X String + -- ^ how to print the tag of the currently focused + -- workspace + , ppxVisible :: WorkspaceId -> X String + -- ^ how to print tags of visible but not focused + -- workspaces (xinerama only) + , ppxHidden :: WorkspaceId -> X String + -- ^ how to print tags of hidden workspaces which + -- contain windows + , ppxHiddenNoWindows :: WorkspaceId -> X String + -- ^ how to print tags of empty hidden workspaces + , ppxUrgent :: WorkspaceId -> X String + -- ^ format to be applied to tags of urgent workspaces. + -- NOTE that 'ppUrgent' is applied /in addition to/ + -- 'ppHidden'! + , ppxSep :: String + -- ^ separator to use between different log sections + -- (window name, layout, workspaces) + , ppxWsSep :: String + -- ^ separator to use between workspace tags + , ppxTitle :: String -> X String + -- ^ window title format + , ppxLayout :: String -> X String + -- ^ layout name format + , ppxOrder :: [String] -> [String] + -- ^ how to order the different log sections. By + -- default, this function receives a list with three + -- formatted strings, representing the workspaces, + -- the layout, and the current window title, + -- respectively. If you have specified any extra + -- loggers in 'ppExtras', their output will also be + -- appended to the list. To get them in the reverse + -- order, you can just use @ppOrder = reverse@. If + -- you don't want to display the current layout, you + -- could use something like @ppOrder = \\(ws:_:t:_) -> + -- [ws,t]@, and so on. + , ppxSort :: X ([WindowSpace] -> [WindowSpace]) + -- ^ how to sort the workspaces. See + -- "XMonad.Util.WorkspaceCompare" for some useful + -- sorts. + , ppxExtras :: [X (Maybe String)] + -- ^ loggers for generating extra information such as + -- time and date, system load, battery status, and so + -- on. See "XMonad.Util.Loggers" for examples, or create + -- your own! + , ppxOutput :: String -> IO () + -- ^ applied to the entire formatted string in order to + -- output it. Can be used to specify an alternative + -- output method (e.g. write to a pipe instead of + -- stdout), and\/or to perform some last-minute + -- formatting. + } +-- | Converts a PP to a PPX. +ppToPPX :: PP -> PPX +ppToPPX pp = PPX { + ppxCurrent = return . ppCurrent pp, + ppxVisible = return . ppVisible pp, + ppxHidden = return . ppHidden pp, + ppxHiddenNoWindows = return . ppHiddenNoWindows pp, + ppxUrgent = return . ppUrgent pp, + ppxSep = ppSep pp, + ppxWsSep = ppWsSep pp, + ppxTitle = return . ppTitle pp, + ppxLayout = return . ppLayout pp, + ppxOrder = ppOrder pp, + ppxSort = ppSort pp, + ppxExtras = ppExtras pp, + ppxOutput = ppOutput pp + } + + -- | The default pretty printing options, as seen in 'dynamicLog'. defaultPP :: PP defaultPP = PP { ppCurrent = wrap "[" "]" } Context: [X.U.XSelection: get rid of warning about missing newline, add Haddock link Brent Yorgey <byorgey(a)cis.upenn.edu>**20090102194357] [adds haddock documentation for transformPromptSelection loupgaroublond(a)gmail.com**20090102190954 also renames the function per mailing list recommendation ] [adds a weird function to XSelection loupgaroublond(a)gmail.com**20081222020730 This enables you to pass a function of (String -> String) to a selection function to modify the string before executing it. This way, you can input your own escape routines to make it shell command line safe, and/or do other fancier things. ] [ThreeColumnsMiddle xmonad(a)c-otto.de**20090102091019] [fix-fromJust-errors rupa(a)lrrr.us**20081224045509 bogner wrote all this stuff and i just tested it. I had: myLogHook = ewmhDesktopLogHookCustom ScratchpadFilterOutWorkspace >> updatePointer Nearest Everytime I invoked or hid Scratchpad, it would leave a 'Maybe.fromJust: Nothing' line in .xsession-errors, and updatePointer would stop working. ] [ Prompt: Change Filemode to 600 for history-file (fixes bug 244) Dominik Bruhn <dominik(a)dbruhn.de>**20081218001601] [X.L.Monitor: changes in message passing Roman Cheplyaka <roma(a)ro-che.info>**20081226220851 - transform mbName (Maybe String) to name (String) - slghtly change semantics of messages, document it ] [X.L.Monitor: change interface Roman Cheplyaka <roma(a)ro-che.info>**20081226213118 - remove add*Monitor - add manageMonitor, monitor template ] [X.U.WindowProperties: propertyToQuery+docs Roman Cheplyaka <roma(a)ro-che.info>**20081225080702] [X.L.Monitor: docs Roman Cheplyaka <roma(a)ro-che.info>**20081225073904] [hlintify XUtils, XSelection, Search, WindowGo gwern0(a)gmail.com**20081220153302 Ignore-this: 7e877484e3cd8954b74232ea83180fa9 ] [fix focus issue for XMonad.Actions.Warp.banishScreen Norbert Zeh <nzeh(a)cs.dal.ca>**20081212203532 This patch ensures that the focus (or in fact the whose windowset) does not change as a result of a banishScreen. The way this is implemented will become problematic if xmonad ever goes multithreaded. ] [addition of XMonad.Actions.Warp.banishScreen Norbert Zeh <nzeh(a)cs.dal.ca>**20081212192621 This works on top of warpToScreen and, thus, suffers from the same issue: focus change. ] [fixed documentation for banish Norbert Zeh <nzeh(a)cs.dal.ca>**20081212191819 banish actually warps to the specified corner of the current window, not the screen. ] [addition of combined TallGrid layout Norbert Zeh <nzeh(a)cs.dal.ca>**20081212184836 Added a module XMonad.Layouts.GridVariants, which defines layouts Grid and TallGrid. The former is a customizable version of Grid. The latter is a combination of Grid and Tall (see doc of the module). ] [Add FixedColumn, a layout like Tall but based on the resize hints of windows Justin Bogner <mail(a)justinbogner.com>**20081213073054] [XMonad.Actions.WindowGo: fix a floating-related focus bug gwern0(a)gmail.com**20081205150755 Ignore-this: c8b6625aa2bd4136937acbd2ad64ffd3 If a floating window was focused, a cross-workspace 'raise' would cause a loop of shifting windows. Apparently the problem was 'focus' and its mouse-handling. Spencer suggested that the calls to focus be replaced with 'focusWindow', which resolved it. ] [Prompt.hs: +greenXPConfig and amberXPConfig gwern0(a)gmail.com**20081119213122 Ignore-this: 95ac7dbe9c8fe3618135966f251f4fc6 ] [Prompt.hs: increase font size to 12 from niggardly 10 gwern0(a)gmail.com**20081119212523 Ignore-this: 74a6e1ac5e1774da4ffc7c6667c034c ] [Prompt.hs: replace magic numbers with understandable names gwern0(a)gmail.com**20081119212502 Ignore-this: 8401c0213be9a32c925e1bd0ba5e01f1 ] [X.L.Monitor: recommend doHideIgnore (docs) Roman Cheplyaka <roma(a)ro-che.info>**20081215190710] [X.L.Monitor: docs Roman Cheplyaka <roma(a)ro-che.info>**20081215184423] [X.L.Monitor: export Monitor datatype Roman Cheplyaka <roma(a)ro-che.info>**20081215184318] [X.H.ManageHelpers: add doHideIgnore Roman Cheplyaka <roma(a)ro-che.info>**20081215182758] [Add KDE 4 config, thanks to Shirakawasuna on IRC Spencer Janssen <spencerjanssen(a)gmail.com>**20081211071141 Ignore-this: 51698961ab5b6e569c294d174f2804a9 ] [I use the deleteConsecutive history filter Spencer Janssen <spencerjanssen(a)gmail.com>**20081025070438] [Remove XMonad.Config.PlainConfig, it has been turned into the separate xmonad-light project. Braden Shepherdson <Braden.Shepherdson(a)gmail.com>**20081203161534] [XMonad.Prompt: swap up and down per bug #243 gwern0(a)gmail.com**20081203013323 Ignore-this: 8ab0481a0da7a983f501ac2fec4a68e8 ] [Fix boolean operator precedence in GridSelect keybindings Aleksandar Dimitrov <aleks.dimitrov(a)googlemail.com>**20081201120928 The vim-like hjkl keys were ORed to the key event AND arrow keys. ] [GridSelect.hs: navigate grid with h,j,k,l as well as arrow keys sean.escriva(a)gmail.com**20081122084725] [Export setOpacity from FadeInactive. Document how to make monitor transparent (X.L.Monitor) Roman Cheplyaka <roma(a)ro-che.info>**20081117153027] [Monitor: use broadcastMessage instead of sendMessage; this solves several issues Roman Cheplyaka <roma(a)ro-che.info>**20081117133957] [FadeInactive: fade all inactive windows (including focused windows on visible screens) Roman Cheplyaka <roma(a)ro-che.info>**20081117130115] [Monitor: documented one more issue Roman Cheplyaka <roma(a)ro-che.info>**20081117113807] [Monitor: improved the docs Roman Cheplyaka <roma(a)ro-che.info>**20081117073709] [added XMonad.Layout.Monitor Roman Cheplyaka <roma(a)ro-che.info>**20081115104735] [WindowProperties: added allWithProperty Roman Cheplyaka <roma(a)ro-che.info>**20081115104525] [ManageHelpers: added doSideFloat (generalization of doCenterFloat) Roman Cheplyaka <roma(a)ro-che.info>**20081114113015] [GridSelect: Export default_colorizer Dominik Bruhn <dominik(a)dbruhn.de>**20081112140005] [Simplify code for restriction-calculation and remove compiletime warnings Dominik Bruhn <dominik(a)dbruhn.de>**20081112134630] [Simplify handle/eventLoop, introduce findInWindowMap, partial updates for key movements (less flickering) Clemens Fruhwirth <clemens(a)endorphin.org>**20081111100405 * handle/eventLoop carried the display and the drawing window as parameters. The display is available from the embedded X monad, the drawing windows was added. * updateWindows now takes a list of windows to update. updateAllWindows updates all windows. * only the windows that are modified by key movements are redrawn now. This means less flickering. ] [GridSelect: force cursor stay in visible area Roman Cheplyaka <roma(a)ro-che.info>**20081111063348] [GridSelect: fix infiniteness problem with diamondRestrict Roman Cheplyaka <roma(a)ro-che.info>**20081111055350] [GridSelect: remove tabs Roman Cheplyaka <roma(a)ro-che.info>**20081111053647] [Exported shrinkWhile from Decoration to use in GridSelect Roman Cheplyaka <roma(a)ro-che.info>**20081110191534] [GridSelect: added link to a screenshot Roman Cheplyaka <roma(a)ro-che.info>**20081110190617] [GridSelect: various improvements Roman Cheplyaka <roma(a)ro-che.info>**20081110184644 Added documentation Restricted export list for the sake of haddock Added functions: withSelectedWindow bringSelected (by Clemens Fruhwirth) goToSelected (by Dominik Bruhn) ] [Initial version of GridSelect.hs with a lot room for improvement/cleanups Clemens Fruhwirth <clemens(a)endorphin.org>**20081107115114] [documentation: XMonad.Util.Search.hs, add EZConfig keybindings example sean.escriva(a)gmail.com**20081106171707] [typo Don Stewart <dons(a)galois.com>**20081104043044 Ignore-this: bdac0ff3316c821bce321b51c62f6e89 ] [place an upper bound on the version of base we support Don Stewart <dons(a)galois.com>**20081104035857 Ignore-this: 29139cc4f0ecb299b56ae99f7d20b854 ] [explicit import list for things in the process library Don Stewart <dons(a)galois.com>**20081104035319 Ignore-this: 91b7f96421828788760e8bcff7dec317 ] [Work around ghc 6.10 bug #2738 Don Stewart <dons(a)galois.com>**20081104034819 Ignore-this: c75da9693fa642025eac0d074869423d ] [windowPromptBringCopy deadguysfrom(a)gmail.com**20081023173019] [generic menu and window bringer Travis B. Hartwell <nafai(a)travishartwell.net>**20081027005523] [Search.hs: +hackage search, courtesy of byorgey gwern0(a)gmail.com**20081031214937 Ignore-this: 24db0ceed49f8bd37ce98ccf8f8ca2ab ] [Prompt.hs rename deleteConsecutiveDuplicates gwern0(a)gmail.com**20081008205131 That name is really unwieldy and long. ] [Prompt.hs: have historyCompletion filter dupes gwern0(a)gmail.com**20081008204710 Specifically, it calls deleteConsecutiveDuplicates on the end product. uniqSort reverses order in an unfortunate way, so we don't use that. The use-case is when a user has added the same input many times - as it stands, if the history records 30 'top's or whatever, the completion will show 30 'top' entries! This fixes that. ] [Prompt.hs: tweak haddocks gwern0(a)gmail.com**20081008204649] [Prompt.hs: mv uniqSort to next to its confreres, and mention the trade-off gwern0(a)gmail.com**20081008192645] [Do not consider XMONAD_TIMER unknown Joachim Breitner <mail(a)joachim-breitner.de>**20081008195643] [Kill window without focusing it first Joachim Breitner <mail(a)joachim-breitner.de>**20081005002533 This patch requires the patch "add killWindow function" in xmonad. Before this patch, people would experience “workspace flicker” when closing a window via EWMH that is not on the current workspace, for example when quitting pidgin via the panel icon. ] [let MagnifyLess actually magnify less daniel(a)wagner-home.com**20081015153911] [Actions.Search: add a few search engines intrigeri(a)boum.org**20081008104033 Add Debian {package, bug, tracking system} search engines, as well as Google Images and isohunt. ] [Implement HiddenNonEmptyWS with HiddenWS and NonEmptyWS Joachim Breitner <mail(a)joachim-breitner.de>**20081006211027 (Just to reduce code duplication) ] [Add straightforward HiddenWS to WSType Joachim Breitner <mail(a)joachim-breitner.de>**20081006210548 With NonEmptyWS and HiddenNonEmptyWS present, HiddenWS is obviously missing. ] [Merge emptyLayoutMod into redoLayout Joachim Breitner <mail(a)joachim-breitner.de>**20081005190220 This removes the emptyLayoutMod method from the LayoutModifier class, and change the Stack parameter to redoLayout to a Maybe Stack one. It also changes all affected code. This should should be a refactoring without any change in program behaviour. ] [SmartBorders even for empty layouts Joachim Breitner <mail(a)joachim-breitner.de>**20081005184426 Fixes: http://code.google.com/p/xmonad/issues/detail?id=223 ] [Paste.hs: improve haddocks gwern0(a)gmail.com**20080927150158] [Paste.hs: fix haddock gwern0(a)gmail.com**20080927145238] [minor explanatory comment daniel(a)wagner-home.com**20081003015919] [XMonad.Layout.HintedGrid: add GridRatio (--no-test because of haddock breakage) Lukas Mai <l.mai(a)web.de>**20080930141715] [XMonad.Util.Font: UTF8 -> USE_UTF8 Lukas Mai <l.mai(a)web.de>**20080930140056] [Paste.hs: implement noModMask suggestion gwern0(a)gmail.com**20080926232056] [fix a divide by zero error in Grid daniel(a)wagner-home.com**20080926204148] [-DUTF8 flag with -DUSE_UTF8 gwern0(a)gmail.com**20080921154014] [XSelection.hs: use CPP to compile against utf8-string gwern0(a)gmail.com**20080920151615] [add XMonad.Config.Azerty Devin Mullins <me(a)twifkak.com>**20080924044946] [flip GridRatio to match convention (x/y) Devin Mullins <me(a)twifkak.com>**20080922033354] [let Grid have a configurable aspect ratio goal daniel(a)wagner-home.com**20080922010950] [Paste.hs: +warning about ASCII limitations gwern0(a)gmail.com**20080921155038] [Paste.hs: shorten comment lines to under 80 columns per sjanssen gwern0(a)gmail.com**20080921154950] [Forgot to enable historyFilter :( Spencer Janssen <spencerjanssen(a)gmail.com>**20080921094254] [Prompt: add configurable history filters Spencer Janssen <spencerjanssen(a)gmail.com>**20080921093453] [Update my config to use 'statusBar' Spencer Janssen <spencerjanssen(a)gmail.com>**20080921063513] [Rename pasteKey functions to sendKey Spencer Janssen <spencerjanssen(a)gmail.com>**20080921062016] [DynamicLog: doc fixes Spencer Janssen <spencerjanssen(a)gmail.com>**20080921061314] [Move XMonad.Util.XPaste to XMonad.Util.Paste Spencer Janssen <spencerjanssen(a)gmail.com>**20080921060947] [Depend on X11 >= 1.4.3 Spencer Janssen <spencerjanssen(a)gmail.com>**20080921055456] [statusBar now supplies the action to toggle struts Spencer Janssen <spencerjanssen(a)gmail.com>**20080918013858] [cleanup - use currentTag Devin Mullins <me(a)twifkak.com>**20080921011159] [XPaste.hs: improve author info gwern0(a)gmail.com**20080920152342] [+XMonad.Util.XPaste: a module for pasting strings to windows gwern0(a)gmail.com**20080920152106] [UrgencyHook bug fix: cleanupUrgents should clean up reminders, too Devin Mullins <me(a)twifkak.com>**20080920062117] [Sketch of XMonad.Config.Monad Spencer Janssen <spencerjanssen(a)gmail.com>**20080917081838] [raiseMaster seanmce33(a)gmail.com**20080912184830] [Add missing space between dzen command and flags Daniel Neri <daniel.neri(a)sigicom.com>**20080915131009] [Big DynamicLog refactor. Added statusBar, improved compositionality for dzen and xmobar Spencer Janssen <spencerjanssen(a)gmail.com>**20080913205931 Compatibility notes: - dzen type change - xmobar type change - dynamicLogDzen removed - dynamicLogXmobar removed ] [Take maintainership of XMonad.Prompt Spencer Janssen <spencerjanssen(a)gmail.com>**20080911230442] [Overhaul Prompt to use a zipper for history navigation. Fixes issue #216 Spencer Janssen <spencerjanssen(a)gmail.com>**20080911225940] [Use the new completion on tab setting Spencer Janssen <spencerjanssen(a)gmail.com>**20080911085940] [Only start to show the completion window with more than one match Joachim Breitner <mail(a)joachim-breitner.de>**20080908110129] [XPrompt: Add showCompletionOnTab option Joachim Breitner <mail(a)joachim-breitner.de>**20080908105758 This patch partially implements http://code.google.com/p/xmonad/issues/detail?id=215 It adds a XPConfig option that, if enabled, hides the completion window until the user presses Tab once. Default behaviour is preserved. TODO: If Tab causes a unique completion, continue to hide the completion window. ] [XMonad.Actions.Plane.planeKeys: function to make easier to configure Marco Túlio Gontijo e Silva <marcot(a)riseup.net>**20080714153601] [XMonad.Actions.Plane: removed unneeded hiding Marco Túlio Gontijo e Silva <marcot(a)riseup.net>**20080714152631] [Improvements in documentation Marco Túlio Gontijo e Silva <marcot(a)riseup.net>**20080709002425] [Fix haddock typos in XMonad.Config.{Desktop,Gnome,Kde} Spencer Janssen <spencerjanssen(a)gmail.com>**20080911040808] [add clearUrgents for your keys Devin Mullins <me(a)twifkak.com>**20080909055425] [add reminder functionality to UrgencyHook Devin Mullins <me(a)twifkak.com>**20080824200548 I'm considering rewriting remindWhen and suppressWhen as UrgencyHookModifiers, so to speak. Bleh. ] [TAG 0.8 Spencer Janssen <spencerjanssen(a)gmail.com>**20080905195420] Patch bundle hash: cc9abf6b55e3a76881306cc9a6b11dbab56f447e

2 1

Two xmonad-contrib patches
by Quentin Moser 28 Jan '09

28 Jan '09

Hello, here are two small darcs patches to xmonad-contrib: 1) An XMonad.Actions.MessageFeedback module providing a sendMessage-like action that tells the caller whether the message was actually handled. 2) A (backwards-compatible) patch to XMonad.Layout.LayoutHints that allows specifying where the resized windows should be placed wrt. their original allocated area. I hope I'm doing things the correct way as I don't have much experience with the xmonad development process, darcs, or cooperative development in general. Q. Moser

2 1

Re: [xmonad] workspace switching and Xinerama
by Brent Yorgey 28 Jan '09

28 Jan '09

On Tue, Jan 27, 2009 at 12:54:00PM +0100, Karl Hasselström wrote: > On 2009-01-26 11:32:25 -0500, Brent Yorgey wrote: > > Hmm, that's a tricky one. It should be possible in theory, but you > > would need to implement something pretty low-level to make it work, > > maybe even a brand new layout modifier based on the WindowNavigation > > one. This could make a nice project for someone. > > > > The problem is that there's no way (currently) for the > > WindowNavigation layout modifier to report what it did (whether it > > actually moved the focus to a different window or not), so no way to > > take another action conditioned on that result. > > Yeah, I thought that might be the case. A bit over my head at this > point, though -- I still haven't understood how the typing works with > sendMessage, for example. :-/ And I guess what has to be done is > provide a way for sendMessage to return stuff? Hmm, I guess that could > be faked with side effects in the X monad, but that doesn't seem > pretty. Actually, I was wrong! Check out the new XMonad.Actions.MessageFeedback, which was just applied in darcs. It lets you send a message and find out whether the message was handled---which, if WindowNavigation works at all in a sane manner, should tell you whether the movement command actually had any effect. You should be able to use this to pretty easily construct an action that first sends a motion command for WindowNavigation, and then conditionally does a nextScreen action or whatever, based on whether WindowNavigation responded to the message. -Brent

1 0

New User Impressions
by Kathryn Andersen 28 Jan '09

28 Jan '09

I am a new user of xmonad, but I've been poking around the mailing list, and noticed a rather old but interesting thread here: http://thread.gmane.org/gmane.comp.lang.haskell.xmonad/3803/focus=3823 I know that was a long time ago, but I'd like to give my feedback anyway. I am using the version of xmonad which is available on Ubunti 8.10, xmonad version 0.8. Previous window managers I've used before xmonad: - Mwm and Twm were my first window managers, back in ancient history. - I think I moved to Vtwm next. - Fvwm (I keep coming back to this again and again and again; it's so wonderfully configurable) - CDE (but only because I was forced to for work) - back to Fvwm; there might have been a few others too - KDE (very pretty, but bloated and slow, limited configuration) - GNOME (not as pretty, just as bloated and limited) - back to Fvwm - wmi/wmii-2 (some great ideas, but a moving target; also the developers were unfriendly) - ion2/ion3 (some good ideas, very lacking in others) - back to Fvwm - Fvwm-crystal (basically a layer on top of Fvwm, very pretty) - Xfce (rather nice, middleweight, pretty; if it hadn't been for some resizing problems with small screens I might still have been using it on my eeePC) - wmii-3 (continued with the great ideas, but still not stable, and the developers are still unfriendly) I haven't tried Compiz because my video card isn't supported. About xmonad: 1) What things annoy you? a) The way the mouse behaves on focus-change. The normal behaviour has meant that sometimes I have clicked to paste a selection, and it went into the wrong window. However, when I had the UpdatePointer plugin installed, it was lovely, until I tried to use GIMP, and then the pointer moved when I didn't want it to. I can't win. b) The lack of screenshots of the different layouts; the only way of figuring out what they do is to enable them and see what happens. c) Documentation of layouts and plugins is varied; some are good, with examples, others are just cryptic. 2) What things do you like? a) Lots of plugins, so one doesn't have to learn Haskell before one can configure xmonad. b) Support of EWMH struts in two ways; I like being able to have a status bar and system monitor on every workspace. On one system I use the ManageDocks, and on another system I use the Gaps layout (because I use conky there, and it doesn't support partial struts) c) The flexibility of what one can use for status bars (on the other hand, this has a downside, because there is a learning curve for configuring said status bars) d) Reloading the config on the fly. e) If you pick a certain layout, it behaves the same way every time. f) It is blindingly fast. g) It is stable. h) The Lambda-in-X logo (Well, I do like it! I like the allusion to the Lamda Calculus) 3) What things can be done better? a) Theming. It's a bit clunky at this point. Some things are defined in xmonad.hs, some things are defined in the xmobar/dzen config, some things are defined in the script I use to call dmenu. One can't really change the theme on the fly. 4) What things are missing? a) xmonad appears to support fewer keybindings than other window managers; however, I got around this by installing xbindkeys and using those keys-which-xmonad-does-not-support to spawn programs rather than control the window manager. See also (1) and (5). 5) What things do you miss from ion/wmii/dwm/compiz? a) From ion, the way the tabbing worked; specifically that any frame could be tabbed, and that one could drag-and-drop tabs from one frame to another. Sure, the Tabbed layout supports some of this, but not all of it. b) From wmii, I miss the way one can click on the status bar labels to change workspaces. It's no good running an external pager, because they are *graphical*, they don't show the workspace labels, and it's the workspace labels that I like. And while xmobar and dzen2 can display the current workspace information, one can't click on them to change workspaces. c) I really miss the eyecandy of Xfce and Fvwm. Yes, we don't *need* things to be pretty, but I like being able to have a choice between 3D and flat borders, I like being able to make really cool semi-translucent themes, I miss gradients and pixmaps, I liked being able to make an Xfce theme where the titlebar looked like frosted glass framed in silver and gold. d) I do miss being able to close a window by clicking on a "close" button in the titlebar. Modkey-Shift-c is a bit clunky, though I do understand that it needs to be so, in order to prevent accidental closure of windows. However, sometimes one gets a situation where an application has locked up the keyboard, and the only thing working is the mouse, and one needs to be able to use the mouse to kill the offending application. e) I miss being able to drag floating windows by the titlebar; having to hold down the mod key before I can move them is annoying, because it requires two hands rather than one. 6) What things do you not miss from ion/wmii/dwm/compiz? a) I don't miss the failure of wmii to support EWMH struts. b) I don't miss having to readjust columns in wmii every time one added or deleted a window. c) I don't miss the having-to-move-stuff-around of non-tiling window managers. d) I don't miss the constant switching between mouse and keyboard which happens with non-tiling window managers. Kathryn Andersen -- _--_|\ | Kathryn Andersen <http://www.katspace.com> / \ | \_.--.*/ | GenFicCrit mailing list <http://www.katspace.com/gen_fic_crit/> v | ------------| Melbourne -> Victoria -> Australia -> Southern Hemisphere Maranatha! | -> Earth -> Sol -> Milky Way Galaxy -> Universe

2 1

how do I get a layout like this?
by Karl Hasselström 28 Jan '09

28 Jan '09

[ Apologies if this is a duplicate -- I haven't seen it show up on the list, so I'm resending from the address that I subscribed with. ] Hi all. I just started using xmonad, and there's a layout I want to have but can't quite figure out how to get. I'm sure it's just a matter of gluing the right pieces from the contrib library together, but I haven't gotten it right yet. I want the workspace to be divided vertically into two areas. Each area should show just one window at a time. Pressing Alt-Tab (or something) should cycle through, in the currently focused half of the screen, all windows except the one that's visible in the other area. The idea being that visible but non-focused windows should stay visible and non-focused. For example, assume the workspace has five windows, A through E, with C and E currently visible. Alt-Tabbing when the focus is on the left half of the workspace should cycle through A, B, C, and D; if the right half is focused, we should cycle through A, B, D, and E. XMonad.Actions.CycleWS lets me do exactly this with workspaces and two Xinerama screens, by binding (moveTo Next HiddenNonEmptyWS) to a key. -- Karl Hasselström, kha(a)treskal.com www.treskal.com/kalle

4 5

submapDefault patch - default action for submaps
by Anders Engström 28 Jan '09

28 Jan '09

Hi. I made some small changes to XMonad.Actions.Submap to add support for a default action to take when the key doesn't match. My reason for creating this patch is to be able to use sticky submaps that only exit on a specific key, but I am sure it can be used for a lot of other things, for example a multi-level on-screen-display menu. Example: entersub = submapDefault entersub sublist sublist = M.fromList $ [ ((0, xK_Escape), return ()) , ((0, xK_u), spawn "mpc toggle" >> entersub) ] And then bind a key to entersub. Well, this is the first patch I am commiting, so I hope everything is to your liking. Very good development tutorial for modules by the way. Regards, Anders Engström.

2 1