core/ext/pm/macro_browser.lua


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

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

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

local textadept = textadept

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

function get_contents_for()
  local m_macros = _m.textadept.macros
  local contents = {}
  for name in pairs(m_macros.list) do contents[name] = { text = name } end
  return contents
end

function perform_action(selected_item)
  _m.textadept.macros.play( selected_item[2] )
  view:focus()
end

function get_context_menu(selected_item)
  return { '_Delete' }
end

function perform_menu_action(menu_item, selected_item)
  local m_macros = _m.textadept.macros
  if menu_item == 'Delete' then
    m_macros.delete( selected_item[2] )
  end
  textadept.pm.activate()
end

local add_handler_function = textadept.handlers.add_handler_function
local function update_view()
  if matches(textadept.pm.entry_text) then textadept.pm.activate() end
end
add_handler_function('macro_saved', update_view)
add_handler_function('macro_deleted', update_view)