Automator Service - Add to Reading List - lax version

add2readinglist.scpt

--
-- Automator Service - Add to Reading List - lax version
-- 
-- http://warmfuzzyapps.com/2011/07/add-to-reading-list-lax-version/
-- Wiley Wimberly <wiley@warmfuzzyapps.com>
--
-- The default service that adds links to Safari's Reading List is a
-- bit on the strict side when deciding what constitutes a URL and it
-- doesn't work well for adding shortened URLs from apps like twitter.
-- This version is more tolerant and will prepend http:// if the  
-- selected text does not already start with http:// or https://.
--
-- Service receives selected text in any application.

on run {input, parameters}

    set theItem to item 1 of input

    if theItem starts with "http://" or theItem starts with "https://" then
        set theUrl to theItem	
    else
        set theUrl to "http://" & theItem
    end if

    tell application "Safari"
        add reading list item theUrl
    end tell

    return theUrl

end run

Turns out OSX supports this natively

Well, not anymore