Delicious, Spotlight and OpenMeta tags, revisited

-- CONFIG
-- delicious username
property _user : "username"
-- delicious password
property _pass : "password"
-- POSIX path to *existing* folder, manually create the folder if needed or point to one that does exist
property targetFolder : "/Users/OSXUSERNAME/Library/Caches/Metadata/Delicious"
-- use Tags.app to apply OpenMeta tags based on Delicious tags
property useTagsApp : true
-- add thumbnails using http://hasseg.org/setWeblocThumb/
property useWebLocThumb : true
-- END CONFIG

#!/usr/bin/osascript
-- CONFIG
-- delicious username
property _user : "username"
-- delicious password
property _pass : "password"
-- POSIX path to *existing* folder, manually create the folder if needed or point to one that does exist
property targetFolder : "/Users/OSXUSERNAME/Library/Caches/Metadata/Delicious"
-- use Tags.app to apply OpenMeta tags based on Delicious tags
property useTagsApp : true
-- add thumbnails using http://hasseg.org/setWeblocThumb/
property useWebLocThumb : true
-- END CONFIG

set _date to do shell script "date -v+4H '+%Y-%m-%dT%H:%M:%SZ'"
-- returns a date 1 hour ago (CST) in the format required by the twitter API.
-- you can adjust the date based on your time zone and the frequency that you run
-- the script by editing the -v+4H part of the date command (e.g. -v-1H for GMT - 1 hour)
-- Note that the Delicious dates run on GMT, so you have to account for your time offset
-- For me (CST), this means -v+4H if I want to go back one hour
try
    set _fromdt to do shell script "defaults read com.brettterpstra.getdelicious fromdt"
    -- if the last update time is stored in defaults, use it
on error
    set _fromdt to _date
    -- otherwise, use the date we just set
end try

set bookmarks to do shell script "curl -A \"OpenMetaTagger/1.1\" https://" & _user & ":" & _pass & "@api.del.icio.us/v1/posts/all?fromdt=" & _fromdt

-- gets the bookmarks starting with the date specified in _date
set _folder to POSIX file targetFolder as alias
-- turns the POSIX path in CONFIG into an AppleScript alias
set _output to ""

tell application "System Events"
    set xmlDocument to make new XML data with data bookmarks
    -- set xmlDocument to contents of XML file "Users:ttscoff:Desktop:deliciousbookmarks.xml"
    -- create the XML object
    set {astid, AppleScript's text item delimiters} to {AppleScript's text item delimiters, " "}
    -- store the current delimiter and set the new one to a space for breaking up the tags
    repeat with _post in XML elements of XML element 1 of xmlDocument
        set _url to value of XML attribute "href" of _post as string
        set _tags to text items of (value of XML attribute "tag" of _post as string)
        set end of _tags to "delicious"
        set _name to value of XML attribute "description" of _post as string
        set _title to do shell script "echo \"" & _name & "\"" & "|tr -cs /[^A-Za-z]/ ' '"
        -- strips some bad characters from the page title, solves some errors
        set _date to value of XML attribute "time" of _post as string
        try
            tell application "Finder"
                set AppleScript's text item delimiters to ""
                if not exists alias ((_folder & _title as string) & ".webloc") then
                    set webloc to make new internet location file at _folder to _url with properties {name:_title}
                    -- makes a .webloc file in our target folder
                    set _output to _output & "Grabbed " & _title
                    set AppleScript's text item delimiters to " "
                    if useTagsApp then
                        tell application "Tags" to apply tags _tags to files {POSIX path of (webloc as string)}
                        -- adds OpenMeta tags to our newly created file
                        set _output to _output & " and tagged with " & _tags as string
                    end if
                    if useWebLocThumb then
                        do shell script "/usr/local/bin/setWeblocThumb " & quoted form of (POSIX path of (webloc as string))
                        -- use setWeblocThumb to add a thumbnail to our webloc file
                        -- http://hasseg.org/setWeblocThumb/
                        set _output to _output & ", applied thumbnail"
                    end if
                    set _output to _output & "." & return
                end if
            end tell
        on error myError
            set _output to _output & "Error " & myError & return
        end try
        set {_url,_title,_tags,_name,_time} to {null,null,null,null,null}
    end repeat
    set AppleScript's text item delimiters to astid
    -- restore the delimiters
end tell
do shell script "defaults write com.brettterpstra.getdelicious fromdt " & _date
-- store the date of the last bookmark in system defaults
return _output