September 2009 - xmonad

Issue 45 in xmonad: xmonad should be smarter about mouse movement
by codesite-noreply＠google.com 16 Sep '09

16 Sep '09

Comment #10 on issue 45 by zenzike: xmonad should be smarter about mouse movement http://code.google.com/p/xmonad/issues/detail?id=45 This is better fixed with the command: unclutter -noevents rather than -grab, since the -noevents works without breaking the scroll wheels. The man page for unclutter tells us that it's exactly what we need: -noevents stops unclutter sending a pseudo EnterNotify event to the X client whose cursor has been stolen. Sending the event helps programs like emacs think that they have not lost the pointer focus. This option is provided for backwards compatibility in case some clients get upset. -- You received this message because you are listed in the owner or CC fields of this issue, or because you starred this issue. You may adjust your issue notification preferences at: http://code.google.com/hosting/settings

1 0

Darcs advice needed
by Jan Vornberger 15 Sep '09

15 Sep '09

Hi there! As I'm preparing to merge Bluetile's repository back into xmonad's mainline, I'm a little unsure how to best use Darcs for this goal. I don't have that much experience with Darcs, so I was hoping, I could get some advice on what is the best way to go about this. So there is the public xmonad repository as well as the public Bluetile repository. Now let's say I have two kinds of features: Some simple ones, like feature X, that can just go in unchanged. But there might also be some feature Y, where I might decide that for submission as a patch, I have to do it in a somewhat different way. So I want to revert Y and code it again as Z. How do I do this? I can think of these ways: 1. Have a new repository based on xmonad's mainline, where I incrementally pull in stuff from Bluetile's repo and polish it up. So in this case, I would pull X, but not pull Y, instead write a new patch for this repo that implements Z. Seems like a simple approach to me, but has the disadvantage, that Bluetile's repo will never get in sync with xmonad's repo, because it still has the X stuff. 2. Work with Bluetile's repo and simply obliterate patch Y and implement patch Z. This seems like a bad approach, as people that might have pulled from Bluetile's repo won't notice that a patch was obliterated. It seems the Darcs manual agrees, that patches should never be obliterated, once they are public. 3. Work with Bluetile's repo and create a reverse patch Y^-1 as well as patch Z. This has the advantage, that Bluetile's repo can get in sync with xmonad's mainline. I'm just not sure, if this is the 'darcs way' of doing things? Also, when submitting patches for feature Z, do I submit a) Y, Y^-1 and Z or b) just Z? Case a) seems like a lot of junk that shouldn't be in xmonad's mainline. But for case b) I fear, it might not be possible for some cases. Let's say the patch history looks something like: Y A B C D E F Y^-1 Z. Then later when working on A or B, it might not be possible to go without Y even so it's later reverted. Comments? Advice? Best regards, Jan

3 3

[PATCH 1/2] XMonadContrib: add a utility module to set the default cursor
by Andres Salomon 15 Sep '09

15 Sep '09

