#!/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);
	}
}