[STUMP] contrib/stumpwm-windows-switcher-gtk2

[Dmitry Bolshakov]

Hi

i use stumpwm for several months, i have a contribution and some thinks


==================================================
contrib

stumpwm-windows-switcher-gtk2
about how it works:

1/
in .lisp
(define-key *top-map* (kbd "H-Tab") "run-stumpwm-windows-switcher-gtk2")
(defcommand run-stumpwm-windows-switcher-gtk2
  pack list of frames and windows to *string*
  (run-prog "perl" :args (list "stumpwm-windows-switcher-gtk2.pl" *string*)
                   :wait nil)
)

2/
in .pl
show proportionally reduced representation of the current screen with tile 
frames thumbnails
on_list_item_activated {
  system('stumpish switch-and-warp frame_num window_num');
  exit;
}

3/
back in .lisp
(defcommand switch-and-warp (target-frame &optional target-window-num) (:frame 
:string)
  fselect target-frame
  select-window-by-number target-window-num
  warp-pointer to the target-frame
)

there is a screencast here http://uploaded.to/file/bdksp0 or here 
http://www.youtube.com/watch?v=jChse1g5p_A

requirements: perl, gtk2, gtk2-perl

it is not well tested, i only use it on my system - Ubuntu 9.04 Jaunty
(i have set WINDOW_MANAGER=stumpwm instead of metacity)



==================================================
ideas

-movement only in two directions:

  -between tile frames:
    move focus: H-right - rightordown, H-left - uporleft
    move window in the same way: C-M-H-right/left

  -between windows in frame:
    switch to window: H-up - previous in frame, H-down - next
    TODO: change order with C-M-H-up/down

-in the prev/next-in-frame do not wrap around but stop at the first/last window

(see .stumpwmrc in attachment)




-- 
with best regards
Dmitry Bolshakov

0001-contrib-stumpwm-windows-switcher-gtk2.patch
Description: Text Data

.stumpwmrc
Description: Binary data