Based upon comments on the list and IRC, here's an updated set of patches. I went with "xc_" as the cursor name prefix as opposed to haskell-x11's "xC_"/"xK_" convention so that if haskell-x11 starts exporting the symbols, we won't have any namespace issues. From c7723b6cfc9dc8b1225ca2f184e282d502925af2 Mon Sep 17 00:00:00 2001 From: Andres Salomon <dilinger(a)collabora.co.uk> Date: Tue, 15 Sep 2009 00:16:21 -0400 Subject: [PATCH 1/2] XMonadContrib: add a utility module to set the default cursor This adds XMonad.Util.Cursor, which defines a function that allows setting the default mouse cursor. This can be useful for (for example) gnomeConfig, to ensure that the root cursor is changed from X_cursor to left_ptr. Signed-off-by: Andres Salomon <dilinger(a)collabora.co.uk> --- XMonad/Doc/Extending.hs | 2 + XMonad/Util/Cursor.hsc | 354 +++++++++++++++++++++++++++++++++++++++++++++++ xmonad-contrib.cabal | 1 + 3 files changed, 357 insertions(+), 0 deletions(-) create mode 100644 XMonad/Util/Cursor.hsc diff --git a/XMonad/Doc/Extending.hs b/XMonad/Doc/Extending.hs index 39e11a2..1c07b56 100644 --- a/XMonad/Doc/Extending.hs +++ b/XMonad/Doc/Extending.hs @@ -448,6 +448,8 @@ external utilities. A non complete list with a brief description: +* "XMonad.Util.Cursor": configure the default cursor/pointer glyph. + * "XMonad.Util.CustomKeys": configure key bindings (see "XMonad.Doc.Extending#Editing_key_bindings"). diff --git a/XMonad/Util/Cursor.hsc b/XMonad/Util/Cursor.hsc new file mode 100644 index 0000000..10e3d31 --- /dev/null +++ b/XMonad/Util/Cursor.hsc @@ -0,0 +1,354 @@ +---------------------------------------------------------------------------- +-- | +-- Module : XMonad.Util.Cursor +-- Copyright : (c) 2009 Collabora Ltd +-- License : BSD-style (see xmonad/LICENSE) +-- +-- Maintainer : Andres Salomon <dilinger(a)collabora.co.uk> +-- Stability : unstable +-- Portability : unportable +-- +-- A module for setting the default mouse cursor. +-- +-- Some ideas shamelessly stolen from Nils Schweinsberg; thanks! +----------------------------------------------------------------------------- + +module XMonad.Util.Cursor + ( -- * Usage: + -- $usage + setDefaultCursor, + xc_X_cursor, + xc_arrow, + xc_based_arrow_down, + xc_based_arrow_up, + xc_boat, + xc_bogosity, + xc_bottom_left_corner, + xc_bottom_right_corner, + xc_bottom_side, + xc_bottom_tee, + xc_box_spiral, + xc_center_ptr, + xc_circle, + xc_clock, + xc_coffee_mug, + xc_cross, + xc_cross_reverse, + xc_crosshair, + xc_diamond_cross, + xc_dot, + xc_dotbox, + xc_double_arrow, + xc_draft_large, + xc_draft_small, + xc_draped_box, + xc_exchange, + xc_fleur, + xc_gobbler, + xc_gumby, + xc_hand1, + xc_hand2, + xc_heart, + xc_icon, + xc_iron_cross, + xc_left_ptr, + xc_left_side, + xc_left_tee, + xc_leftbutton, + xc_ll_angle, + xc_lr_angle, + xc_man, + xc_middlebutton, + xc_mouse, + xc_pencil, + xc_pirate, + xc_plus, + xc_question_arrow, + xc_right_ptr, + xc_right_side, + xc_right_tee, + xc_rightbutton, + xc_rtl_logo, + xc_sailboat, + xc_sb_down_arrow, + xc_sb_h_double_arrow, + xc_sb_left_arrow, + xc_sb_right_arrow, + xc_sb_up_arrow, + xc_sb_v_double_arrow, + xc_shuttle, + xc_sizing, + xc_spider, + xc_spraycan, + xc_star, + xc_target, + xc_tcross, + xc_top_left_arrow, + xc_top_left_corner, + xc_top_right_corner, + xc_top_side, + xc_top_tee, + xc_trek, + xc_ul_angle, + xc_umbrella, + xc_ur_angle, + xc_watch, + xc_xterm + ) where + +import XMonad + +-- $usage +-- setDefaultCursor xc_left_ptr +-- For example, to override the default gnome cursor: +-- import XMonad.Util.Cursor +-- main = xmonad gnomeConfig { startupHook = setDefaultCursor xc_pirate } +-- Arrr! + + +-- | Import the cursor font names from cursorfont.h + +#include <X11/cursorfont.h> + +xc_X_cursor :: Glyph +xc_X_cursor = #const XC_X_cursor + +xc_arrow :: Glyph +xc_arrow = #const XC_arrow + +xc_based_arrow_down :: Glyph +xc_based_arrow_down = #const XC_based_arrow_down + +xc_based_arrow_up :: Glyph +xc_based_arrow_up = #const XC_based_arrow_up + +xc_boat :: Glyph +xc_boat = #const XC_boat + +xc_bogosity :: Glyph +xc_bogosity = #const XC_bogosity + +xc_bottom_left_corner :: Glyph +xc_bottom_left_corner = #const XC_bottom_left_corner + +xc_bottom_right_corner :: Glyph +xc_bottom_right_corner = #const XC_bottom_right_corner + +xc_bottom_side :: Glyph +xc_bottom_side = #const XC_bottom_side + +xc_bottom_tee :: Glyph +xc_bottom_tee = #const XC_bottom_tee + +xc_box_spiral :: Glyph +xc_box_spiral = #const XC_box_spiral + +xc_center_ptr :: Glyph +xc_center_ptr = #const XC_center_ptr + +xc_circle :: Glyph +xc_circle = #const XC_circle + +xc_clock :: Glyph +xc_clock = #const XC_clock + +xc_coffee_mug :: Glyph +xc_coffee_mug = #const XC_coffee_mug + +xc_cross :: Glyph +xc_cross = #const XC_cross + +xc_cross_reverse :: Glyph +xc_cross_reverse = #const XC_cross_reverse + +xc_crosshair :: Glyph +xc_crosshair = #const XC_crosshair + +xc_diamond_cross :: Glyph +xc_diamond_cross = #const XC_diamond_cross + +xc_dot :: Glyph +xc_dot = #const XC_dot + +xc_dotbox :: Glyph +xc_dotbox = #const XC_dotbox + +xc_double_arrow :: Glyph +xc_double_arrow = #const XC_double_arrow + +xc_draft_large :: Glyph +xc_draft_large = #const XC_draft_large + +xc_draft_small :: Glyph +xc_draft_small = #const XC_draft_small + +xc_draped_box :: Glyph +xc_draped_box = #const XC_draped_box + +xc_exchange :: Glyph +xc_exchange = #const XC_exchange + +xc_fleur :: Glyph +xc_fleur = #const XC_fleur + +xc_gobbler :: Glyph +xc_gobbler = #const XC_gobbler + +xc_gumby :: Glyph +xc_gumby = #const XC_gumby + +xc_hand1 :: Glyph +xc_hand1 = #const XC_hand1 + +xc_hand2 :: Glyph +xc_hand2 = #const XC_hand2 + +xc_heart :: Glyph +xc_heart = #const XC_heart + +xc_icon :: Glyph +xc_icon = #const XC_icon + +xc_iron_cross :: Glyph +xc_iron_cross = #const XC_iron_cross + +xc_left_ptr :: Glyph +xc_left_ptr = #const XC_left_ptr + +xc_left_side :: Glyph +xc_left_side = #const XC_left_side + +xc_left_tee :: Glyph +xc_left_tee = #const XC_left_tee + +xc_leftbutton :: Glyph +xc_leftbutton = #const XC_leftbutton + +xc_ll_angle :: Glyph +xc_ll_angle = #const XC_ll_angle + +xc_lr_angle :: Glyph +xc_lr_angle = #const XC_lr_angle + +xc_man :: Glyph +xc_man = #const XC_man + +xc_middlebutton :: Glyph +xc_middlebutton = #const XC_middlebutton + +xc_mouse :: Glyph +xc_mouse = #const XC_mouse + +xc_pencil :: Glyph +xc_pencil = #const XC_pencil + +xc_pirate :: Glyph +xc_pirate = #const XC_pirate + +xc_plus :: Glyph +xc_plus = #const XC_plus + +xc_question_arrow :: Glyph +xc_question_arrow = #const XC_question_arrow + +xc_right_ptr :: Glyph +xc_right_ptr = #const XC_right_ptr + +xc_right_side :: Glyph +xc_right_side = #const XC_right_side + +xc_right_tee :: Glyph +xc_right_tee = #const XC_right_tee + +xc_rightbutton :: Glyph +xc_rightbutton = #const XC_rightbutton + +xc_rtl_logo :: Glyph +xc_rtl_logo = #const XC_rtl_logo + +xc_sailboat :: Glyph +xc_sailboat = #const XC_sailboat + +xc_sb_down_arrow :: Glyph +xc_sb_down_arrow = #const XC_sb_down_arrow + +xc_sb_h_double_arrow :: Glyph +xc_sb_h_double_arrow = #const XC_sb_h_double_arrow + +xc_sb_left_arrow :: Glyph +xc_sb_left_arrow = #const XC_sb_left_arrow + +xc_sb_right_arrow :: Glyph +xc_sb_right_arrow = #const XC_sb_right_arrow + +xc_sb_up_arrow :: Glyph +xc_sb_up_arrow = #const XC_sb_up_arrow + +xc_sb_v_double_arrow :: Glyph +xc_sb_v_double_arrow = #const XC_sb_v_double_arrow + +xc_shuttle :: Glyph +xc_shuttle = #const XC_shuttle + +xc_sizing :: Glyph +xc_sizing = #const XC_sizing + +xc_spider :: Glyph +xc_spider = #const XC_spider + +xc_spraycan :: Glyph +xc_spraycan = #const XC_spraycan + +xc_star :: Glyph +xc_star = #const XC_star + +xc_target :: Glyph +xc_target = #const XC_target + +xc_tcross :: Glyph +xc_tcross = #const XC_tcross + +xc_top_left_arrow :: Glyph +xc_top_left_arrow = #const XC_top_left_arrow + +xc_top_left_corner :: Glyph +xc_top_left_corner = #const XC_top_left_corner + +xc_top_right_corner :: Glyph +xc_top_right_corner = #const XC_top_right_corner + +xc_top_side :: Glyph +xc_top_side = #const XC_top_side + +xc_top_tee :: Glyph +xc_top_tee = #const XC_top_tee + +xc_trek :: Glyph +xc_trek = #const XC_trek + +xc_ul_angle :: Glyph +xc_ul_angle = #const XC_ul_angle + +xc_umbrella :: Glyph +xc_umbrella = #const XC_umbrella + +xc_ur_angle :: Glyph +xc_ur_angle = #const XC_ur_angle + +xc_watch :: Glyph +xc_watch = #const XC_watch + +xc_xterm :: Glyph +xc_xterm = #const XC_xterm + + +-- | Set the default (root) cursor +setDefaultCursor :: Glyph -> X () +setDefaultCursor glyph = do + dpy <- asks display + rootw <- asks theRoot + liftIO $ do + curs <- createFontCursor dpy glyph + defineCursor dpy rootw curs + flush dpy + freeCursor dpy curs diff --git a/xmonad-contrib.cabal b/xmonad-contrib.cabal index 0d056a0..4b2a850 100644 --- a/xmonad-contrib.cabal +++ b/xmonad-contrib.cabal @@ -209,6 +209,7 @@ library XMonad.Prompt.Window XMonad.Prompt.Workspace XMonad.Prompt.XMonad + XMonad.Util.Cursor XMonad.Util.CustomKeys XMonad.Util.Dmenu XMonad.Util.Dzen -- 1.6.3.3

