--- trunk/dwm-status.pl 2009/02/03 18:41:06 105 +++ trunk/dwm-status.pl 2009/02/24 21:27:17 108 @@ -16,7 +16,7 @@ my $disk_blk_size = 512; my $debug = shift @ARGV; -my $awesome = 1; +my $awesome = 3; $|=1; @@ -186,7 +186,7 @@ my $d_write = ( $d_w - $ld_w ) / $dt; ( $ld_r, $ld_w ) = ( $d_r, $d_w ); - my $out = sprintf("%s | %s |%5s D %-5s|%5s > %-5s| %s%s\n", + my $out = sprintf("%s | %s |%5s D %-5s|%5s > %-5s| %s%s", $s, $load, unit( $d_read ), unit( $d_write ), @@ -194,10 +194,13 @@ $bat, $temp, ); - print $out; + print "$out\n"; if ( $awesome ) { open(my $fh, '|-', 'awesome-client') || die "can't pipe to awesome-client: $!"; - print $fh "0 widget_tell mystatusbar dwm-status text $out\n"; + print $fh + $awesome == 3 ? qq{mytextbox.text="$out"\n} + : "0 widget_tell mystatusbar dwm-status text $out\n" + ; close($fh); }