2 # vim:ts=4:sw=4:expandtab
3 # renders the layout tree using asymptote
6 # will render the entire tree
8 # will render the tree starting from the node with the specified name,
9 # e.g. ./dump-asy.pl 2 will render workspace 2 and below
18 use IPC::Cmd qw[can_run];
20 # prerequisites check so we can be specific about failures caused
21 # by not having these tools in the path
22 can_run('asy') or die 'Please install asymptote';
23 can_run('gv') or die 'Please install gv';
27 my $tree = $i3->get_tree->recv;
29 my $tmp = File::Temp->new(UNLINK => 0, SUFFIX => '.asy');
31 say $tmp "import drawtree;";
33 say $tmp "treeLevelStep = 2cm;";
36 my ($n, $parent) = @_;
38 my $o = ($n->{orientation} eq 'none' ? "u" : ($n->{orientation} eq 'horizontal' ? "h" : "v"));
39 my $w = (defined($n->{window}) ? $n->{window} : "N");
40 my $na = ($n->{name} or "[Empty]");
45 $na =~ s/~/\\textasciitilde{}/g;
47 if (!defined($n->{window})) {
50 my $name = qq|``$na'' ($type)|;
52 print $tmp "TreeNode n" . $n->{id} . " = makeNode(";
54 print $tmp "n" . $parent->{id} . ", " if defined($parent);
55 print $tmp "\"" . $name . "\");\n";
57 dump_node($_, $n) for @{$n->{nodes}};
60 sub find_node_with_name {
61 my ($node, $name) = @_;
63 return $node if ($node->{name} eq $name);
64 for my $child (@{$node->{nodes}}) {
65 my $res = find_node_with_name($child, $name);
66 return $res if defined($res);
74 # Find the specified node in the tree
75 $root = find_node_with_name($tree, $start);
80 say $tmp "draw(n" . $root->{id} . ", (0, 0));";
85 my $tmp_dir = dirname($rep);
86 system("cd $tmp_dir && asy $tmp && gv --scale=-1000 --noresize --widgetless $rep && rm $rep");