user-tools/taslis

   1 #!/usr/bin/env perl
   2 ###################
   3
   4 $me=$0;
   5 $0="taslis";
   6 sub heply { system "pod2text", $me; }
   7 exit heply if $ARGV[0] eq '--help';
   8 use Term::ReadKey;
   9 ReadMode 4;
  10 sub bye { exit ReadMode 0 }
  11 sub getkey { while(not defined ($k = ReadKey(-1))){} return $k }
  12 $SIG{INT}=$SIG{STOP}=$SIG{STOP}=$SIG{TSTP}=$SIG{QUIT}='bye';
  13
  14 # active window id
  15 $awid = hex((`xprop -root -f _NET_ACTIVE_WINDOW 0x " \\\$0" _NET_ACTIVE_WINDOW` =~ /(\S+)$/)[0]);
  16
  17 while(1){
  18         @tl=();
  19         for(split/[\r\n]+/,`wmctrl -lp`){
  20                 ($wid, $wrksp, $pid, $host, $title)=split/\s+/;
  21                 if(open(P,"/proc/$pid/stat")) { ($state)=(<P>=~/\)\s+(\S+)/); close P }
  22                 push @tl,[$wid, $wrksp, $pid, $_, $state];
  23                 $L = 2+length$_ if length$_ > $L;       # set longest line
  24
  25         }
  26         bye unless @tl;
  27
  28         # sort order by workspace
  29         @tl = sort { $$a[1] <=> $$b[1] } @tl;
  30         # set selection if active window id match
  31         if(tell STDERR == 0) {
  32                 for(0..$#tl) {
  33                         $in = $_ and last if hex $tl[$_][0] == $awid;
  34                 }
  35         }
  36
  37         # clear screen region
  38         print STDERR "\033[s\033[1;0H", ( ((" " x $L) . "\n") x ($#tl+2) ), "\033[u";
  39
  40         $in=$#tl if $in>$#tl;
  41         $pos = tell STDERR;
  42
  43         print STDERR "\033[s\033[1;0H";
  44         for(0..$#tl) {
  45                 printf STDERR "%s%s\033[m\n",($_==$in?"\033[44;1;36m":"\033[1;36m"),$tl[$_][3];
  46         }
  47         print STDERR "\033[u";
  48
  49         $k=getkey;
  50         if($k =~ /q/i) { bye }
  51         elsif($k eq chr(27)) {
  52                 $k=getkey;
  53                 if($k eq '[') {
  54                         $k=getkey;
  55                         if($k =~ /[DA]/) {      # arrow left/up
  56                                 $in-- if $in > 0
  57                         }
  58                         elsif($k =~ /[CB]/) {   # arrow right/down
  59                                 $in++ if $in < $#tl
  60                         }
  61                         elsif($k =~ /[H5]/) {   # home/pg up
  62                                 $in=0
  63                         }
  64                         elsif($k =~ /[F6]/) {   # end/pg down
  65                                 $in=$#tl
  66                         }
  67                         elsif($k eq chr(27)) { bye }
  68                 }
  69                 elsif($k eq chr(27)) { bye }
  70         }
  71         elsif($k =~ /c/i) {
  72                 system("wmctrl -ic ".$tl[$in][0]);
  73         }
  74         elsif($k =~ /[ts ]/i) {
  75                 kill ${$tl[$in]}[4] eq 'T' ? 18 : ${$tl[$in]}[4] eq 'S' ? 19 : 0, $$tl[$in][2]  if $$tl[$in][2];        # CONT,TSTP
  76         }
  77         elsif($k =~ /k/i) {
  78                 kill 9, $$tl[$in][2]  if $$tl[$in][2];  # KILL
  79         }
  80         elsif($k =~ /h/i) {
  81                 kill 1, $$tl[$in][2]  if $$tl[$in][2];  # HUP
  82         }
  83         elsif($k =~ /i/i) {
  84                 kill 2, $$tl[$in][2]  if $$tl[$in][2];  # INT
  85         }
  86         elsif($k =~ /d/i) {
  87                 $/=undef;
  88                 print STDERR "Commandline:\t";
  89                 open A,"/proc/".${$tl[$in]}[2]."/cmdline";
  90                 print STDERR join(" ",split/\x0/,<A>)."\n";
  91                 close A;
  92                 print STDERR "Directory:\t";
  93                 print STDERR readlink "/proc/".${$tl[$in]}[2]."/cwd","\n";
  94                 $/="\n";
  95                 open A,"/proc/".${$tl[$in]}[2]."/status";
  96                 /^(ppid|uid|gid):/i and print STDERR $_ while<A>;
  97                 close A;
  98         }
  99         elsif($k eq '?') {
 100                 heply
 101         }
 102         elsif($k =~ /[\r\n]/) {
 103                 ReadMode 0;
 104                 system("wmctrl -ia ".$tl[$in][0]);
 105                 exit 0;
 106         }
 107 }
 108
 109 __END__
 110
 111 =pod
 112
 113 =head1 NAME
 114
 115 taslis - WM's Window List
 116
 117 =head1 DESCRIPTION
 118
 119 B<Taslis> stands for I<tas>kI<lis>t. List X11 clients provided by wmctrl(1) in ANSI-compatible terminal.
 120
 121 =head1 KEYS
 122
 123 =over 8
 124
 125 =item Left,Right
 126
 127 Select item
 128
 129 =item Enter
 130
 131 Switch to workspace and raise window
 132
 133 =item C
 134
 135 Close window gracefully
 136
 137 =item H
 138
 139 Hangup selected process
 140
 141 =item I
 142
 143 Interrupt process
 144
 145 =item S,T,Space
 146
 147 Suspend, Resume process
 148
 149 =item K
 150
 151 Kill process
 152
 153 =item D
 154
 155 Process's details
 156
 157 =item Q
 158
 159 Dismiss
 160
 161 =item ?
 162
 163 Help
 164
 165 =back
 166
 167 =cut
 168