ref: 25085d9893f47f9e848033c3b168103d1c6f15df
parent: 6404c0c1df514d182b36a0837672b55cdfb56c10
parent: 8c0ef58751e662fd4e91e4dc21bd3d3a84a55a03
author: uriel <[email protected]>
date: Sat Jun 28 00:09:52 EDT 2008
Merge bpst.rc
--- /dev/null
+++ b/bin/bpst.rc
@@ -1,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
+