-- Copyright 2007-2010 Mitchell mitchell<att>caladbolg.net. See LICENSE.

local textadept = _G.textadept
local locale = _G.locale

---
-- Modules browser for the Textadept project manager.
-- It is enabled with the prefix 'modules' in the project manager entry field.
module('textadept.pm.browsers.modules', package.seeall)

if not RESETTING then textadept.pm.add_browser('modules') end

local lfs = require 'lfs'
local os = require 'os'

local INIT = [[
-- The $1 module.
-- It provides utilities for editing $2 code.
module('_m.$1', package.seeall)

if type(_G.snippets) == 'table' then
-- Container for $2-specific snippets.
-- @class table
-- @name snippets.$1
  _G.snippets.$1 = {}
end

if type(_G.keys) == 'table' then
-- Container for $2-specific key commands.
-- @class table
-- @name keys.$1
  _G.keys.$1 = {}
end

require '$1.commands'
require '$1.snippets'

function set_buffer_properties()

end
]]

local SNIPPETS = [[
-- Snippets for the $1 module.
module('_m.$1.snippets', package.seeall)

local snippets = _G.snippets

if type(snippets) == 'table' then
  snippets.$1 = {}
end
]]

local COMMANDS = [[
-- Commands for the $1 module.
module('_m.$1.commands', package.seeall)

-- $2-specific key commands.
local keys = _G.keys
if type(keys) == 'table' then
  keys.$1 = {
    al = {
      m = { textadept.io.open,
            textadept.iconv(_USERHOME..'/modules/$1/init.lua'),
                            'UTF-8', _CHARSET) },
    },
  }
end
]]

function matches(entry_text)
  return entry_text:sub(1, 7) == 'modules'
end

function get_contents_for(full_path)
  local dir = {}
  local iconv = textadept.iconv
  if #full_path == 1 and full_path[1] == 'modules' then
    -- toplevel modules
    local dirpaths = {
      iconv(_USERHOME..'/modules', _CHARSET, 'UTF-8'),
      iconv(_HOME..'/modules', _CHARSET, 'UTF-8')
    }
    for _, dirpath in ipairs(dirpaths) do
      if lfs.attributes(dirpath) then
        for filename in lfs.dir(dirpath) do
          local filepath = dirpath..'/'..filename
          if lfs.attributes(filepath, 'mode') == 'directory' and
             not filename:find('^%.') then
            dir[filepath] = {
              parent = true,
              pixbuf = 'gtk-directory',
              text = iconv(filename, 'UTF-8', _CHARSET)
            }
          end
        end
      end
    end
  else
    -- expanding a module
    local dirpath = iconv(full_path[#full_path], _CHARSET, 'UTF-8')
    for filename in lfs.dir(dirpath) do
      if not filename:find('^%.') then
        local filepath = dirpath..'/'..filename
        dir[filepath] = { text = iconv(filename, 'UTF-8', _CHARSET) }
        if lfs.attributes(filepath, 'mode') == 'directory' then
          dir[filepath].parent = true
          dir[filepath].pixbuf = 'gtk-directory'
        end
      end
    end
  end
  return dir
end

function perform_action(selected_item)
  local filepath = selected_item[#selected_item]
  textadept.io.open(filepath)
  view:focus()
end

local ID = {
  NEW = 1, DELETE = 2, CONF_MIME_TYPES = 3, CONF_KEY_COMMANDS = 4, RELOAD = 5
}

function get_context_menu(selected_item)
  return {
    { locale.PM_BROWSER_MODULE_NEW, ID.NEW },
    { locale.PM_BROWSER_MODULE_DELETE, ID.DELETE },
    { locale.PM_BROWSER_MODULE_CONF_MIME_TYPES, ID.CONF_MIME_TYPES },
    { locale.PM_BROWSER_MODULE_CONF_KEY_COMMANDS, ID.CONF_KEY_COMMANDS },
    { 'separator', 0 },
    { locale.PM_BROWSER_MODULE_RELOAD, ID.RELOAD },
  }
end

function perform_menu_action(menu_id, selected_item)
  if menu_id == ID.NEW then
    local status, module_name =
      textadept.dialog('standard-inputbox',
                       '--title', locale.PM_BROWSER_MODULE_NEW_TITLE,
                       '--informative-text',
                         locale.PM_BROWSER_MODULE_NEW_INFO_TEXT
                       ):match('^(%d)%s+([^\n]+)%s+$')
    if status ~= '1' then return end
    local status, lang_name =
      textadept.dialog('standard-inputbox',
                       '--title', locale.PM_BROWSER_MODULE_NEW_LANG_TITLE,
                       '--informative-text',
                         locale.PM_BROWSER_MODULE_NEW_LANG_INFO_TEXT
                       ):match('^(%d)%s+([^\n]+)%s+$')
    if status ~= '1' then return end
    lfs.mkdir(_USERHOME..'/modules')
    local module_dir = _USERHOME..'/modules/'..module_name
    if lfs.mkdir(module_dir) then
      -- write init.lua from template
      local f = io.open(module_dir..'/init.lua', 'wb')
      local out = INIT:gsub('$1', module_name):gsub('$2', lang_name)
      f:write(out)
      f:close()
      -- write snippets.lua from template
      f = io.open(module_dir..'/snippets.lua', 'wb')
      out = SNIPPETS:gsub('$1', module_name):gsub('$2', lang_name)
      f:write(out)
      f:close()
      -- write commands.lua from template
      f = io.open(module_dir..'/commands.lua', 'wb')
      out = COMMANDS:gsub('$1', module_name):gsub('$2', lang_name)
      f:write(out)
      f:close()
    else
      textadept.dialog('ok-msgbox',
                       '--text', locale.PM_BROWSER_MODULE_NEW_ERROR,
                       '--informative-text',
                         locale.PM_BROWSER_MODULE_NEW_ERROR_TEXT,
                       '--no-cancel')
      return
    end
  elseif menu_id == ID.DELETE then
    local dirpath = selected_item[2]
    if textadept.dialog('yesno-msgbox',
                        '--text', locale.PM_BROWSER_MODULE_DELETE_TITLE,
                        '--informative-text',
                          string.format(locale.PM_BROWSER_MODULE_DELETE_TEXT,
                                        dirpath:match('[^/\\]+$')),
                        '--no-cancel',
                        '--no-newline') == '1' then
      local function remove_directory(dirpath)
        for name in lfs.dir(dirpath) do
          if not name:find('^%.%.?$') then os.remove(dirpath..'/'..name) end
        end
        lfs.rmdir(dirpath)
      end
      remove_directory(dirpath)
    else
      return
    end
  elseif menu_id == ID.CONF_MIME_TYPES then
    textadept.io.open(
      textadept.iconv(_HOME..'/core/ext/mime_types.lua', 'UTF-8', _CHARSET))
  elseif menu_id == ID.CONF_KEY_COMMANDS then
    if textadept.key_commands then
      textadept.io.open(
        textadept.iconv(_HOME..'/core/ext/key_commands.lua', 'UTF-8', _CHARSET))
    end
  elseif menu_id == ID.RELOAD then
    textadept.reset()
  end
  textadept.pm.activate()
end