Code: Select all
--
-- Name: file_insert
--
-- Author: Jussi Jumppanen
--
-- Language: Lua Macro
--
-- Description: A simple Lua macro that inserts the user selected file
-- at the current cursor location. This macro should only
-- be used for relatively small (ie < 100 kBytes) files.
--
function file_insert()
-- macro only works for documents
if is_document() == 0 then
message("This macro only works for document files!")
beep()
return
end
-- macro only works for read/write documents
if is_read_only() == 1 then
message("The current document is marked as read only!")
beep()
return
end
-- the starting directory
local dir = macro_tag("$FDD")
-- build up a file filter string
local cpp_files = "C/C++ files (*.cpp;*.c;*.hpp;*.h)|*.cpp;*.c;*.hpp;*.h|"
local txt_files = "Text Files (*.txt)|*.txt|"
local filter = cpp_files .. txt_files
-- display the file select dialog using the filter
local file_name = file_select_dialog(dir, filter)
if string.len(file_name) > 0 then
screen_update_disable()
-- save the current cursor location
cursor_save()
-- open the file selected for text reading mode
local file_in = io.open(file_name, "r+t")
if file_in ~= nil then
local result = ""
-- read the file into a local variable
for line in file_in:lines() do
-- add the line to the results buffer
result = result .. line .. "\r\n"
end
-- insert the text into the file (without smart indent)
write(result, false)
-- close the input file
file_in:close()
-- operation complete
message("Inserted '" .. file_name .. "' file.")
else
-- display an error message
message("Error opening '" .. file_name .. "' file.")
beep()
end
-- restore original cursor location
cursor_restore()
-- update the screen
screen_update_enable()
screen_update()
end
end
file_insert() -- run the macro