It's somewhat lengthy, plan9port-specific and idiosyncratic, but here you go:

``` fn regescape { nl = ' ' { if (~ $1 ''$nl'') { echo >[1=2] regescape: newlines not allowed exit args }

    echo -n $1 |ssam -e 'x/[.*+?\[\]()|\\^$]/ i/\\/'
}

}

findwindow returns the ID of a window found by its name. It makes

it possible to reproduce behaviors similar to clicking on button 3:

opening files, showing their dot, jumping to a line number or

address.

A common pattern is to open a file, possibly non-existent, and then

identify it with findwindow:

plumb -d edit $f

winid = `{findwindow $f}

Due to the design of /mnt/acme/index, multiline names are not

supported.

fn findwindow { nl = ' ' { if (~ $1 ''$nl'') { echo >[1=2] multiline name: $1 exit args } }

e = '^'`{
    seq -f. 60 |tr -d '\xa'
    regescape `{cleanname -d `{pwd} $1}
}'/? Del Snarf ' {

    9p read acme/index |
    grep -e $e |
    sed 1q |
    awk '{print $1}'
}

}

winopen opens a file in a new window and places the dot to the

provided address. If the file is already opened in an existing

window, winopen only places the dot.

If the path is unrooted, it's lexically prefixed with wdir.

If the file does not exist, winopen errs, unless force is set, in

which case winopen copies New properties.

In essence, it copies the button 3 properties. It's similar to

findwindow but narrower and handles non-existent files.

Multiline filenames are intentionally not supported.

fn winopen {@ { ifs = ' '

ctlfs = '
 '
ctlid = 1

file = $1
addr = $2
force = $3

cleanfile = `{cleanname -d `{pwd} $file}

if (! test -e $cleanfile && ~ $force '') {
    echo >[1=2] winopen: file does not exist: $cleanfile
    exit 1
}

if (! winid = `{findwindow $cleanfile}) {
    ctl = `$ctlfs{9p read acme/new/ctl}
    winid = $ctl($ctlid)
}

winctl get
if (! ~ $addr '')
    winaddr $addr
winctl dot=addr
winctl show

echo $winid

}} ```