diff options
author | Case Duckworth | 2024-01-17 00:24:11 -0600 |
---|---|---|
committer | Case Duckworth | 2024-01-17 00:24:11 -0600 |
commit | 8179c0025a44a769ab6ad2e5c0a58f545517280c (patch) | |
tree | 8de19b673bbddbfcbb03c7d2363ca937ccf4aa3b /ok | |
parent | Update .gitignore (diff) | |
download | acdwm-001.tar.gz acdwm-001.zip |
Change organization and massively refactor v001
Diffstat (limited to 'ok')
-rwxr-xr-x | ok | 23 |
1 files changed, 18 insertions, 5 deletions
diff --git a/ok b/ok index c135a93..79b1663 100755 --- a/ok +++ b/ok | |||
@@ -1,11 +1,7 @@ | |||
1 | #!/bin/sh | 1 | #!/bin/sh |
2 | 2 | ||
3 | fr<<. | ||
4 | acdwm chickenbuild acdwm.scm | ||
5 | . | ||
6 | |||
7 | xephyr(){ | 3 | xephyr(){ |
8 | dep acdwm | 4 | dep chickenbuild |
9 | quietly killall Xephyr | 5 | quietly killall Xephyr |
10 | ok Xephyr -ac -screen 800x600 -br -reset -terminate 2>/dev/null :1 & | 6 | ok Xephyr -ac -screen 800x600 -br -reset -terminate 2>/dev/null :1 & |
11 | sleep 1 | 7 | sleep 1 |
@@ -17,3 +13,20 @@ xephyr(){ | |||
17 | chickenbuild(){ | 13 | chickenbuild(){ |
18 | ok chicken-install -n | 14 | ok chicken-install -n |
19 | } | 15 | } |
16 | |||
17 | clean(){ | ||
18 | ignore=.gitignore | ||
19 | test -f "$ignore" || return 1 | ||
20 | while read -r glob | ||
21 | do find . -iname "$glob" | | ||
22 | while read -r file | ||
23 | do ok rm "$file" | ||
24 | done | ||
25 | done < "$ignore" | ||
26 | } | ||
27 | |||
28 | kill(){ | ||
29 | while : | ||
30 | do ok - killall Xephyr || break | ||
31 | done | ||
32 | } | ||