honeylisp/vendor/lite-plugins/plugins/openfilelocation.lua
Jeremy Penner cb5132f393 git subrepo clone https://github.com/rxi/lite-plugins vendor/lite-plugins
subrepo:
  subdir:   "vendor/lite-plugins"
  merged:   "de4227d"
upstream:
  origin:   "https://github.com/rxi/lite-plugins"
  branch:   "master"
  commit:   "de4227d"
git-subrepo:
  version:  "0.4.2"
  origin:   "https://github.com/ingydotnet/git-subrepo"
  commit:   "65fde50"
2020-11-19 21:04:39 -05:00

31 lines
810 B
Lua

local core = require "core"
local command = require "core.command"
local config = require "core.config"
if PLATFORM == "Windows" then
config.filemanager = "explorer"
elseif PLATFORM == "Mac OS X" then
config.filemanager = "open"
else
config.filemanager = "xdg-open"
end
command.add("core.docview", {
["open-file-location:open-file-location"] = function()
local doc = core.active_view.doc
if not doc.filename then
core.error "Cannot open location of unsaved doc"
return
end
local folder = doc.filename:match("^(.*)[/\\].*$") or "."
core.log("Opening \"%s\"", folder)
if PLATFORM == "Windows" then
system.exec(string.format("%s %s", config.filemanager, folder))
else
system.exec(string.format("%s %q", config.filemanager, folder))
end
end
})