[xmonad] xmonad switching screens + xsetwacom

[IL'dar AKHmetgaleev]

На Sun, 26 Oct 2008 15:56:33 -0400
"Gwern Branwen" <gwern0 at gmail.com> записано:

> > Greetings
> >
> > How I can execute
> > Code:
> > xsetwacom set stylus Screen_No $No
> > when I'm switching screen with hotkeys:
> > Code:
> >    --
> >    -- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3
> >    -- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3
> >    --
> >    [((m .|. modMask, key), screenWorkspace sc >>= flip whenJust
> > (windows . f)) | (key, sc) <- zip [xK_q, xK_w, xK_e] [0..]
> >        , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
> >
> > For example I need to spawn "xsetwacom set stylus Screen_No 0" when
> > I'm switching to screen 1 by mod-q
> >
> > How I can do this?  
> 
> A rough stab at a solution:
> 
>           , ((modMask, xK_q), spawn "xsetwacom set stylus Screen_No 0"
> >>  (screenWorkspace sc >>= flip whenJust (windows ○ f)) 1)))  

ok. I'm little closer 

    [((m .|. modMask, key),
	spawn "xsetwacom set stylus Screen_No " ++ sc 
	>> screenWorkspace sc
	>>= flip whenJust (windows . f)) 
	  | (key, sc) <- zip [xK_q,xK_w, xK_e] [0..] 
          , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]

of course it doesn't work 
    Couldn't match expected type `ScreenId'
           against inferred type `[()]'

Now how I can subtract one from sc and convert it to string?


Пнд Окт 27 07:50:03 KRAT 2008
Mon Oct 27 00:50:03 UTC 2008
----------------------------------
Visit my home page http://akhilman.blogspot.com/
----------------------------------
jabber: akhil at jabber.ru
----------------------------------
Пытаться сделать мир на 1/6.7e9 лучше
Ахметгалеев Ильдар aka AkhIL
----------------------------------
Linux artstation 2.6.25-gentoo-r7 #1 SMP Mon Aug 11 08:02:41 KRAST 2008
i686 AMD Athlon(tm) XP 2500+ AuthenticAMD GNU/Linux up 7 days, 12:30,
1 user,  load average: 0.03, 0.11, 0.05