#!/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