ref: 6cfd33c55f68b8feb3bedb0ae7bca67ad3c49c4a
author: demyxology <spicycoldnoodles@gmail.com>
date: Sun Jan 19 16:18:39 EST 2025
rc
--- /dev/null
+++ b/calwidget
@@ -1,0 +1,9 @@
+#!/bin/rc
+noscroll
+while(){ + >/dev/text
+ weather nyc >[2] /dev/null | align
+ cal | sed -e :a -e '/^\n*$/{$d;N;};/\n$/ba' | hl `{date -f ' D '}+ echo `{date -f 'WW DD'} ' ' `{echo `{date -f hh} % 12 | bc} ^ `{date -f ':mma'}+ sleep 30
+}
--- /dev/null
+++ b/common
@@ -1,0 +1,27 @@
+#!/bin/rc
+
+screen=`{read -c 60 < /dev/screen}+screenx=$screen(4)
+screeny=$screen(5)
+factor=`{echo '(' ^ $screenx ^ '*' ^ $screeny ^ ') / (1920 * 1080)' | bc}+if(~ $factor 0) factor = 1
+fn scale {+ for(num in $*)
+ echo $factor ^ '*' ^ $num | bc
+}
+fn offsetx {+ echo $screenx ^ '-' ^ $* | bc
+}
+fn offsety {+ echo $screeny ^ '-' ^ $* | bc
+}
+
+window -r `{scale (5 5 161 200)} stats -lmisce+window -r `{scale (5 205 161 400)} winwatch+window -r `{scale (5 405 200 600)} calwidget+window -miny 130
+#window riowstart
+
+
+# run a system shell on the serial console
+~ $#console 0 || window -scroll console
--- /dev/null
+++ b/cpustart
@@ -1,0 +1,3 @@
+#!/bin/rc
+
+. $home/bin/rc/common
--- /dev/null
+++ b/gridup
@@ -1,0 +1,43 @@
+#!/bin/rc
+
+# 9p.zone domain is gone
+#srv tcp!registry.9p.zone!6675 registry /n/registry
+#srv -c tcp!9p.zone!9991 9p.zone.disk /n/disk
+
+srv tcp!chat.only9fans.com!9990 chat.only9fans.com /n/9chat
+
+fn clean {+ echo $1 | sed 's/.*!([^!]+)!.*/\1/'
+}
+
+for(s in /n/registry/tcp*){+ s=`{basename $s}+ srv $s `{clean $s} /n/^`{clean $s} &+}
+
+>/tmp/chatcat cat <<'...'
+#!/bin/rc
+chan=$1
+label $chan
+echo JOIN $nick to chat >>/n/9chat/$chan
+cat /n/9chat/$chan &
+while() cat | sed '1s/^/'$nick' → /' >>/n/9chat/$chan
+...
+chmod +x /tmp/chatcat
+
+>/tmp/gridrio cat <<'...'
+#!/bin/rc
+for(c in chat commits noise)
+ window -scroll /tmp/chatcat $c
+...
+chmod +x /tmp/gridrio
+
+echo ' Type a (multi-line) message ending with a newline'
+echo ' and press control-d (EOT) to send.'
+echo
+echo -n 'Please enter nickname to use, finish with ENTER: '
+nick=`{read}+if(~ $#nick 0)
+ nick=$user
+
+exec rio -s -i /tmp/gridrio
--- /dev/null
+++ b/hl
@@ -1,0 +1,13 @@
+#!/bin/rc
+
+esc=`{awk 'BEGIN{ printf "%c", 27 }' }+
+if(~ $#* 0){+ echo -n $esc
+ cat
+ echo -n $esc
+}
+if not {+ regex=$*(1)
+ sed 's/(' ^ $regex ^ ')/' ^ $esc ^ \1 ^ $esc/g+}
--- /dev/null
+++ b/termstart
@@ -1,0 +1,6 @@
+#!/bin/rc
+
+. $home/bin/rc/common
+
+window -hide listener
+window -hide cat /dev/kprint
--- /dev/null
+++ b/weather
@@ -1,0 +1,35 @@
+#!/bin/rc
+# weather(1) - by Fulton Browne - MIT Licence
+
+rfork e
+
+DEFAULT=pdx
+p = 'no'
+
+fn usage{+ echo 'usage: weather [-p] [location]' >[1=2]
+ exit usage
+}
+while (~ $1 -*){+ switch($1){+ case '-p'
+ p='yes'
+ shift
+ case *
+ usage
+ }
+}
+switch($#*){+case 0
+ arg=$DEFAULT
+ if(~ $#weather 1)
+ arg=$weather
+case 1
+ arg=$1
+case *
+ usage
+}
+
+if (~ $p 'no') hget 'http://wttr.in/'$arg'?format=%25t%20%25C'
+if not hget http://wttr.in/~$arg.png | page
+echo
--- /dev/null
+++ b/win
@@ -1,0 +1,2 @@
+#!/bin/rc
+window -cd `{pwd} $*