From 8bc1561f5df8e01ac95e61ea879caf836c81d7c6 Mon Sep 17 00:00:00 2001 From: schodet Date: Fri, 23 Jul 2004 18:40:41 +0000 Subject: Indentations possibles Ajout des + et - --- 2005/d/dev/todo/tasklist.pl | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) (limited to '2005/d/dev/todo/tasklist.pl') diff --git a/2005/d/dev/todo/tasklist.pl b/2005/d/dev/todo/tasklist.pl index 5e9aaba..a08f32d 100755 --- a/2005/d/dev/todo/tasklist.pl +++ b/2005/d/dev/todo/tasklist.pl @@ -33,6 +33,7 @@ sub build_tab while (<>) { chomp; + s/^[ \t]+//; if (!defined $lastdesc && /^([a-z0-9](?:\.[a-z0-9.]+)*) (.*)/) { # Task. @@ -67,7 +68,7 @@ sub build_tab { die "Task not defined" unless defined $task; $$task{'desc'} = [ ] unless defined $$task{'desc'}; - if (defined $lastdesc) + if (defined $lastdesc && !/^[+-]/) { $$lastdesc .= ' ' . $_; } @@ -95,7 +96,18 @@ sub print_task_xml } for (@{$$task{'desc'}}) { - print "$space $_\n"; + if (/^\+ /) + { + print "$space $_\n"; + } + elsif (/^- /) + { + print "$space $_\n"; + } + else + { + print "$space $_\n"; + } } for (sort { $a <=> $b || $a cmp $b } keys %$task) { -- cgit v1.2.3