18 lines
359 B
Perl
Executable file
18 lines
359 B
Perl
Executable file
#!/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);
|
|
}
|
|
}
|