package gterm;

sub command {join ' ',@_;}

sub title { my$c=shift;my$l="";
        if($c){
                my $p=`pwd`; chomp($p);
                my $n=length($p)+length($c);
                if($n<58){$l="$p> $c";}
                elsif($c<40){my$pn=56-length($c);$l="..".substr($p,-$pn)."> $c";}
                else {$l="..".substr($p,-18)."> ".substr($c,0,38);}
        }
        $l;
}

sub term_command {my$c=command(@_);
        $t=title($c); $cmsg="";
        if($c){$cmsg="echo '> $c';";$c.=";";}
        "gnome-terminal --title=\"$t\" -- csh -c \"$cmsg $c exec csh\" \&";
}

sub open {my$tcc=term_command(@_);
        `$tcc`;
}

1;