mirror of
https://github.com/GothenburgBitFactory/taskwarrior.git
synced 2025-06-26 10:54:26 +02:00
Export YAML
- Implemented export-yaml.pl as a filter. - Reimplemented export.yaml.t to use the filter.
This commit is contained in:
parent
5f4571b0d0
commit
c1a21ce5a4
2 changed files with 9 additions and 15 deletions
|
@ -37,21 +37,18 @@ if ($@)
|
|||
exit 1;
|
||||
}
|
||||
|
||||
# Use the taskwarrior 2.0+ export command to filter and return JSON
|
||||
my $command = join (' ', ("env PATH=$ENV{PATH} task export", @ARGV));
|
||||
if ($command =~ /No matches/)
|
||||
{
|
||||
printf STDERR $command;
|
||||
exit 1;
|
||||
}
|
||||
|
||||
# Generate output.
|
||||
print "%YAML 1.1\n",
|
||||
"---\n";
|
||||
|
||||
for my $task (split /,$/ms, qx{$command})
|
||||
while (my $json = <>)
|
||||
{
|
||||
my $data = from_json ($task);
|
||||
$json =~ s/^\[//;
|
||||
$json =~ s/\]$//;
|
||||
$json =~ s/,$//;
|
||||
next if $json eq '';
|
||||
|
||||
my $data = from_json ($json);
|
||||
|
||||
print " task:\n";
|
||||
for my $key (sort keys %$data)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue