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

---
-- Provides dynamic menus for Textadept.
-- This module, like ext/key_commands, should be 'require'ed last.
module('textadept.menu', package.seeall)

local t, gtkmenu = textadept, textadept.gtkmenu

t.menubar = {
  gtkmenu {
    title = '_File',
    'gtk-new',
    'gtk-open',
    '_Reload',
    'gtk-save',
    'gtk-save-as',
    'gtk-close',
    'Close A_ll',
    'separator',
    '_Load Session...',
    'Sa_ve Session...',
    'separator',
    'gtk-quit',
  },
  gtkmenu {
    title = '_Edit',
    'gtk-undo',
    'gtk-redo',
    'separator',
    'gtk-cut',
    'gtk-copy',
    'gtk-paste',
    'gtk-delete',
    'gtk-select-all',
    'separator',
    'Match _Brace',
    'Select t_o Brace',
    'Complete _Word',
    'De_lete Word',
    'Tran_spose Characters',
    'S_queeze',
    '_Move line up',
    'Mo_ve line down',
    'Convert _Indentation',
    { title = '_Kill Ring',
      '_Cut to line end',
      'C_opy to line end',
      '_Paste from ring',
      'Paste _next from ring',
      'Paste pre_v from ring',
    },
    { title = 'S_election',
      { title = 'E_xecute as...',
        '_Ruby',
        '_Lua',
      },
      { title = '_Enclose in...',
        '_HTML Tags',
        'HTML Single _Tag',
        '_Double Quotes',
        '_Single Quotes',
        '_Parentheses',
        '_Brackets',
        'B_races',
        '_Character Sequence',
      },
      '_Grow',
    },
    { title = 'Select i_n...',
      'S_tructure',
      '_HTML Tag',
      '_Double Quote',
      '_Single Quote',
      '_Parenthesis',
      '_Bracket',
      'B_race',
      '_Word',
      '_Line',
      'Para_graph',
      '_Indented Block',
      'S_cope',
    },
  },
  gtkmenu {
    title = '_Search',
    'gtk-find',
    'Find _Next',
    'Find _Prev',
    'gtk-find-and-replace',
    'Replace',
    'Replace _All',
    'separator',
    'gtk-jump-to',
  },
  gtkmenu {
    title = '_Tools',
    'Focus _Command Entry',
    { title = '_Snippets',
      '_Insert Snippet',
      '_Previous Placeholder',
      '_Cancel Snippet',
      '_List Snippets',
      '_Show Scope',
    },
    { title = '_Multiple Line Editing',
      '_Add Line',
      'Add _Multiple Lines',
      '_Remove Line',
      'R_emove Multiple Lines',
      '_Update Multiple Lines',
      '_Finished Editing',
    },
    { title = 'M_acros',
      '_Start Recording',
      'S_top Recording',
      '_Play Macro'
    },
  },
  gtkmenu {
    title = '_Buffers',
    '_Next Buffer',
    '_Prev Buffer',
    'separator',
    'Toggle View _EOL',
    'Toggle _Wrap Mode',
    'Toggle Show _Indentation Guides',
    'Toggle Use _Tabs',
    'Toggle View White_space',
    'separator',
    '_Refresh Syntax Highlighting',
  },
  gtkmenu {
    title = '_Views',
    '_Next View',
    '_Prev View',
    'separator',
    'Split _Vertical',
    'Split _Horizontal',
    '_Unsplit',
    'Unsplit _All',
    'separator',
    '_Grow View',
    '_Shrink View',
  },
  gtkmenu {
    title = '_Project Manager',
    '_Toggle PM Visible',
    '_Focus PM',
    'Show PM _Project',
    'Show PM _Ctags',
    'Show PM _Buffers',
    'Show PM _Files',
    'Show PM _Macros',
    'Show PM Mo_dules',
  },
  gtkmenu {
    title = '_Lexers',
    'actionscript', 'ada', 'antlr', 'apdl', 'applescript', 'asp', 'awk',
    'batch', 'boo', 'container', 'cpp', 'csharp', 'css', 'd', 'diff', 'django',
    'eiffel', 'erlang', 'errorlist', 'forth', 'fortran', 'gap', 'gettext',
    'gnuplot', 'groovy', 'haskell', 'html', 'idl', 'ini', 'io', 'java',
    'javascript', 'latex', 'lisp', 'lua', 'makefile', 'mysql', 'objective__c',
    'ocaml', 'pascal', 'perl', 'php', 'pike', 'postscript', 'props', 'python',
    'r', 'ragel', 'rebol', 'rexx', 'rhtml', 'ruby', 'scheme', 'shellscript',
    'smalltalk', 'tcl', 'vala', 'verilog', 'vhdl', 'visualbasic', 'xml',
  },
}

