diff --git a/perl/Gnome-Tomboy/tom b/perl/Gnome-Tomboy/tom index 8a57ae049acdd823ff3d9ebe4631f0210db3a5cb..038456af9fa8004ac40ac9dce21bd7982af090d6 100755 --- a/perl/Gnome-Tomboy/tom +++ b/perl/Gnome-Tomboy/tom @@ -18,6 +18,10 @@ do stuff with Tomboy files =head1 OP-CODES +=head2 toc + +Refresh table of contents file. + =head2 show =head2 diff @@ -63,10 +67,10 @@ while (my $arg= shift (@ARGV)) my $op_code= shift (@PAR) unless (defined ($op_code)); - if ($op_code eq 'help') { usage(); } elsif ($op_code eq 'dump') { dump_note ($_) foreach (@PAR); } elsif ($op_code eq 'toc') { tom_toc(); } +elsif ($op_code eq 'csv') { tom_csv(); } elsif ($op_code eq 'find') { find_note(@PAR); } elsif ($op_code eq 'diff') { @@ -129,6 +133,14 @@ sub find_note } } +sub tom_csv +{ + setup_toc(); + + # TODO: show CSV file itself + system (qw(csv --TAB --UTF8), $toc_file); +} + sub dump_note { my $note_fnm= shift;