From 8179c0025a44a769ab6ad2e5c0a58f545517280c Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 17 Jan 2024 00:24:11 -0600
Subject: Change organization and massively refactor

---
 ok | 23 ++++++++++++++++++-----
 1 file changed, 18 insertions(+), 5 deletions(-)

(limited to 'ok')

diff --git a/ok b/ok
index c135a93..79b1663 100755
--- a/ok
+++ b/ok
@@ -1,11 +1,7 @@
 #!/bin/sh
 
-fr<<.
-acdwm chickenbuild acdwm.scm
-.
-
 xephyr(){
-	dep acdwm
+	dep chickenbuild
 	quietly killall Xephyr
 	ok Xephyr -ac -screen 800x600 -br -reset -terminate 2>/dev/null :1 &
 	sleep 1
@@ -17,3 +13,20 @@ xephyr(){
 chickenbuild(){
 	ok chicken-install -n
 }
+
+clean(){
+	ignore=.gitignore
+	test -f "$ignore" || return 1
+	while read -r glob
+	do find . -iname "$glob" |
+			while read -r file
+			do ok rm "$file"
+			done
+	done < "$ignore"
+}
+
+kill(){
+	while :
+	do ok - killall Xephyr || break
+	done
+}
-- 
cgit 1.4.1-21-gabe81