Port to Neovim: Add public AcmeActivate function

Author: mcepl

plugin/acme.vim

@@ -19,8 +19,8 @@ function s:FileWin(name)
 endfunc
 
 function s:Sel()
-	let text = getreg("'")
-	let type = getregtype("'")
+	let text = getreg('"')
+	let type = getregtype('"')
 	let view = winsaveview()
 	silent normal! gv""y
 	let sel = [getreg('"'), getregtype('"')]
@@ -93,7 +93,7 @@ function s:Started(job, buf, cmd)
 		\ 'h': a:job,
 		\ 'cmd': type(a:cmd) == type([]) ? join(a:cmd) : a:cmd,
 		\ 'killed': 0,
-		\ })
+	\ })
 	redrawstatus!
 endfunc
 
@@ -292,7 +292,7 @@ function s:JobStartNvim(cmd, outb, ctxb, opts, inp)
 		\ 'on_stderr': function('s:NvimOut'),
 		\ 'buf': a:outb,
 		\ 'callback': get(a:opts, 'callback', ''),
-		\ }
+	\ }
 	if has_key(a:opts, 'cwd')
 		let job_opts.cwd = a:opts.cwd
 	endif
@@ -318,7 +318,7 @@ function s:JobEnv(buf)
 			\ &buftype == '' ? expand('%:t') : '',
 		\ 'COLUMNS': 80,
 		\ 'LINES': 24,
-		\ }
+	\ }
 endfunc
 
 function s:SetEnv(env)
@@ -340,7 +340,7 @@ function s:JobStart(cmd, outb, ctxb, opts, inp)
 		\ 'out_io': 'buffer',
 		\ 'out_buf': a:outb,
 		\ 'out_msg': 0,
-		\ }
+	\ }
 	call extend(opts, a:opts)
 	let cwd = get(a:opts, 'cwd', getcwd())
 	let env = s:SetEnv(s:JobEnv(a:outb))
@@ -531,7 +531,7 @@ function s:ScratchExec(cmd, dir, inp, title)
 	let opts = {
 		\ 'callback': function('s:ScratchCb', [b]),
 		\ 'in_io': 'pipe',
-		\ }
+	\ }
 	if a:dir != ''
 		let opts.cwd = a:dir
 	endif
@@ -546,7 +546,7 @@ function s:Exec(cmd)
 			\ 'err_io': 'null',
 			\ 'in_io': 'null',
 			\ 'out_io': 'null',
-			\ })
+		\ })
 	endif
 endfunc
 
@@ -1052,6 +1052,43 @@ function s:RightRelease(click)
 	call s:Open(cmd, a:click, dir, w)
 endfunc
 
+function AcmeActivate(mode)
+	let text = a:mode == 'v' ? trim(s:Sel()[0], "\r\n", 2) : getline('.')
+	let click = a:mode == 'v' ? -1 : col('.')
+	call s:Open(text, click, s:CtxDir(), win_getid())
+endfunc
+
+for m in ['', 'i']
+	for n in ['', '2-', '3-', '4-']
+		for c in ['Mouse', 'Drag', 'Release']
+			exe m.'noremap <'.n.'Middle'.c.'> <Nop>'
+			exe m.'noremap <'.n.'Right'.c.'> <Nop>'
+		endfor
+	endfor
+	exe m.'noremap <silent> <MiddleDrag> <LeftDrag>'
+	exe m.'noremap <silent> <RightDrag> <LeftDrag>'
+endfor
+for n in ['', '2-', '3-', '4-']
+	exe 'nnoremap <silent> <'.n.'MiddleMouse>'
+		\ ':call <SID>MousePress("")<CR>'
+	exe 'vnoremap <silent> <'.n.'MiddleMouse>'
+		\ ':<C-u>call <SID>MousePress("v")<CR>'
+	exe 'nnoremap <silent> <'.n.'MiddleRelease>'
+		\ ':call <SID>MiddleRelease(col("."))<CR>'
+	exe 'nnoremap <silent> <'.n.'RightMouse>'
+		\ ':call <SID>MousePress("")<CR>'
+	exe 'vnoremap <silent> <'.n.'RightMouse>'
+		\ ':<C-u>call <SID>MousePress("v")<CR>'
+	exe 'nnoremap <silent> <'.n.'RightRelease>'
+		\ ':call <SID>RightRelease(col("."))<CR>'
+endfor
+inoremap <silent> <MiddleMouse> <C-o>:call <SID>MousePress('')<CR>
+inoremap <silent> <MiddleRelease> <C-o>:call <SID>MiddleRelease(col('.'))<CR>
+vnoremap <silent> <MiddleRelease> :<C-u>call <SID>MiddleRelease(-1)<CR>
+inoremap <silent> <RightMouse> <C-o>:call <SID>MousePress('')<CR>
+inoremap <silent> <RightRelease> <C-o>:call <SID>RightRelease(col('.'))<CR>
+vnoremap <silent> <RightRelease> :<C-u>call <SID>RightRelease(-1)<CR>
+
 function s:Clear(b)
 	call deletebufline(a:b, 1, "$")
 	if has_key(s:scratch, a:b)
@@ -1197,7 +1234,7 @@ endfunc
 function s:CtrlRecv(ch, data)
 	let len = strridx(a:data, "\x1e")
 	let len += len == -1 ? 0 : len(s:ctrlrx)
-	s:ctrlrx .= a:data
+	let s:ctrlrx .= a:data
 	if len == -1
 		return
 	endif
@@ -1356,13 +1393,13 @@ if s:ctrlexe != ''
 		let s:ctrl = jobstart([s:ctrlexe], {
 			\ 'on_stdout': function('s:NvimCtrlRecv'),
 			\ 'rpc': 0,
-			\ })
+		\ })
 	else
 		let s:ctrl = job_start([s:ctrlexe], {
 			\ 'callback': 's:CtrlRecv',
 			\ 'err_io': 'null',
 			\ 'mode': 'raw',
-			\ })
+		\ })
 	endif
 	let $EDITOR = s:ctrlexe
-endif
+endif