[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)))  

I have got mostly what I want.

[((m .|. modMask, key), spawn ("mysetwacom.sh -" ++ show 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)]]

show sc returns "S 0", "S 1", "S n"...
I don't know how to leave number alone. But it's just enough to me. Now
I can work this data inside bash script.

-- 
Пнд Окт 27 08:27:09 KRAT 2008
Mon Oct 27 01:27:09 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, 13:07,
1 user,  load average: 0.20, 0.17, 0.13