File: ex-grpmv.pl

package info (click to toggle)
fvwm 1:2.6.7-3
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 16,752 kB
  • ctags: 14,275
  • sloc: ansic: 145,770; xml: 17,086; perl: 7,302; sh: 4,885; makefile: 1,055; yacc: 688; python: 629; lex: 188; sed: 11
file content (104 lines) | stat: -rwxr-xr-x 2,621 bytes parent folder | download | duplicates (9)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
#! xPERLx
# FvwmCommand example - move a group of windows

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.


ask();


open( FCM, "FvwmCommand -m -i3 |" ) || die "$! FvwmCommand";
open( FCC, ">$ENV{'HOME'}/.FvwmCommandC" ) || die "FCC";
select( FCC ); $| = 1;
select( STDOUT ); $| = 1;

while( <FCM> ) {
    if( /^0x(\S+) frame +x (\d+), y (\d+)/ ) {
		# check if a member window is moved
		($id,$x,$y) = ($1,$2,$3);

		if( defined $Config{$id} ) {
			foreach $w (keys %Config) {
				$newx = $x + $Config{$w}{'x'}-$Config{$id}{'x'};
				$newy = $y + $Config{$w}{'y'}-$Config{$id}{'y'};
				if( $newx < 0 ) {
					$newx = 0;
				}
				if( $newy < 0 ) {
					$newy = 0;
				}
				print FCC "windowid 0x$w move ${newx}p ${newy}p\n";

				# ignore - pixel info is the last info for move
				while(<FCM>) {
					last if /^0x$w pixel/;
				}
				select(undef,undef,undef,0.1);
			}
		}
	}
}



sub ask {
    my($k,$c,$w, $mark);

	# list up windows
	open( FCM, "FvwmCommand -i2 send_windowlist |" ) || die "$! FvwmCommand";
	while( <FCM> ) {
		if( /^0x(\S+) (id|window) +(.*)/ ) {
			$Config{$1}{$2} = $3;
		}elsif( /^0x(\S+) frame +x (\d+), y (\d+)/ ) {
			$Config{$1}{'x'} = $2;
			$Config{$1}{'y'} = $3;
		}
	}
	close( FCM );

    $k = 'a';
    foreach $w (keys %Config) {
	$win{$k++} = $w;
	$Config{$w}{'grp'} = 0;
    }
    while(1) {
		print "\nWhich windwow to group (* for all, ENTER to Start)?\n";
		foreach $k (keys %win) {
			$mark = $Config{$win{$k}}{'grp'} ? 'X':' ';
			print "($k) ($mark) $Config{$win{$k}}{'window'}\n";
		}

		system "stty -icanon min 1 time 0";
		$c = getc();
		system "stty icanon";

		if( $c eq '*' ) {
			foreach(keys %win) {
				$Config{$_}{'grp'} = 1;
			}
		}elsif( $c eq "\n" ) {
			last;
		}elsif( !grep( /$c/,keys %win) ) {
			print "\aUndefine process\n";
		}else{
			$Config{$win{$c}}{'grp'} = ! $Config{$win{$c}}{'grp'};
		}
    }

	print "Group move on effect\n";
	foreach $w (keys %Config) {
		delete $Config{$w} if $Config{$w}{'grp'}!=1;
	}
}