18 lines
359 B
Plaintext
18 lines
359 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
sub on_start
|
||
|
|
{
|
||
|
|
my ($self) = @_;
|
||
|
|
my $output = `~/.dynamic-colors/bin/dynamic-colors init`;
|
||
|
|
$self->cmd_parse($output);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub on_user_command
|
||
|
|
{
|
||
|
|
my ($self, $cmd) = @_;
|
||
|
|
if ($cmd eq "dynamic-colors:cycle") {
|
||
|
|
my ($self, $cmd) = @_;
|
||
|
|
my $output = `~/.dynamic-colors/bin/dynamic-colors cycle`;
|
||
|
|
$self->cmd_parse($output);
|
||
|
|
}
|
||
|
|
}
|