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

dump-asy.pl: Add POD usage

This commit is contained in:
Orestis Floros 2018-03-14 12:11:53 +02:00
parent 29dc14dda3
commit 9521f69e11
1 changed files with 31 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
contrib/dump-asy.pl
View File

@ -1,22 +1,26 @@
#!/usr/bin/env perl #!/usr/bin/env perl
# vim:ts=4:sw=4:expandtab # vim:ts=4:sw=4:expandtab
# renders the layout tree using asymptote
#
# ./dump-asy.pl
# will render the entire tree
# ./dump-asy.pl 'name'
# will render the tree starting from the node with the specified name,
# e.g. ./dump-asy.pl 2 will render workspace 2 and below
use strict; use strict;
use warnings; use warnings;
use Data::Dumper; use Data::Dumper;
use Getopt::Long;
use Pod::Usage;
use AnyEvent::I3; use AnyEvent::I3;
use File::Temp; use File::Temp;
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 = (
help => 0,
);
my $result = GetOptions(
"help|?" => \$options{help},
);
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';
@ -84,3 +88,23 @@ my $rep = "$tmp";
$rep =~ s/asy$/eps/; $rep =~ s/asy$/eps/;
my $tmp_dir = dirname($rep); my $tmp_dir = dirname($rep);
system("cd $tmp_dir && asy $tmp && gv --scale=-1000 --noresize --widgetless $rep && rm $rep"); system("cd $tmp_dir && asy $tmp && gv --scale=-1000 --noresize --widgetless $rep && rm $rep");
__END__
=head1 NAME
dump-asy.pl - Render the layout tree using asymptote
=head1 SYNOPSIS
dump-asy.pl [workspace]
=head1 EXAMPLE
Render the entire tree, run:
./dump-asy.pl
Render the tree starting from the node with the specified name, run:
./dump-asy.pl 'name'