mirror of
https://github.com/gryf/tabbedalt.git
synced 2025-12-17 19:40:31 +01:00
Removed session management.
I doubt, that it is useful feature, I've never got bug report about it, and I'm not using it anyway.
This commit is contained in:
11
README.rst
11
README.rst
@@ -180,17 +180,6 @@ like::
|
||||
URxvt.tabbedalt.tabcmds.3: M|mc|mc
|
||||
URxvt.tabbedalt.tabcmds.4: S|shell
|
||||
|
||||
Startup tabs
|
||||
------------
|
||||
|
||||
There is possibility to tell tabbedalt which tabs should be auto started during
|
||||
first window launch. First, you'll need to have some custom tab commands.
|
||||
Let's assume, that there are already defined three custom shells, like in
|
||||
section above. If one wanted to start shell, mc and root session, following
|
||||
line should be placed in ``~/.Xdefaults``::
|
||||
|
||||
URxvt.tabbedalt.session: S|M|R
|
||||
|
||||
Renaming tabs
|
||||
-------------
|
||||
|
||||
|
||||
23
tabbedalt
23
tabbedalt
@@ -115,6 +115,9 @@
|
||||
# (SHIFT+Down). It can be disabled by an option "disable-shift-down". More
|
||||
# information in README.
|
||||
# - Cleaned up a bit the code and comments.
|
||||
#
|
||||
# 2022-02-14 17:03:52
|
||||
# - Removed "session" management
|
||||
|
||||
sub tab_activity_mark ($$) {
|
||||
my ($self, $tab) = @_;
|
||||
@@ -439,8 +442,6 @@ sub on_init {
|
||||
}
|
||||
}
|
||||
|
||||
@{$self->{session}} = split('\|', $self->x_resource("session")) or ();
|
||||
|
||||
();
|
||||
|
||||
}
|
||||
@@ -458,25 +459,7 @@ sub on_start {
|
||||
shift @argv;
|
||||
} while @argv && $argv[0] ne "-e";
|
||||
|
||||
# Ugly as hell ``session'' implementation
|
||||
if (!(@argv) && (qx(ps x|grep "[ ]urxvt\$"|wc -l) < 2) && scalar(@{$self->{session}})){
|
||||
|
||||
my $count = 0;
|
||||
my @command;
|
||||
for my $item (@{$self->{session}}){
|
||||
if (exists($self->{tabcmds}{uc($item)})) {
|
||||
$self->_new_tab(@{$self->{tabcmds}{uc($item)}});
|
||||
$count++;
|
||||
}
|
||||
}
|
||||
if ($count == 0) {
|
||||
# no keys was valid, failsafe shell.
|
||||
$self->_new_tab ("shell", @argv);
|
||||
}
|
||||
|
||||
} else {
|
||||
$self->_new_tab ("shell", @argv);
|
||||
}
|
||||
|
||||
if (defined $self->{timeouts}) {
|
||||
my $interval = ($self->{timeouts}[@{ $self->{timeouts} } - 1]->[0]);
|
||||
|
||||
Reference in New Issue
Block a user