56 lines
795 B
Plaintext
56 lines
795 B
Plaintext
|
#!/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
|
||
|
|
|