ref: fbfc783a40a11db28acaa1f178fa926e7e9eb194
parent: 56e28c1217ebec45eaa2850bbf9e98ddd44ca5de
author: qwx <qwx@sciops.net>
date: Sun Oct 2 06:15:49 EDT 2022
s: mirror ^R/^r like ^W/^w, simplify
--- a/bin/s
+++ b/bin/s
@@ -1,12 +1,8 @@
#!/bin/rc
# sam functions
-# ^D [cmd] # run command in cwd and send output to jam.err window
-fn D{
- if(~ $% jam.err */jam.err){
- echo nope >[1=2]
- exit
- }
+# ^r [cmd] # run command in cwd and send output to jam.err window
+fn r{
echo '^T'
c=''''^($*)^''''
f=$%