3 2

Fwd: [xmonad] [PATCH 1/2] XMonadContrib: add a utility module to set the default cursor
by Gwern Branwen 15 Sep '09

15 Sep '09

On Tue, Sep 15, 2009 at 2:22 AM, Andres Salomon <dilinger(a)collabora.co.uk> wrote: > Based upon comments on the list and IRC, here's an updated set of patches. I > went with "xc_" as the cursor name prefix as opposed to haskell-x11's > "xC_"/"xK_" convention so that if haskell-x11 starts exporting the > symbols, we won't have any namespace issues. ... Whoa. I haven't been following this cursor stuff very closely and so maybe this is already explained, but why is this going in XMC and not X11? This looks like the kind of very low-level general key munging most appropriate for the latter. -- gwern

2 1

Cannot manage windows by title
by Alexey Feigin 15 Sep '09

15 Sep '09

Hi, I would like to manage some windows depending on their *title* (WM_NАМЕ). I wrote a manage hook but it doesn't seem to be working (ie, the action is not performed). Matching by *className* and *resource* seems to work, but not by *title*. myManageHook = composeAll . concat $ [ [ fmap ("Gvim" `isInfixOf`) className --> doFloat ] -- Works , [ fmap ("gvim" `isInfixOf`) resource --> doFloat ] -- Works , [ fmap ("journal.txt" `isInfixOf`) title --> doFloat ] -- Does not work ] I also tried to use (stringProperty "WM_NAME") Any ideas? I'm running xmonad with GNOME on Ubuntu. Thanks in advance :) Alexey

