GothenburgBitFactory/taskwarrior
1
0
Fork 0
mirror of https://github.com/GothenburgBitFactory/taskwarrior.git synced 2025-08-20 13:23:08 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Add-ons: Exports

Browse source 
- Modified the export scripts to use the right command, which is now
  'export', not '_query', although '_query' is now an alias for backward
  compatibility.
This commit is contained in:
Paul Beckingham 2011-08-28 16:43:12 -04:00
parent 28183711c4
commit aace091329
8 changed files with 117 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

16
scripts/add-ons/export-yaml.pl
View file

@ -37,12 +37,11 @@ if ($@)
exit 1;
}
# Use the taskwarrior 1.9.4+ _query command to issue a query and return JSON
my $command = '/usr/local/bin/task _query ' . join (' ', @ARGV);
# 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/)
{
print stderr $command;
printf STDERR $command;
exit 1;
}
@ -55,7 +54,7 @@ for my $task (split /,$/ms, qx{$command})
my $data = from_json ($task);
print " task:\n";
for my $key (keys %$data)
for my $key (sort keys %$data)
{
if ($key eq 'annotations')
{
@ -63,17 +62,16 @@ for my $task (split /,$/ms, qx{$command})
for my $anno (@{$data->{$key}})
{
print " annotation:\n";
print " $_:$anno->{$_}\n" for keys %$anno;
print " $_: $anno->{$_}\n" for keys %$anno;
}
}
elsif ($key eq 'tags')
{
print " tags:\n";
print " tag:$_\n" for @{$data->{'tags'}};
print " tags: ", join (',', @{$data->{'tags'}}), "\n";
}
else
{
print " $key:$data->{$key}\n";
print " $key: $data->{$key}\n";
}
}
}