46 lines
1022 B
Perl
Executable File
46 lines
1022 B
Perl
Executable File
#!/usr/bin/env perl
|
|
# vim:ts=4:sw=4:expandtab
|
|
# renders the layout tree using asymptote
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Data::Dumper;
|
|
use AnyEvent::I3;
|
|
use File::Temp;
|
|
use v5.10;
|
|
|
|
my $i3 = i3("/tmp/nestedcons");
|
|
|
|
my $tree = $i3->get_tree->recv;
|
|
|
|
my $tmp = File::Temp->new(UNLINK => 0, SUFFIX => '.asy');
|
|
|
|
say $tmp "import drawtree;";
|
|
|
|
say $tmp "treeLevelStep = 2cm;";
|
|
|
|
sub dump_node {
|
|
my ($n, $parent) = @_;
|
|
|
|
my $o = ($n->{orientation} eq 'none' ? "u" : ($n->{orientation} eq 'horizontal' ? "h" : "v"));
|
|
my $w = (defined($n->{window}) ? $n->{window} : "N");
|
|
my $na = $n->{name};
|
|
$na =~ s/#/\\#/g;
|
|
my $name = "($na, $o, $w)";
|
|
|
|
print $tmp "TreeNode n" . $n->{id} . " = makeNode(";
|
|
|
|
print $tmp "n" . $parent->{id} . ", " if defined($parent);
|
|
print $tmp "\"" . $name . "\");\n";
|
|
|
|
dump_node($_, $n) for @{$n->{nodes}};
|
|
}
|
|
|
|
dump_node($tree);
|
|
say $tmp "draw(n" . $tree->{id} . ", (0, 0));";
|
|
|
|
close($tmp);
|
|
my $rep = "$tmp";
|
|
$rep =~ s/asy$/eps/;
|
|
system("cd /tmp && asy $tmp && gv $rep && rm $rep");
|