git.sur5r.net Git - i3/i3/blob - dump-asy.pl

   1 #!/usr/bin/env perl
   2 # vim:ts=4:sw=4:expandtab
   3 # renders the layout tree using asymptote
   4
   5 use strict;
   6 use warnings;
   7 use Data::Dumper;
   8 use AnyEvent::I3;
   9 use File::Temp;
  10 use v5.10;
  11
  12 my $i3 = i3("/tmp/nestedcons");
  13
  14 my $tree = $i3->get_tree->recv;
  15
  16 my $tmp = File::Temp->new(UNLINK => 0, SUFFIX => '.asy');
  17
  18 say $tmp "import drawtree;";
  19
  20 say $tmp "treeLevelStep = 2cm;";
  21
  22 sub dump_node {
  23         my ($n, $parent) = @_;
  24
  25     my $o = ($n->{orientation} eq 'none' ? "u" : ($n->{orientation} eq 'horizontal' ? "h" : "v"));
  26     my $w = (defined($n->{window}) ? $n->{window} : "N");
  27     my $na = $n->{name};
  28     $na =~ s/#/\\#/g;
  29     my $name = "($na, $o, $w)";
  30
  31     print $tmp "TreeNode n" . $n->{id} . " = makeNode(";
  32
  33     print $tmp "n" . $parent->{id} . ", " if defined($parent);
  34     print $tmp "\"" . $name . "\");\n";
  35
  36         dump_node($_, $n) for @{$n->{nodes}};
  37 }
  38
  39 dump_node($tree);
  40 say $tmp "draw(n" . $tree->{id} . ", (0, 0));";
  41
  42 close($tmp);
  43 my $rep = "$tmp";
  44 $rep =~ s/asy$/eps/;
  45 system("cd /tmp && asy $tmp && gv $rep && rm $rep");