From 01144e666dd1b3daed500ab230fbc7d0266962da Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@cryptonomic.net>
Date: Tue, 19 Oct 2021 07:44:42 -0400
Subject: add command fireslay

---
 Makefile |  2 +-
 fireslay | 38 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 39 insertions(+), 1 deletion(-)
 create mode 100755 fireslay

diff --git a/Makefile b/Makefile
index 77aabe8..3d6a476 100644
--- a/Makefile
+++ b/Makefile
@@ -1,5 +1,5 @@
 BINDIR = /usr/local/bin
-BINARIES = sliceweasel
+BINARIES = sliceweasel fireslay
 SUDO != [ "$$(id -u)" = 0 ] || echo sudo
 
 .PHONY: install install-bin
diff --git a/fireslay b/fireslay
new file mode 100755
index 0000000..1826561
--- /dev/null
+++ b/fireslay
@@ -0,0 +1,38 @@
+#!/bin/sh
+set -e
+d=$(mktemp -d)
+trap "cd /; rm -r '$d'" EXIT
+cd "$d"
+
+web_content_pids()
+{
+    top -w512 -bn1 -o '%MEM' | sed -e '1,/^$/d' | {
+        while read line
+        do set -- $line
+           [ "${12} ${13}" = "Web Content" ] || continue
+           echo $1
+        done
+    }
+}
+
+lesser_tabs()
+{
+    web_content_pids > pids
+    if [ $(wc -l < pids) -gt 1 ]
+    then
+        sed 1d < pids | tac
+    fi
+}
+
+FIRST=y
+for tab in $(lesser_tabs)
+do
+    if [ "$FIRST" ]
+    then
+        FIRST=
+        ps $tab
+        (set -x
+         kill "$tab")
+    fi
+    ps $tab
+done
-- 
cgit v1.2.3