local b, v = 'buffer', 'view'
local m_snippets = _m.textadept.lsnippets
local m_editing = _m.textadept.editing
local m_mlines = _m.textadept.mlines
local m_macros = _m.textadept.macros

local function pm_activate(text) t.pm.entry_text = text t.pm.activate() end
local function toggle_setting(setting)
  local state = buffer[setting]
  if type(state) == 'boolean' then
    buffer[setting] = not state
  elseif type(state) == 'number' then
    buffer[setting] = buffer[setting] == 0 and 1 or 0
  end
  t.events.update_ui() -- for updating statusbar
end
local function set_lexer_language(lexer)
  buffer:set_lexer_language(lexer)
  buffer:colourise(0, -1)
end

local actions = {
  -- File
  New = { t.new_buffer },
  Open = { t.io.open },
  Reload = { 'reload', b },
  Save = { 'save', b },
  ['Save As'] = { 'save_as', b },
  Close = { 'close', b },
  ['Close All'] = { t.io.close_all },
  ['Load Session...'] = { t.io.load_session }, -- TODO: file open dialog prompt
  ['Save Session...'] = { t.io.save_session }, -- TODO: file save dialog prompt
  Quit = { t.quit },
  -- Edit
  Undo = { 'undo', b },
  Redo = { 'redo', b },
  Cut = { 'cut', b },
  Copy = { 'copy', b },
  Paste = { 'paste', b },
  Delete = { 'clear', b },
  ['Select All'] = { 'select_all', b },
  ['Match Brace'] = { m_editing.match_brace },
  ['Select to Brace'] = { m_editing.match_brace, 'select' },
  ['Complete Word'] = { m_editing.autocomplete_word, '%w_' },
  ['Delete Word'] = { m_editing.current_word, 'delete' },
  ['Transpose Characters'] = { m_editing.transpose_chars },
  ['Squeeze'] = { m_editing.squeeze },
  ['Join Lines'] = { m_editing.join_lines },
  ['Move line up'] = { m_editing.move_line, 'up' },
  ['Move line down'] = { m_editing.move_line, 'down' },
  ['Convert Indentation'] = { m_editing.convert_indentation },
  -- Edit -> Kill Ring
  ['Cut to line end'] = { m_editing.smart_cutcopy },
  ['Copy to line end'] = { m_editing.smart_cutcopy, 'copy' },
  ['Paste from ring'] = { m_editing.smart_paste },
  ['Paste next from ring'] = { m_editing.smart_paste, 'cycle' },
  ['Paste prev from ring'] = { m_editing.smart_paste, 'reverse' },
  -- Edit -> Selection -> Execute as...
  Ruby = { m_editing.ruby_exec },
  Lua = { m_editing.lua_exec },
  -- Edit -> Selection -> Enclose in...
  ['HTML Tags'] = { m_editing.enclose, 'tag' },
  ['HTML Single Tag'] = { m_editing.enclose, 'single_tag' },
  ['Double Quotes'] = { m_editing.enclose, 'dbl_quotes' },
  ['Single Quotes'] = { m_editing.enclose, 'sng_quotes' },
  Parentheses = { m_editing.enclose, 'parens' },
  Brackets = { m_editing.enclose, 'brackets' },
  Braces = { m_editing.enclose, 'braces' },
  ['Character Sequence'] = { m_editing.enclose, 'chars' },
  -- Edit -> Selection
  Grow = { m_editing.grow_selection, 1 },
  -- Edit -> Select In...
  Structure = { m_editing.select_enclosed },
  ['HTML Tag'] = { m_editing.select_enclosed, 'tags' },
  ['Double Quote'] = { m_editing.select_enclosed, 'dbl_quotes' },
  ['Single Quote'] = { m_editing.select_enclosed, 'sng_quotes' },
  Parenthesis = { m_editing.select_enclosed, 'parens' },
  Bracket = { m_editing.select_enclosed, 'brackets' },
  Brace = { m_editing.select_enclosed, 'braces' },
  Word = { m_editing.current_word, 'select' },
  Line = { m_editing.select_line },
  Paragraph = { m_editing.select_paragraph },
  ['Indented Block'] = { m_editing.select_indented_block },
  Scope = { m_editing.select_scope },
  -- Search
  Find = { t.find.focus },
  ['Find Next'] = { t.find.call_find_next },
  ['Find Prev'] = { t.find.call_find_prev },
  ['Find and Replace'] = { t.find.focus },
  Replace = { t.find.call_replace },
  ['Replace All'] = { t.find.call_replace_all },
  ['Jump to'] = { m_editing.goto_line },
  -- Tools
  ['Focus Command Entry'] = { t.command_entry.focus },
  -- Tools -> Snippets
  ['Insert Snippet'] = { m_snippets.insert },
  ['Previous Placeholder'] = { m_snippets.prev },
  ['Cancel Snippet'] = { m_snippets.cancel_current },
  ['List Snippets'] = { m_snippets.list },
  ['Show Scope'] = { m_snippets.show_style },
  -- Tools -> Multiple Line Editing
  ['Add Line'] = { m_mlines.add },
  ['Add Multiple Lines'] = { m_mlines.add_multiple },
  ['Remove Line'] = { m_mlines.remove },
  ['Remove Multiple Lines'] = { m_mlines.remove_multiple },
  ['Update Multiple Lines'] = { m_mlines.update },
  ['Finished Editing'] = { m_mlines.clear },
  -- Tools -> Macros
  ['Start Recording'] = { m_macros.start_recording },
  ['Stop Recording'] = { m_macros.stop_recording },
  ['Play Macro'] = { m_macros.play },
  -- Buffers
  ['Next Buffer'] = { 'goto_buffer', v, 1, false },
  ['Prev Buffer'] = { 'goto_buffer', v, -1, false },
  ['Toggle View EOL'] = { toggle_setting, 'view_eol' },
  ['Toggle Wrap Mode'] = { toggle_setting, 'wrap_mode' },
  ['Toggle Show Indentation Guides'] = { toggle_setting, 'indentation_guides' },
  ['Toggle Use Tabs'] = { toggle_setting, 'use_tabs' },
  ['Toggle View Whitespace'] = { toggle_setting, 'view_ws' },
  ['Refresh Syntax Highlighting'] = { 'colourise', b, 0, -1 },
  -- Views
  ['Next View'] = { t.goto_view, 1, false },
  ['Prev View'] = { t.goto_view, -1, false },
  ['Split Vertical'] = { 'split', v },
  ['Split Horizontal'] = { 'split', v, false },
  ['Unsplit'] = { function() view:unsplit() end },
  ['Unsplit All'] = { function() while view:unsplit() do end end },
  ['Grow View'] = {
    function() if view.size then view.size = view.size + 10 end end
  },
  ['Shrink View'] = {
    function() if view.size then view.size = view.size - 10 end end
  },
  -- Project Manager
  ['Toggle PM Visible'] = { t.pm.toggle_visible },
  ['Focus PM'] = { t.pm.focus },
  ['Show PM Project'] = { pm_activate, 'project' },
  ['Show PM Ctags'] = { pm_activate, 'ctags' },
  ['Show PM Buffers'] = { pm_activate, 'buffers' },
  ['Show PM Files'] = { pm_activate, not WIN32 and '/' or 'C:\\' },
  ['Show PM Macros'] = { pm_activate, 'macros' },
  ['Show PM Modules'] = { pm_activate, 'modules' },
}

-- Most of this handling code comes from keys.lua.
t.events.add_handler('menu_clicked',
  function(menu_item)
    local active_table = actions[menu_item] or
      { set_lexer_language, menu_item } -- anything not in actions is a lexer
    local f, args
    if active_table and #active_table > 0 then
      local func = active_table[1]
      if type(func) == 'function' then
        f, args = func, { unpack(active_table, 2) }
      elseif type(func) == 'string' then
        local object = active_table[2]
        if object == 'buffer' then
          f, args = buffer[func], { buffer, unpack(active_table, 3) }
        elseif object == 'view' then
          f, args = view[func], { view, unpack(active_table, 3) }
        end
      end
      if f and args then
        local ret, retval = pcall( f, unpack(args) )
        if not ret then textadept.events.error(retval) end -- error
      else
        error( 'Unknown command: '..tostring(func) )
      end
    end
  end)