=================================================================== RCS file: /cvs/todotxt/Text-Todo/lib/Text/Todo.pm,v retrieving revision 1.8 retrieving revision 1.15 diff -u -r1.8 -r1.15 --- todotxt/Text-Todo/lib/Text/Todo.pm 2010/01/09 06:26:43 1.8 +++ todotxt/Text-Todo/lib/Text/Todo.pm 2010/01/11 19:52:06 1.15 @@ -1,6 +1,6 @@ package Text::Todo; -# $RedRiver: Todo.pm,v 1.6 2010/01/09 05:15:20 andrew Exp $ +# $AFresh1: Todo.pm,v 1.14 2010/01/10 22:39:26 andrew Exp $ use warnings; use strict; @@ -10,8 +10,6 @@ use Text::Todo::Entry; use File::Spec; -use Data::Dumper; - use version; our $VERSION = qv('0.0.1'); { @@ -27,10 +25,9 @@ my $ident = ident($self); $path_of{$ident} = { - todo_dir => undef, - todo_file => 'todo.txt', - done_file => undef, - report_file => undef, + todo_dir => undef, + todo_file => 'todo.txt', + done_file => undef, }; if ($options) { @@ -40,7 +37,8 @@ $self->_path_to( $opt, $options->{$opt} ); } else { - carp "Invalid option [$opt]"; + + #carp "Invalid option [$opt]"; } } } @@ -133,6 +131,8 @@ $loaded_of{$ident} = undef; + $file = $self->file($file); + if ( $list_of{$ident} = $self->listfile($file) ) { $loaded_of{$ident} = $file; return 1; @@ -160,7 +160,6 @@ open my $fh, '<', $file or croak "Couldn't open [$file]: $!"; while (<$fh>) { s/\r?\n$//xms; - next if !length $_; push @list, Text::Todo::Entry->new($_); } close $fh or croak "Couldn't close [$file]: $!"; @@ -184,6 +183,8 @@ } close $fh or croak "Couldn't close [$file]: $!"; + $loaded_of{$ident} = $file; + return 1; } @@ -196,9 +197,20 @@ } 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; } @@ -248,23 +260,73 @@ } 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 $accessor = $tag . 's'; - my %available_projects; + my %available; foreach my $e ( $self->list ) { - foreach my $p ( $e->projects ) { - $available_projects{$p} = 1; + foreach my $p ( $e->$accessor ) { + $available{$p} = 1; } } - my @projects = sort keys %available_projects; + my @tags = sort keys %available; - return wantarray ? @projects : \@projects; + return wantarray ? @tags: \@tags; } - sub archive { carp 'unsupported'; return } + sub archive { + my ($self) = @_; + my $ident = ident($self); + if ( !defined $loaded_of{$ident} + || $loaded_of{$ident} ne $self->file('todo_file') ) + { + carp 'todo_file not loaded'; + return; + } + + my $changed = 0; + ENTRY: foreach my $e ( $self->list ) { + if ( $e->done ) { + if ( $self->addto( 'done_file', $e ) && $self->del($e) ) { + $changed++; + } + else { + carp q{Couldn't archive entry [} . $e->text . ']'; + last ENTRY; + } + } + elsif ( $e->text eq q{} ) { + if ( $self->del($e) ) { + $changed++; + } + else { + carp q{Couldn't delete blank entry}; + last ENTRY; + } + } + } + + if ($changed) { + $self->save; + } + + return $changed; + } + sub addto { my ( $self, $file, $entry ) = @_; my $ident = ident($self); @@ -274,6 +336,16 @@ croak q{file can't be found}; } + if ( ref $entry ) { + if ( ref $entry eq 'Text::Todo::Entry' ) { + $entry = $entry->text; + } + else { + carp 'Unknown ref [' . ref($entry) . ']'; + return; + } + } + open my $fh, '>>', $file or croak "Couldn't open [$file]: $!"; print {$fh} $entry, "\n" or croak "Couldn't print to [$file]: $!"; @@ -319,77 +391,204 @@ Text::Todo - Perl interface to todo_txt files + =head1 VERSION -I will have to figure out how to include $VERSION in this somehow. +Since the $VERSION can't be automatically included, +here is the RCS Id instead, you'll have to look up $VERSION. -Perhaps RCS Id is good enough? + $Id: Todo.pm,v 1.15 2010/01/11 19:52:06 andrew Exp $ - $Id: Todo.pm,v 1.8 2010/01/09 06:26:43 andrew Exp $ - =head1 SYNOPSIS use Text::Todo; + + my $todo = Text::Todo->new('todo/todo.txt'); + foreach my $e (sort { lc($_->text) cmp lc($e->text)} $todo->list) { + print $e->text, "\n"; + } + + =head1 DESCRIPTION +This module is a basic interface to the todo.txt files as described by +Lifehacker and extended by members of their community. + For more information see L +This module supports the 3 axes of an effective todo list. +Priority, Project and Context. + +It does not support other notations or many of the more advanced features of +the todo.sh like plugins. + +It should be extensible, but and hopefully will be before a 1.0 release. + + =head1 INTERFACE =head2 new + new({ + [ todo_dir => 'directory', ] + [ todo_file => 'filename in todo_dir', ] + [ done_file => 'filename in todo_dir', ] + [ report_file => 'filename in todo_dir', ] + }); + +Allows you to set each item individually. todo_file defaults to todo.txt. + + new('path/to/todo.txt'); + +Automatically sets todo_dir to 'path/to', todo_file to 'todo.txt' + + new('path/to') + +If you pass an existing directory to new, it will set todo_dir. + + +If you what you set matches (.*)todo(.*).txt it will automatically set +done_file to $1done$2.txt +and +report_file to $1report$2.txt. + +For example, new('todo/todo.shopping.txt') will set +todo_dir to 'todo', +todo_file to 'todo.shopping.txt', +done_file to 'done.shopping.txt', +and +report_file to 'report.shopping.txt'. + +=head2 file + +Allows you to read the paths to the files in use. +If as in the SYNOPSIS above you used $todo = new('todo/todo.txt'). + + $todo_file = $todo->file('todo_file'); + +then, $todo_file eq 'todo/todo.txt' + =head2 load +Allows you to load a different file into the object. + + $todo->load('done_file'); + +This effects the other functions that act on the list. + =head2 save -=head2 file + $todo->save(['new/path/to/todo']); +Writes the list to the file. Either the current working file or something +that can be recognized by file(). + +If you specify a filename it will save to that file and update the paths. +Additional changes to the object work on that file. + =head2 list + my @todo_list = $todo->list; + +=head2 listpri + +Like list, but only returns entries that have priority set. + + my @priority_list = $todo->listpri; + +=head2 listproj + +Returns projects in the list sorted by name. +If there were projects +GarageSale and +Shopping + + my @projects = $todo->listproj; + +is the same as + + @projects = ( 'GarageSale', 'Shopping' ); + =head2 add -=head1 DIAGNOSTICS +Adds a new entry to the list. +Can either be a Text::Todo::Entry object or plain text. -=for author to fill in: - List every single error and warning message that the module can - generate (even the ones that will "never happen"), with a full - explanation of each problem, one or more likely causes, and any - suggested remedies. + $todo->add('new todo entry'); -=over +It then becomes $todo->list->[-1]; -=item C<< Error message here, perhaps with %s placeholders >> +=head2 del -[Description of error here] +Remove an entry from the list, either the reference or by number. -=item C<< Another error message here >> + $removed_entry = $todo->del($entry); -[Description of error here] +$entry can either be an Text::Todo::Entry in the list or the index of the +entry to delete. -[Et cetera, et cetera] +Note that entries are 0 indexed (as expected in perl) not starting at line 1. -=back +=head2 move + $todo->move($entry, $new_pos); +$entry can either be the number of the entry or the actual entry. +$new_pos is the new position to put it. + +Note that entries are 0 indexed (as expected in perl) not starting at line 1. + +=head2 archive + + $todo->archive + +Iterates over the list and for each done entry, +addto('done_file') +and +del($entry). +If any were archived it will then +save() +and +load(). + +=head2 addto + + $todo->addto($file, $entry); + +Appends text to the file. +$file can be anyting recognized by file(). +$entry can either be a Text::Todo::Entry or plain text. + +=head2 listfile + + @list = $todo->listfile($file); + +Read a file and returns a list like $todo->list but does not update the +internal list that is being worked with. +$file can be anyting recognized by file(). + + +=head1 DIAGNOSTICS + +Most methods return undef on failure. + +Some more important methods are fatal. + + =head1 CONFIGURATION AND ENVIRONMENT Text::Todo requires no configuration files or environment variables. -Someday it should be able to read and use the todo.sh config file. +Someday it should be able to read and use the todo.sh config file. This may +possibly be better done in a client that would use this module. =head1 DEPENDENCIES -=for author to fill in: - A list of all the other modules that this module relies upon, - including any restrictions on versions, and an indication whether - the module is part of the standard Perl distribution, part of the - module's distribution, or must be installed separately. ] +Class::Std::Utils +File::Spec +version -None. - =head1 INCOMPATIBILITIES None reported. @@ -398,6 +597,10 @@ =head1 BUGS AND LIMITATIONS No bugs have been reported. + +Limitations: + +Currently there isn't an easy way to print out line numbers with the entry. Please report any bugs or feature requests to C, or through the web interface at