1 2

[PATCH 2/2] XMonadContrib: set the default cursor to left_ptr for the Desktop config
by Andres Salomon 15 Sep '09

15 Sep '09

From 6d992ed0bb46df6956119aa65da87f02ea6c5e37 Mon Sep 17 00:00:00 2001 From: Andres Salomon <dilinger(a)collabora.co.uk> Date: Tue, 15 Sep 2009 02:05:46 -0400 Subject: [PATCH 2/2] XMonadContrib: set the default cursor to left_ptr for the Desktop config Set the default pointer for desktop configs to inherit. Signed-off-by: Andres Salomon <dilinger(a)collabora.co.uk> --- XMonad/Config/Desktop.hs | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/XMonad/Config/Desktop.hs b/XMonad/Config/Desktop.hs index 1959aa8..0e091d6 100644 --- a/XMonad/Config/Desktop.hs +++ b/XMonad/Config/Desktop.hs @@ -20,6 +20,7 @@ import XMonad import XMonad.Config (defaultConfig) import XMonad.Hooks.ManageDocks import XMonad.Hooks.EwmhDesktops +import XMonad.Util.Cursor import qualified Data.Map as M @@ -27,6 +28,7 @@ desktopConfig = defaultConfig { logHook = ewmhDesktopsLogHook , layoutHook = desktopLayoutModifiers $ layoutHook defaultConfig , manageHook = manageHook defaultConfig <+> manageDocks + , startupHook = setDefaultCursor xc_left_ptr , handleEventHook = ewmhDesktopsEventHook , keys = \c -> desktopKeys c `M.union` keys defaultConfig c } -- 1.6.3.3

