gryf/tabbedalt
1
0
Fork 0
mirror of https://github.com/gryf/tabbedalt.git synced 2025-12-17 19:40:31 +01:00
Code Issues Projects Releases Wiki Activity

Run session only if no exec is provided via commandline.

Browse Source 
There was is bug regarding sessions implementation, where there is no
way to run particular program using -e switch for urxvt in command line.

So, having urxvt.session set to something in .Xdefaults, there was no
way to run some program, i.e.

$ urxvt -e htop

This patch fixing this issue.
This commit is contained in:
gryf
2019-06-05 09:36:32 +02:00
parent 41893fbe71
commit 9fc439b5e1
1 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
tabbed
View File

@@ -204,9 +204,6 @@ sub new_tab {
push @urxvt::TERM_EXT, urxvt::ext::tabbed::tab::; push @urxvt::TERM_EXT, urxvt::ext::tabbed::tab::;
if(@argv){
@argv = split(/\ /, '-e ' . $argv[0]);
}
my $term = new urxvt::term my $term = new urxvt::term
$self->env, $urxvt::RXVTNAME, $self->env, $urxvt::RXVTNAME,
@@ -421,7 +418,16 @@ sub on_init {
chomp($res); chomp($res);
(my @args) = split('\|', $res); (my @args) = split('\|', $res);
my $key = uc(shift(@args)); my $key = uc(shift(@args));
$self->{tabcmds}{$key} = [ @args ]; if ($#args == 0) {
$self->{tabcmds}{$key} = [ $args[0] ];
}else {
# split command, insert '-e' before it, re-add tab name at the
# beginning
(my @new_args) = ('-e');
push @new_args, split / /, $args[1];
unshift @new_args, $args[0];
$self->{tabcmds}{$key} = [ @new_args ];
}
} }
@{$self->{session}} = split('\|', $self->x_resource("session")) or (); @{$self->{session}} = split('\|', $self->x_resource("session")) or ();
@@ -444,8 +450,9 @@ sub on_start {
} while @argv && $argv[0] ne "-e"; } while @argv && $argv[0] ne "-e";
# Ugly as hell ``session'' implementation # Ugly as hell ``session'' implementation
my $count = 0; if (!(@argv) && (qx(ps x|grep "[ ]urxvt "|wc -l) < 2) && scalar(@{$self->{session}})){
if (qx(ps x|grep "[ ]urxvt "|wc -l) < 2 && scalar(@{$self->{session}})){ my $count = 0;
my @command;
for my $item (@{$self->{session}}){ for my $item (@{$self->{session}}){
if (exists($self->{tabcmds}{uc($item)})){ if (exists($self->{tabcmds}{uc($item)})){
$self->new_tab(@{$self->{tabcmds}{uc($item)}}); $self->new_tab(@{$self->{tabcmds}{uc($item)}});