bindsym $mod+j exec --no-startup-id i3-window-warp left

i3-window-warp.pl

#!/usr/bin/env perl

use AnyEvent;
use AnyEvent::I3 ":all";

my $i3 = i3();
$i3->connect->recv or die "Error connecting";

my $direction = shift or die "need direction";
my $cv = AE::cv;

$i3->subscribe({
  window => sub ($event) {
    if ($_[0]->{change} =~ /^(focus|new)$/) {
      my ($x, $y) = @{$_[0]->{container}{rect}}{qw{x y}};
      system(qw{xdotool mousemove}, $x, $y);
    }
    $cv->send;
  }
});

$i3->command("focus $direction");
$cv->recv;