kill_focused should kill the whole process group

it was killing the firefox chrome process, but the content process was
continuing to run

1 files changed, 13 insertions, 1 deletions

diff --git a/bin/kill_focused b/bin/kill_focused
index b1f8d05..06010d4 100755
--- a/bin/kill_focused
+++ b/bin/kill_focused
@@ -6,17 +6,29 @@ use JSON;
 
 my ($sig) = @ARGV;
 my $pid = get_pid();
-kill $sig, $pid;
+my $pgrp = get_pgrp($pid);
+kill $sig, -$pgrp;
 
 sub get_pid {
     my $window_id = get_window_id();
     die "couldn't find window" unless defined $window_id;
     my $prop = `xprop -id $window_id _NET_WM_PID`;
+    die "couldn't get pid from focused window"
+        if $prop =~ /not found/;
     chomp($prop);
     $prop =~ s/^_NET_WM_PID\(CARDINAL\) = //;
     return $prop;
 }
 
+sub get_pgrp {
+    my ($pid) = @_;
+    open my $stat_fh, '<', "/proc/$pid/stat"
+        or die "couldn't open /proc/$pid/stat";
+    my $stat = do { local $/; <$stat_fh> };
+    my @f = ($stat =~ /\([^)]*\)|[^ ]+/g);
+    return $f[4];
+}
+
 sub get_window_id {
     return find(decode_json(`i3-msg -t get_tree`))->{window};
 }