KMeleonWiki > Resources > MacroLibrary > del.icio.us luamacros

Submitted by: rstlne

Notes:

Macros for posting a bookmark to del.icio.us, a social bookmarks manager. The title and url are taken from the current page and the form for posting to del.icio.us will open up in a new window or tab or layer.

Hit F12 to post to del.icio.us.
Hit Shift-F12 to set the del.icio.us user name.
F12 will also prompt you for the del.icio.us user name if you haven't previously set one up.

This is a luamacros version of the original del.icio.us macros. The luamacros plugin is required. This plugin can be found in K-MeleonCCF 0.04 Beta3 and later.

The main advantages to using this luamacros version are:

• Lua code is easier to read and maintain.
• The code should be able to handle weird characters in the web page title and URL better.

Save as delicious.lua:

do

-- Lua Macros for bookmarking a page with del.icio.us

    local depref = "kmeleon.general.deliciousUser"

    local function EE(str)
        return encode(EncodeUTF8(str))
    end

    local function GotoNew?(hwnd, url)
        NavigateTo?(url, OPEN_NEW, hwnd)
    end

    function SetDelicious?(hwnd)
        local username = prompt(hwnd, "Set del.icio.us username to: ",
            "del.icio.us setup") or ""
        if username ~= "" then
            setpref(TYPE_STRING, depref, username)
        end
        return username
    end

    local function RunDelicious?(hwnd, username)
        local title, url = GetDocInfo?(hwnd)
        url = url or ""
        if title  nil or title  "" then
            title = url
        end
        GotoNew?(hwnd, "http://del.icio.us/" .. EE(username) .. 
            "?v=3&jump=bookmarks&url=" .. EE(url) .. "&title=" .. EE(title))
    end

    function Delicious(hwnd)
        local username = getpref(TYPE_STRING, depref) or ""
        if username == "" then
            username = SetDelicious?(hwnd)
        end
        if username ~= "" then
            RunDelicious?(hwnd, username)
        end
    end

end

In macros.lua:

require "copyaslink"
require "google"
require "multiclip"
require "groups"
require "search"
require "search_add"

require "delicious"

In Accelerators:

# - del.icio.us hotkeys -

%ifplugin luamacros
VK_F12 = luamacros(Delicious)
SHIFT VK_F12 = luamacros(SetDelicious?)
%endif

# - End del.icio.us hotkeys -

Comments & Questions