2 files changed, 46 insertions, 1 deletions
diff --git a/core/ext/pm.lua b/core/ext/pm.lua
index 82274066..b783fd1c 100644
--- a/core/ext/pm.lua
+++ b/core/ext/pm.lua
@@ -4,7 +4,9 @@
 -- Browsers loaded by the project manager.
 -- @class table
 -- @name browsers
-local browsers = { 'buffer_browser', 'file_browser', 'ctags_browser' }
+local browsers = {
+  'buffer_browser', 'file_browser', 'ctags_browser', 'macro_browser'
+}
 for _, b in ipairs(browsers) do require('ext/pm.'..b) end
 
 local pm = textadept.pm
diff --git a/core/ext/pm/macro_browser.lua b/core/ext/pm/macro_browser.lua
new file mode 100644
index 00000000..237aa9fb
--- /dev/null
+++ b/core/ext/pm/macro_browser.lua
@@ -0,0 +1,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_function_to_handler = textadept.handlers.add_function_to_handler
+local function update_view()
+  if matches(textadept.pm.entry_text) then textadept.pm.activate() end
+end
+add_function_to_handler('macro_saved', update_view)
+add_function_to_handler('macro_deleted', update_view)