shithub: werc

ref: c6935b9314525c81071e53a9de0457a7f2ded4ee
dir: /bin/aux/bpst.rc/

#!/usr/bin/env rc

path=( $PLAN9/bin  $path )
base=.

fn die {
	echo error: $* >[1=2]
	exit 1
}

if (~ $#* 0)
    die 'Missing title'

if(~ $#user 0)
	user = `{whoami}

file = (); title = ();
bloguser = $user
while(! ~ $#* 0) {
	switch($1) {
	case -u
        base=/gsoc/www/people/$user/blog/
		shift
	case *
		title = $"*
	}
    shift
}

date=`{/bin/date +%F}

n = 1
for(f in $base/$date-*) {
	i = `{echo $f | sed -n 's|^.*/'$date'-([0-9]+)_.*|\1|p'}
	if(! ~ $#i 0 && test $i -ge $n)
		n = `{hoc -e $i'+1'}
}

if(~ $EDITOR '')
	EDITOR = vi

file = $home/.blogtmp.$pid
rm $file >[2]/dev/null
touch $file
$EDITOR $file
ispell $file
rm $file.bak >[2]/dev/null


title = `{ echo $"title | sed 's/ /_/g' }

title = `{echo $"title | sed 's/[ 	]+/_/g; 1q'}

mv $file $base/$"date^'-'^$"n^_$"title.md