1 0

Basic configuration : Config.Gnome + some more keys
by Matthieu Dubuget 14 Sep '09

14 Sep '09

Hello, I'm a happy user of xmonad since about 1 year. But I don't know haskell language at all. (I know: I should learn, but… lack of time, and also happy OCaml programmer). My problem: I just installed a brand new computer. Then xmonad, and I use it with Gnome. My xmonad.hs is: import XMonad import XMonad.Config.Gnome main = xmonad gnomeConfig { modMask = mod4Mask } I now want to integrate some more key bindings, but I'm not able to put together all the informations gathered from the documentation. Here are the binding I'd like to add: -- import XMonad.Actions.CycleWS -- import qualified XMonad.StackSet as S ------------------------------------------------------------------------ -- Key bindings. Add, modify or remove key bindings here. -- -- myKeys conf = -- -- -- -- -- mod-[1..9], Switch to workspace N -- -- mod-shift-[1..9], Move client to workspace N -- -- -- [((modMask, k), windows $ S.greedyView i) -- | (i, k) <- zip (XMonad.workspaces conf) [xK_F1 .. xK_F9] -- -- , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)] -- ] -- ++ -- [ ((modMask, xK_Left ), prevWS ) -- , ((modMask, xK_Right ), nextWS ) -- , ((modMask .|. shiftMask, xK_Left ), shiftToPrev ) -- , ((modMask .|. shiftMask, xK_Right ), shiftToNext )] First problem: the last 2 lines have a problem. Couldn't match expected type `XConfig l -> KeyMask' against inferred type `KeyMask' In the second argument of `(.|.)', namely `shiftMask' In the expression: modMask .|. shiftMask In the expression: (modMask .|. shiftMask, xK_Left) Second problem: how to integrate myKeys with Config.Gnome bindings ? Thanks in advance Matt

3 5

[patch] X.A.OnScreen
by Nils 14 Sep '09

14 Sep '09

Hi, I fixed the OnScreen functions. The greedyViewOnScreen should be "really greedy" now. The only issue I found is really weird and I can't explain it to myself. Maybe someone could test this to see if its just me or if you can reproduce this: viewOnScreen 1 "secondWorkspace" will do nothing if only one screen is plugged in (it should use a normal 'view "secondWorkspace"' to display the seconde workspace). With any other workspace it works just fine, but the second is somehow weird. :S As I said, I can't explain why this happens. If you take a look at the code there should be nothing special about the 2nd workspace at all? Some feedback here would be cool. I can also see if you don't want to apply this patch with that bug, but tbh, the current version probably has more issues. ;) Cya, Nils / McManiaC

1 0

How to make a window floating above all the other windows and border-less?
by Magicloud Magiclouds 14 Sep '09

14 Sep '09

Hi, I felt that a digital watch at the corner was so in-noticable. So I planned making a clock watch, just three handles, transparent background, in the center of the screen, floating. But I met a few problems here. I made the windows "over-redirect", so it has no border. Well, how to make it floating above all the others then? Normally, I could do this in xmonad's config file, to make THE window floating, which also is above all the other windows. But with "over-redirect", it does not work.... -- 竹密岂妨流水过山高哪阻野云飞

3 4

Issue 314 in xmonad: Investigate merging SmartBorders to core
by codesite-noreply＠google.com 13 Sep '09

13 Sep '09

Comment #3 on issue 314 by icarnales: Investigate merging SmartBorders to core http://code.google.com/p/xmonad/issues/detail?id=314 As floating layout will be separated from config, maybe we can supply two layout modifiers for smartborders (one for using in full screen windows). I state again that Layout Modifier is a very powerful and standard way of modifing layouts so I think it must be bring up to core's elegance and become part of core or a base-standard-module for writing extensions to xmonad (providing common functionality) -- You received this message because you are listed in the owner or CC fields of this issue, or because you starred this issue. You may adjust your issue notification preferences at: http://code.google.com/hosting/settings

1 0