todotxt/Text-Todo/bin/todo.pl - diff

Return to todo.pl CVS log

Up to [local] / todotxt / Text-Todo / bin

-version 1.11, 2010/01/11 00:30:31
+version 1.12, 2010/01/11 01:41:21
 Line 217
 Line 217
 Line 217
      die "Unable to deprioritize entry\n";
  }
- sub mark_done { return &unsupported }
+ # since "do" is reserved
+ sub mark_done {
+     my ( $config, $line ) = @_;
+     if ( !( $line && $line =~ /^\d+$/xms ) ) {
+         die 'usage: todo.pl del ITEM#' . "\n";
+     }
+     my $todo = Text::Todo->new($config);
+     my $entry = $todo->list->[ $line - 1 ];
+     if ( $entry->do && $todo->save ) {
+         my $status = print $line, ': ', $entry->text, "\n",
+             'TODO: ', $line, " marked as done.\n";
+         if (!$opts{a}) {
+             return archive($config);
+         }
+         return $status;
+     }
+     die "Unable to mark as done\n";
+ }
  sub help      { return &unsupported }
  sub list {