commit 39d6d186beffd4228d05677574286f513c23d23d parent 0303039180857022bf5008b78ad559560e71aea6 Author: uriel@localhost.localdomain <unknown> Date: Sat, 28 Jun 2008 04:09:52 +0200 Merge bpst.rc Diffstat:
| A | bin/bpst.rc | | | 55 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
1 file changed, 55 insertions(+), 0 deletions(-)
diff --git a/bin/bpst.rc b/bin/bpst.rc @@ -0,0 +1,55 @@ +#!/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 +