todo.pl

sub view ($file='todo.org') {
    
    my $todo=open "/home/echo/Dropbox/todo/$file";
    my @lines= $todo.lines;
    $todo.close;
    say " there are "~ +@lines ~ " tasks";
    my $order=1;    
    for @lines -> $line {
	say "$order"~"."~"$line";
        $order++;
    }
}
sub viewdone() {
    view("done.org");
}
sub add() {
    my $task= prompt "add a task,please\n xxxxxxxxxxxxxxxx\n";    
    my $todo=open '/home/echo/Dropbox/todo/todo.org',:a ;
    $todo.say($task);
    $todo.close;
    say "adding...task\n\n "~ "$task\n";
}

sub done() {
    my $todo=open '/home/echo/Dropbox/todo/todo.org';
    my %tasks;
    my $i=1;
    for $todo.lines -> $line {
	say "$i"~"."~"$line";
        %tasks{$i}=$line;
	$i++;
    }
    $todo.close;
    my $task = prompt "done task number?\n";
    my $done = open '/home/echo/Dropbox/todo/done.org',:a;
    $done.say(%tasks{$task});
    %tasks.delete($task);
    my $write = open '/home/echo/Dropbox/todo/todo.org',:w;
    for %tasks.values {
	$write.say($_);
    }
    $write.close;

}