Re: [9fans] Acme Edit scriptlets

[dexen deVries <dexen.devries@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 571 bytes --]

On Thursday 04 of April 2013 10:19:23 Mark van Atten wrote:
> On Friday, 29 March 2013 01:38:06 UTC+1, Bence Fábián  wrote:
> > I did a quick writeup on little Edit scripts


(p9p specific)

attached is my dirty hack for automagic grepping of $% file or recursively %s 
dir or pipe.

a funky goodie:
automatically supplies `.' (dot) between arguments, so for example:

$ G some token here

becomes `grep some.token.here'


-- 
dexen deVries

[[[↓][→]]]


``we, the humanity'' is the greatest experiment we, the humanity, ever 
undertook. 

[-- Attachment #2: G --]
[-- Type: text/plain, Size: 440 bytes --]

#!/usr/bin/env rc


. 9.rc


s=()
arg=()

fn addS {
	if (~ $#s 0)
		s=$1
	if not
		s=$s.$1
}

while (! ~ $#* 0) {
	if (~ $1 -*)
		arg=($arg $1)
	if not
		addS $1
	shift
}


if (u test -p /dev/stdin) {
	grep -n $arg $s
	exit
}
if (test -f $%)
	grep -n $arg $s /dev/null `{basename $%}
if not
	find . -type f | grep -v '[.]/share/doc/doxygen/|/[.]git/|/[.]svn/|[.](mo|pot)$' | xargs grep -n $arg $s /dev/null