nixo
/
gri3-wm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

dump-asy.pl: Add --gv option

This commit is contained in:
Orestis Floros 2018-03-14 12:18:58 +02:00
parent 9521f69e11
commit 883cf4041d
1 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
contrib/dump-asy.pl
View File

@ -8,14 +8,17 @@ use Getopt::Long;
use Pod::Usage; use Pod::Usage;
use AnyEvent::I3; use AnyEvent::I3;
use File::Temp; use File::Temp;
use File::Spec;
use File::Basename; use File::Basename;
use v5.10; use v5.10;
use IPC::Cmd qw[can_run]; use IPC::Cmd qw[can_run];
my %options = ( my %options = (
gv => 1,
help => 0, help => 0,
); );
my $result = GetOptions( my $result = GetOptions(
"gv!" => \$options{gv},
"help|?" => \$options{help}, "help|?" => \$options{help},
); );
@ -24,7 +27,7 @@ pod2usage(-verbose => 2, -exitcode => 0) if $options{help};
# prerequisites check so we can be specific about failures caused # prerequisites check so we can be specific about failures caused
# by not having these tools in the path # by not having these tools in the path
can_run('asy') or die 'Please install asymptote'; can_run('asy') or die 'Please install asymptote';
can_run('gv') or die 'Please install gv'; can_run('gv') or die 'Please install gv' unless !$options{gv};
my $i3 = i3(); my $i3 = i3();
@ -86,8 +89,13 @@ say $tmp "draw(n" . $root->{id} . ", (0, 0));";
close($tmp); close($tmp);
my $rep = "$tmp"; my $rep = "$tmp";
$rep =~ s/asy$/eps/; $rep =~ s/asy$/eps/;
my $tmp_dir = dirname($rep); if ($options{gv}) {
system("cd $tmp_dir && asy $tmp && gv --scale=-1000 --noresize --widgetless $rep && rm $rep"); my $tmp_dir = dirname($rep);
chdir($tmp_dir);
}
system("asy $tmp"); # Create the .eps file.
system("gv --scale=-1000 --noresize --widgetless $rep && rm $rep") if $options{gv};
system("rm $tmp");
__END__ __END__
@ -108,3 +116,16 @@ Render the entire tree, run:
Render the tree starting from the node with the specified name, run: Render the tree starting from the node with the specified name, run:
./dump-asy.pl 'name' ./dump-asy.pl 'name'
=head1 OPTIONS
=over 8
=item B<--gv>
=item B<--no-gv>
Enable or disable showing the result through gv. If disabled, an .eps file will
be saved in the current working directory. Enabled by default.
=back