Re: [STUMP] select a window from all the group

Andrea De Michele <[email protected]>
Newsgroups gmane.comp.window-managers.stumpwm.devel
Organization adm
Message-ID <[email protected]>
Hi,

thank you for your answer, I tried your code and it works.

Meanwhile I had written other two solutions.

1) The first is very simple:

(windowlist *window-format* (screen-windows (current-screen)))


but doesn't work because I think there is a bug in the windowlist
command for which it is impossible change the focus on a window in
another group.

2) The second works and presents the windows ordered by group like vgroup
command does. I will use this one with a keybinding on Menu key:

(defcommand vgrouplist () (:rest)
  (let* ((groups (sort-groups (current-screen)))
	 (selection (second (select-from-menu
			     (current-screen)
			     (mapcan (lambda (g)
				       (list* (list (format-expand *group-formatters* *group-format* g) g)
					      (mapcar (lambda (w)
							(list (format-expand *window-formatters* (concatenate 'string "  " *window-format*) w) w))
						      (sort-windows g))))
				     groups)
			     nil))))
    (if selection
	(typecase selection
	  (group (switch-to-group selection))
	  (window (progn (switch-to-group (window-group selection)) (group-focus-window (current-group) selection))))
	(throw 'error :abort))))
        
(define-key *top-map* (kbd "Menu") "vgrouplist")

Ciao,
Andrea De Michele.

Piotr Klibert <[email protected]> writes:

> Hi,
>
> I don't know if there is a built-in way to do this, but I just wrote a command and after some crude testing it appears to work:
>
> (defun concat-list (lst)
>   (apply #'concatenate 'list lst))
>
> (defcommand fullwinlist () ()
>   (let
>       ((selected-win (stumpwm::select-window-from-menu
>                       (concat-list (mapcar #'group-windows
>                                            (screen-groups (current-screen))))
>                       *window-format*)))
>     (stumpwm::switch-to-group (window-group selected-win))
>     (stumpwm::group-focus-window (current-group) selected-win)))
>
> Best regards,
> Piotr Klibert
>
> 2016-07-26 12:03 GMT+02:00 Andrea De Michele <[email protected]>:
>
>     Hi,
>    
>     there is a way to select a window like comand: windowlist but from all the windows in all group?
>
>     --
>     Andrea De Michele
>
>     _______________________________________________
>     Stumpwm-devel mailing list
>     [email protected]
>     https://lists.nongnu.org/mailman/listinfo/stumpwm-devel
>
> _______________________________________________
> Stumpwm-devel mailing list
> [email protected]
> https://lists.nongnu.org/mailman/listinfo/stumpwm-devel

-- 
Andrea De Michele

_______________________________________________
Stumpwm-devel mailing list
[email protected]
https://lists.nongnu.org/mailman/listinfo/stumpwm-devel
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.