A bit modified acmeedit from 9fans

acmeedit

#!/usr/bin/env rc
. $PLAN9/lib/acme.rc
newwindow 
st=$status

terminal=dumb
shell=rc

if (~ $st 1) {
  acme -f /mnt/font/Menlo-Regular/13a/font $* &
  exit ''
}

dir=`{dirname $1}
b=`{basename $1}

winctl name `{cd $"dir; pwd}^/$"b
winctl get
winctl cleartag
echo -n ' Put Undo Redo Cancel | Look ' | winwrite tag


fn event {
	switch($1$2) {
	case Mx MX
		if(~ $9 Cancel) {
			windel sure
			exit cancelled
		}
		winwriteevent $*
	case Ml ML
		winwriteevent $*
	}
}
wineventloop

exit ''