VoodooPad: OPML Export Plugin

Version: 5

Make sure to check out the new wiki located at http://flyingmeat.com/wikka/. This one will eventually be retired.

OPML Export Plugin

Here's the code for the start of a lua script to export the contents of the document into OPML. It's pretty bare.

NSFileHandlingPanelOKButton = 1
savePanel = objc.class("NSSavePanel"):savePanel()
savePanel:setTitle("Save the OPML file")
response = savePanel:runModalForDirectory_file_(nil, document: displayName() .. ".opml")
if response == NSFileHandlingPanelOKButton then
    filename = savePanel:filename()
    output = '<opml version="1.0"><head></head><body>'
    for key in objc.values(document:keys()) do
        page = document:vpDataForKey(key)
        if page:type() == "page" then
            pageString = page:dataAsAttributedString():string()
            -- this stuff should be in a function
            pageString = pageString:replace("&", "&amp;")
            pageString = pageString:replace("<", "&lt;")
            pageString = pageString:replace(">", "&gt;")
            pageString = pageString:replace("\"", "&quot;")
            pageString = '<outline text="' .. pageString .. '" />'
            output = output .. pageString .. "\n"
        end
    end
    output = output .. '</body>'
    fd = io.open(filename, "w")
    fd:write(output)
    fd:close()
    vpconsole("all done")
end