Big cleanup of bin/, move external programs to contrib/, move minor useful scripts to aux/, and most important of all move controller.rc to werc.rc
This commit is contained in:
		
							parent
							
								
									4f75a5b3b6
								
							
						
					
					
						commit
						eac8d656f3
					
				
					 9 changed files with 1 additions and 23 deletions
				
			
		
							
								
								
									
										55
									
								
								bin/bpst.rc
									
										
									
									
									
								
							
							
						
						
									
										55
									
								
								bin/bpst.rc
									
										
									
									
									
								
							|  | @ -1,55 +0,0 @@ | |||
| #!/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 | ||||
| 
 | ||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue
	
	 Uriel
						Uriel