applications/i3
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

i3-save-tree: only create "swallows" key for leaf nodes (Thanks xeen)

Browse Source 
fixes #1149
This commit is contained in:
Michael Stapelberg 2014-01-05 20:10:24 +01:00
parent 2fea5ef82b
commit bb482e2869
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
i3-save-tree
View File

@ -1,7 +1,7 @@
#!/usr/bin/env perl #!/usr/bin/env perl
# vim:ts=4:sw=4:expandtab # vim:ts=4:sw=4:expandtab
# #
# © 2013 Michael Stapelberg # © 2013-2014 Michael Stapelberg
# #
# Requires perl ≥ v5.10, AnyEvent::I3 and JSON::XS # Requires perl ≥ v5.10, AnyEvent::I3 and JSON::XS
@ -149,12 +149,15 @@ sub dump_containers {
say "$ws// $desc with " . @{$tree->{nodes}} . " children"; say "$ws// $desc with " . @{$tree->{nodes}} . " children";
} }
# Turn “window_properties” into “swallows” expressions. # Turn “window_properties” into “swallows” expressions, but only for leaf
# nodes. It only makes sense for leaf nodes to swallow anything.
if (leaf_node($tree)) {
my $swallows = {}; my $swallows = {};
for my $property (keys %{$tree->{window_properties}}) { for my $property (keys %{$tree->{window_properties}}) {
$swallows->{$property} = '^' . quotemeta($tree->{window_properties}->{$property}) . '$'; $swallows->{$property} = '^' . quotemeta($tree->{window_properties}->{$property}) . '$';
} }
$tree->{swallows} = [ $swallows ]; $tree->{swallows} = [ $swallows ];
}
delete $tree->{window_properties}; delete $tree->{window_properties};
my @keys = sort keys %$tree; my @keys = sort keys %$tree;