X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=contrib%2Fdump-asy.pl;fp=contrib%2Fdump-asy.pl;h=478a896a5c4b403c36962a6ad675c670f9351608;hb=828ce9c6400f3dddb6189bec6da7f2fd173af10b;hp=3ebdb858e9ef275d830765b1a54a75639790b6c4;hpb=999bebc692af1cc2e0428e2f1f42a0d126285dcb;p=i3%2Fi3 diff --git a/contrib/dump-asy.pl b/contrib/dump-asy.pl index 3ebdb858..478a896a 100755 --- a/contrib/dump-asy.pl +++ b/contrib/dump-asy.pl @@ -13,6 +13,7 @@ use warnings; use Data::Dumper; use AnyEvent::I3; use File::Temp; +use File::Basename; use v5.10; my $i3 = i3(); @@ -75,4 +76,5 @@ say $tmp "draw(n" . $root->{id} . ", (0, 0));"; close($tmp); my $rep = "$tmp"; $rep =~ s/asy$/eps/; -system("cd /tmp && asy $tmp && gv --scale=-1000 --noresize --widgetless $rep && rm $rep"); +my $tmp_dir = dirname($rep); +system("cd $tmp_dir && asy $tmp && gv --scale=-1000 --noresize --widgetless $rep && rm $rep");