dotfiles

download (1704B)

---

 #!/bin/rc
 
 fn uri2file {
 	ret = ()
 
 	for (uri in $*) {
 		filetype = `{echo $uri | grep -o '\.[^/]*$' | sed 's/^.//'}
 		hier = ``('/'){echo $uri | sed 's~^.*://~~'}
 		for (ent in $hier) {
 			if (~ $reverse ()) {
 				reverse = $ent
 			} else {
 				reverse = $ent ^ '+' ^ $reverse
 			}
 		}
 		filename = `{echo $reverse | tr -d '\n'}
 		if (! ~ $filetype ())
 			filename = $^filename ^ '.' ^ $filetype
 		reverse = ()
 		ret = ($ret $filename)
 	}
 
 	echo $^ret | tr -d ' '
 }
 
 fn mktemp {
 	urifile = ``($nl){uri2file $2}
 	ret = $1 ^ '/' ^ $^urifile
 	while (test -f $ret) {
 		ret = $1 ^ '/' ^ `{base64 </dev/urandom | tr -d '/' | head -c10}
 	}
 	echo $^ret | tr -s '/'
 }
 
 rcname = `{basename $0}
 
 if (~ $* ())
 	* = `{cat /dev/stdin}
 
 for (arg in $*) {
 	switch ($arg) {
 	case -h
 cat >[1=2] <<eof
 usage: $rcname [-hpdt] <file|URI> ...
 
 -h	help
 -p	plumb URIs
 -d	download URIs to default location
 .
 eof
 	exit 2
 	case -p
 		default = 'plumb'
 	case -d
 		default = 'download'
 	case *
 		if (test -f $arg) {
 			lines = ``($nl){cat $arg}
 			for (line in $lines) {
 				column = ``($tab $nl){echo $line}
 				if (!~ $column(1) () && !~ $column(2) ()) {
 					mkdir -p $column(1)
 					filename = $column(1) ^ '/' ^ `{uri2file $column(2)}
 					if (!test -f $^filename) {
 						curl '-o'^$filename $column(2)
 					}
 				}
 			}
 		} else {
 			if (! ~ $default ()) {
 				input = $default
 			} else {
 				input = `{printf 'plumb\ndownload\n' | dmenu -i -p $arg}
 			}
 
 			switch ($input) {
 			case plumb
 				plumb $arg
 			case download
 				filename = ``(''){mktemp $HOME/general/downloads $arg | tr -d '\n'}
 				uri = `{echo $arg | sed -E 's/]|\[|}|\{/\\&/g'}
 				curl $^uri > $^filename
 				herbe 'Saved to: ' ^ $^filename
 			}
 		}
 	}
 }