Zeus IDE

Code: Select all

--        Name: Generic Workspace
--
--      Author: Jussi Jumppanen
--
--    Language: Lua Macro
--
-- Description: This simple Lua macro is designed to create a project
--              for nothing but the current file. To use this macro
--              will require the following once of initialisation:
--
--                 1) Run the macro to create the workspace
--                 2) Use the Workspace Open menu to open the newly
--                      created Generic workspace
--
--              Once the workspace is created and is open all you need
--              do is open any file and run the macro. The macro will
--              recreate the workspace and upfate the class browser to
--              reflect the current file only.

function create_project_workspace(filename)
    -- open the workspace file
    file_workspace = io.open("c:\\temp\\generic.zwi", "w+")

    if file_workspace ~= nil then
        -- create the workspace file
        file_workspace:write("<workspace name=\"Generic\">\n"                        )
        file_workspace:write("    <mode></mode>\n"                                   )
        file_workspace:write("    <active>Generic</active>\n"                        )
        file_workspace:write("    <project name=\"Generic\">c:\\temp\\generic.zpi</project>\n")
        file_workspace:write("</workspace>\n"                                        )
        file_workspace:close()

        -- open the project file
        file_project = io.open("c:\\temp\\generic.zpi", "w+")

        if file_project ~= nil then
            -- create the project file
            file_project:write("<!-- Generic project file for the Zeus for Windows editor.-->\n")
            file_project:write("<project name=\"Generic\">\n"                           )
            -- add the file to the workspace here
            file_project:write("    <file>" .. filename .. "</file>\n"                  )
            file_project:write("</project>\n"                                           )
            file_project:close()
        else
            -- failed to create file
            message_box(1, "Error creating the 'c:\\temp\\generic.zpi' file")
        end

    else
        -- failed to create file
        message_box(1, "Error creating the 'c:\\temp\\generic.zwi' file")
    end
end


function key_macro()
  -- This macro will only work for document windows.
  local document = is_document ()

  if (document == 0) then
     message("This macro only works for document files!")
     beep()
     return 1
  end

  -- get the current text details
  local filename = macro_tag("$fn")

  --
  -- NOTE: Read the special initialistion section in the macro header
  --

  -- close the generic workspace
  WorkspaceClose()

  -- create an empty workspace
  create_project_workspace(filename)

  -- reload the newly generic workspace
  WorkspaceReload01()

end

key_macro()