1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
--[[
Wraps console emacs for handling basic editor use cases within Vifm.
Unimplemented actions:
* open-help (:help when 'vimhelp' is set):
can probably be done, it's regular tags after all
* edit-list ("v" key in navigation menus):
don't know if there is a builtin notion of a quickfix list in Emacs
--]]
local M = {}
M.handlers = {}
M.handlers["open-help"] = function(info)
vifm.errordialog("Unimplemented",
"Can't view Vim-style help via Emacs.\n"..
"Do `:set novimhelp` to make argumentless `:help` work.")
return false
end
M.handlers["edit-one"] = function(info)
local posarg = ""
if info.line ~= nil and info.column == nil then
posarg = '+' .. info.line
elseif info.line ~= nil and info.column ~= nil then
posarg = string.format("+%d:%d", info.line, info.column)
end
local exitcode = vifm.run {
cmd = string.format("emacs -nw %s %s", vifm.escape(posarg),
vifm.escape(info.path)),
usetermmux = not info.mustwait,
}
return exitcode == 0
end
function map(table, functor)
local result = {}
for key, value in pairs(table) do
result[key] = functor(value)
end
return result
end
M.handlers["edit-many"] = function(info)
local exitcode = vifm.run {
cmd = string.format("emacs -nw %s",
table.concat(map(info.paths, vifm.escape), ' '))
}
return exitcode == 0
end
M.handlers["edit-list"] = function(info)
vifm.errordialog("Unimplemented", "Can't view quickfix via Emacs.")
return false
end
return M
|
