version 1.11, 2010/01/10 01:01:45 |
version 1.14, 2010/01/10 22:39:26 |
|
|
package Text::Todo; |
package Text::Todo; |
|
|
# $RedRiver: Todo.pm,v 1.10 2010/01/09 20:41:45 andrew Exp $ |
# $RedRiver: Todo.pm,v 1.13 2010/01/10 07:07:46 andrew Exp $ |
|
|
use warnings; |
use warnings; |
use strict; |
use strict; |
|
|
my $ident = ident($self); |
my $ident = ident($self); |
|
|
$path_of{$ident} = { |
$path_of{$ident} = { |
todo_dir => undef, |
todo_dir => undef, |
todo_file => 'todo.txt', |
todo_file => 'todo.txt', |
done_file => undef, |
done_file => undef, |
report_file => undef, |
|
}; |
}; |
|
|
if ($options) { |
if ($options) { |
|
|
$self->_path_to( $opt, $options->{$opt} ); |
$self->_path_to( $opt, $options->{$opt} ); |
} |
} |
else { |
else { |
carp "Invalid option [$opt]"; |
|
|
#carp "Invalid option [$opt]"; |
} |
} |
} |
} |
} |
} |
|
|
open my $fh, '<', $file or croak "Couldn't open [$file]: $!"; |
open my $fh, '<', $file or croak "Couldn't open [$file]: $!"; |
while (<$fh>) { |
while (<$fh>) { |
s/\r?\n$//xms; |
s/\r?\n$//xms; |
next if !length $_; |
|
push @list, Text::Todo::Entry->new($_); |
push @list, Text::Todo::Entry->new($_); |
} |
} |
close $fh or croak "Couldn't close [$file]: $!"; |
close $fh or croak "Couldn't close [$file]: $!"; |
|
|
} |
} |
|
|
sub listpri { |
sub listpri { |
my ($self) = @_; |
my ( $self, $pri ) = @_; |
|
|
my @list = grep { $_->priority } $self->list; |
my @list; |
|
if ($pri) { |
|
$pri = uc $pri; |
|
if ( $pri !~ /^[A-Z]$/xms ) { |
|
croak "PRIORITY must a single letter from A to Z."; |
|
} |
|
@list = grep { defined $_->priority && $_->priority eq $pri } |
|
$self->list; |
|
} |
|
else { |
|
@list = grep { $_->priority } $self->list; |
|
} |
|
|
return wantarray ? @list : \@list; |
return wantarray ? @list : \@list; |
} |
} |
|
|
} |
} |
|
|
sub listproj { |
sub listproj { |
my ( $self, $entry, $dst ) = @_; |
my ( $self ) = @_; |
|
return $self->listtag('project'); |
|
} |
|
|
|
sub listcon { |
|
my ( $self ) = @_; |
|
return $self->listtag('context'); |
|
} |
|
|
|
sub listtag { |
|
my ( $self, $tag ) = @_; |
my $ident = ident($self); |
my $ident = ident($self); |
|
|
|
my $accessor = $tag . 's'; |
|
|
my %available_projects; |
my %available; |
foreach my $e ( $self->list ) { |
foreach my $e ( $self->list ) { |
foreach my $p ( $e->projects ) { |
foreach my $p ( $e->$accessor ) { |
$available_projects{$p} = 1; |
$available{$p} = 1; |
} |
} |
} |
} |
|
|
my @projects = sort keys %available_projects; |
my @tags = sort keys %available; |
|
|
return wantarray ? @projects : \@projects; |
return wantarray ? @tags: \@tags; |
} |
} |
|
|
sub archive { |
sub archive { |
|
|
return; |
return; |
} |
} |
|
|
my $archived = 0; |
my $changed = 0; |
ENTRY: foreach my $e ( $self->list ) { |
ENTRY: foreach my $e ( $self->list ) { |
if ( $e->done ) { |
if ( $e->done ) { |
if ( $self->addto( 'done_file', $e ) && $self->del($e) ) { |
if ( $self->addto( 'done_file', $e ) && $self->del($e) ) { |
$archived++; |
$changed++; |
} |
} |
else { |
else { |
carp q{Couldn't archive entry [} . $e->text . ']'; |
carp q{Couldn't archive entry [} . $e->text . ']'; |
last ENTRY; |
last ENTRY; |
} |
} |
} |
} |
|
elsif ( $e->text eq q{} ) { |
|
if ( $self->del($e) ) { |
|
$changed++; |
|
} |
|
else { |
|
carp q{Couldn't delete blank entry}; |
|
last ENTRY; |
|
} |
|
} |
} |
} |
|
|
if ($archived) { |
if ($changed) { |
$self->save; |
$self->save; |
} |
} |
|
|
return $archived; |
return $changed; |
} |
} |
|
|
sub addto { |
sub addto { |