lite-xl/data/core/commands/core.lua

local core = require "core"
local common = require "core.common"
local command = require "core.command"
local keymap = require "core.keymap"
local LogView = require "core.logview"


local fullscreen = false

local function home_encode(paths)
  if not HOME then return paths end
  local home = HOME
  local t = {}
  local n = #home
  for i = 1, #paths do
    if paths[i]:sub(1, n) == home and paths[i]:sub(n + 1, n + 1):match("[/\\\\]") then
      t[i] = "~" .. paths[i]:sub(#home + 1)
    else
      t[i] = paths[i]
    end
  end
  return t
end

local function home_expand(text)
  if HOME then
    return text:gsub("^~", HOME)
  end
  return text
end

local function suggest_directory(text)
  text = home_expand(text)
  return home_encode(text == "" and core.recent_projects or common.dir_path_suggest(text))
end

command.add(nil, {
  ["core:quit"] = function()
    core.quit()
  end,

  ["core:restart"] = function()
    core.restart()
  end,

  ["core:force-quit"] = function()
    core.quit(true)
  end,

  ["core:toggle-fullscreen"] = function()
    fullscreen = not fullscreen
    system.set_window_mode(fullscreen and "fullscreen" or "normal")
  end,

  ["core:reload-module"] = function()
    core.command_view:enter("Reload Module", function(text, item)
      local text = item and item.text or text
      core.reload_module(text)
      core.log("Reloaded module %q", text)
    end, function(text)
      local items = {}
      for name in pairs(package.loaded) do
        table.insert(items, name)
      end
      return common.fuzzy_match(items, text)
    end)
  end,

  ["core:find-command"] = function()
    local commands = command.get_all_valid()
    core.command_view:enter("Do Command", function(text, item)
      if item then
        command.perform(item.command)
      end
    end, function(text)
      local res = common.fuzzy_match(commands, text)
      for i, name in ipairs(res) do
        res[i] = {
          text = command.prettify_name(name),
          info = keymap.get_binding(name),
          command = name,
        }
      end
      return res
    end)
  end,

  ["core:find-file"] = function()
    local files = {}
    for _, item in pairs(core.project_files) do
      if item.type == "file" then
        table.insert(files, item.filename)
      end
    end
    core.command_view:enter("Open File From Project", function(text, item)
      text = item and item.text or text
      core.root_view:open_doc(core.open_doc(text))
    end, function(text)
      if text == "" then
        local recent_files = {}
        for i = 2, #core.visited_files do
            table.insert(recent_files, core.visited_files[i])
        end
        table.insert(recent_files, core.visited_files[1])
        local other_files = common.fuzzy_match(files, "")
        for i = 1, #other_files do
          table.insert(recent_files, other_files[i])
        end
        return recent_files
      else
        return common.fuzzy_match(files, text)
      end
    end)
  end,

  ["core:new-doc"] = function()
    core.root_view:open_doc(core.open_doc())
  end,

  ["core:open-file"] = function()
    core.command_view:enter("Open File", function(text)
      core.root_view:open_doc(core.open_doc(text))
    end, common.path_suggest)
  end,

  ["core:open-log"] = function()
    local node = core.root_view:get_active_node()
    node:add_view(LogView())
  end,

  ["core:open-user-module"] = function()
    local user_module_doc = core.open_doc(USERDIR .. "/init.lua")
    if not user_module_doc then return end
    local doc_save = user_module_doc.save
    user_module_doc.save = function(self)
      doc_save(self)
      core.reload_module("core.style")
      core.load_user_directory()
    end
    core.root_view:open_doc(user_module_doc)
  end,

  ["core:open-project-module"] = function()
    local filename = ".lite_project.lua"
    if system.get_file_info(filename) then
      core.root_view:open_doc(core.open_doc(filename))
    else
      local doc = core.open_doc()
      core.root_view:open_doc(doc)
      doc:save(filename)
    end
  end,

  ["core:change-project-folder"] = function()
    core.command_view:enter("Change Project Folder", function(text)
      text = home_expand (text)
      local path_stat = system.get_file_info(text)
      if not path_stat or path_stat.type ~= 'dir' then
        core.error("Cannot open folder %q", text)
        return
      end
      if core.confirm_close_all() then
        core.open_folder_project(text)
      end
    end, suggest_directory)
  end,

  ["core:open-project-folder"] = function()
    core.command_view:enter("Open Project", function(text)
      text = home_expand (text)
      local path_stat = system.get_file_info(text)
      if not path_stat or path_stat.type ~= 'dir' then
        core.error("Cannot open folder %q", text)
        return
      end
      system.exec(string.format("%q %q", EXEFILE, text))
    end, suggest_directory)
  end,
})