[prev in list] [next in list] [prev in thread] [next in thread] 

List:       xmonad
Subject:    Re: [xmonad] xmonad switching screens + xsetwacom
From:       "IL'dar AKHmetgaleev" <akhilman () gmail ! com>
Date:       2008-10-27 1:31:42
Message-ID: 20081027083142.006cc864 () artstation ! home ! net
[Download RAW message or body]

На Sun, 26 Oct 2008 15:56:33 -0400
"Gwern Branwen" <gwern0@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@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
_______________________________________________
xmonad mailing list
xmonad@haskell.org
http://www.haskell.org/mailman/listinfo/xmonad

[prev in list] [next in list] [prev in thread] [next in thread]