(*
http://veritrope.com
Single Headline or Tab -- NNW to Evernote
Version 1.2
August 09, 2009

Project Status, Latest Updates, and Comments Collected at:
http://veritrope.com/tips/netnewswire-to-evernote-single-headline-or-tab-export-applescript

    Some choices inspired by the following scripts/authors:
    -- Ernie Soffronoff
    -- Daniel N. Byler's DEVONthink script
    -- NetNewsWire To Pukka and Yojimbo
    -- Jan Erik Mostrom's script
    -- David Nunez scripts
    -- MANY, MANY OTHERS!

Installation: Just drop it into the NetNewsWire Script Folder!

FastScripts Installation (Optional, but recommended):
--Download and Install FastScripts from http://www.red-sweater.com/fastscripts/index.html
--Copy script or an Alias to ~/Library/Scripts/Applications/NetNewsWire
--Set up your keyboard shortcut

CHANGELOG:
1.20     WORK-AROUND FOR MISSING (DESCRIPTION OF SELECTEDHEADLINE) ELEMENT
1.10     STREAMLINING (DEFAULT NOTEBOOK OPTION, CODE CONSOLIDATION) AND VARIOUS COSMETIC IMPROVEMENTS
1.01    ADDED "SOURCE URL" FUNCTIONALITY
1.00    INITIAL RELEASE
*)
property NNWTitle : ""
property NNWTag : ""
property NNWBody : ""
property EVnotebook : ""
property selHeadline : ""
(* CHECK FOR GROWL *)
tell application "System Events"
    set processnames to name of every process
end tell
if "GrowlHelperApp" is in processnames then
    tell application "GrowlHelperApp"
        set the allNotificationsList to {"Success Notification", "Failure Notification"}
        set the enabledNotificationsList to {"Success Notification", "Failure Notification"}
        register as application ¬
            "NetNewsWire to Evernote" all notifications allNotificationsList ¬
            default notifications enabledNotificationsList ¬
            icon of application "Evernote"
    end tell
end if

(*MAIN PROGRAM *)
tell application "NetNewsWire"
    activate
    try --IS IT A TAB OR A HEADLINE?
        if (index of selected tab is not 0) then --IT'S A TAB!
            set urlsList to URLs of tabs
            set ixCurrentTab to index of selected tab
            set titleList to titles of tabs
            my TagandBag(EVnotebook)
            tell application "Evernote" -- CREATE THE NOTE FROM TAB
                try
                    if EVnotebook is not "" then
                        create note from url (item (ixCurrentTab + 1) of urlsList) ¬
                            title (item (ixCurrentTab + 1) of titleList) ¬
                            tags NNWTag ¬
                            notebook EVnotebook
                    else
                        create note from url (item (ixCurrentTab + 1) of urlsList) ¬
                            title (item (ixCurrentTab + 1) of titleList) ¬
                            tags NNWTag
                    end if
                end try
            end tell

            if "GrowlHelperApp" is in processnames then -- GROWL SUCCESS
                tell application "GrowlHelperApp"
                    notify with name ¬
                        "Success Notification" title ¬
                        "Import Success" description ¬
                        "Successfully exported "" & (item (ixCurrentTab + 1) of titleList) & ¬
                        "" to Evernote" application name "NetNewsWire to Evernote"
                end tell
            end if
        else if exists selectedHeadline then --IT'S A HEADLINE!
            set selHeadline to selectedHeadline
            set NNWURL to (URL of selectedHeadline)
            set NNWTitle to (title of selectedHeadline)
            try -- HACK FOR MISSING BODY TEXT IN SOME ITEMS!
                if (description of selectedHeadline) exists then
                    set NNWBody to (description of selectedHeadline)
                else
                    set NNWBody to (summary of selectedHeadline)
                end if
            end try

            my TagandBag(EVnotebook)
            tell application "Evernote" -- CREATE THE NOTE FROM HEADLINE
                try
                    if EVnotebook is not "" then
                        set n to create note with html NNWBody title NNWTitle notebook EVnotebook tags NNWTag
                        set source URL of n to NNWURL
                    else
                        set n to create note with html NNWBody title NNWTitle tags NNWTag
                        set source URL of n to NNWURL
                    end if
                end try
            end tell
            if "GrowlHelperApp" is in processnames then
                tell application "GrowlHelperApp" -- GROWL SUCCESS
                    notify with name ¬
                        "Success Notification" title ¬
                        "Import Success" description "Successfully exported "" & NNWTitle & ¬
                        "" to Evernote" application name "NetNewsWire to Evernote"
                end tell
            end if
        else
            if "GrowlHelperApp" is in processnames then
                tell application "GrowlHelperApp" -- GROWL FAILURE FOR NO SELECTION
                    notify with name ¬
                        "Failure Notification" title ¬
                        "Import Failure" description ¬
                        "No headline or tab selected!" application name "NetNewsWire to Evernote"
                end tell
            else if "GrowlHelperApp" is not in processnames then -- NON-GROWL ERROR MSG. FOR NO SELECTION
                display dialog "No headline or tab selected!" with icon 0
            end if
        end if

        (* ERROR HANDLING *)
    on error errText number errNum
        if "GrowlHelperApp" is in processnames then
            tell application "GrowlHelperApp" -- GROWL FAILURE FOR ERROR
                notify with name ¬
                    "Failure Notification" title ¬
                    "Import Failure" description "Failed to export " & return & NNWTitle & ¬
                    ""  due to the following error: " & return & errText ¬
                    application name "NetNewsWire to Evernote"
            end tell
        else if "GrowlHelperApp" is not in processnames then -- NON-GROWL ERROR MSG. FOR ERROR
            display dialog "Item Failed to Import: " & errNum & return & errText with icon 0
        end if
    end try
end tell
tell application "NetNewsWire"
    activate
end tell

(* SUBROUTINES *)
--"TAGGING AND BAGGING" SUBROUTINE
on TagandBag(EVnotebook)
    tell application "NetNewsWire"
        set defaultTag to (display name of selectedSubscription) --DEFAULT TAG IS SELECTED SUBSCRIPTION NAME/FOLDER
        display dialog "" & ¬
            "NOTE: Default Tag is the highlighted subscription folder." with title "Enter Your Tags (separated by colons or commas)" default answer defaultTag buttons {"Create in Default Notebook", "Select Notebook from List", "Cancel"} default button "Create in Default Notebook" cancel button ¬
            "Cancel" with icon path to resource "Evernote.icns" in bundle (path to application "Evernote")
        set dialogresult to the result
        set tagText to text returned of dialogresult
        set ButtonSel to button returned of dialogresult
        set theDelims to {":", ","}
        set NNWTag to my Tag_List(tagText, theDelims)
        if ButtonSel is "Select Notebook from List" then set EVnotebook to my Notebook_List()
    end tell
end TagandBag

--TAG SELECTION SUBROUTINE
on Tag_List(tagText, theDelims)
    set oldDelims to AppleScript's text item delimiters
    set theList to {tagText}
    repeat with aDelim in theDelims
        set AppleScript's text item delimiters to aDelim
        set newList to {}
        repeat with anItem in theList
            set newList to newList & text items of anItem
        end repeat
        set theList to newList
    end repeat
    return theList
    set AppleScript's text item delimiters to oldDelims
end Tag_List

--EVERNOTE NOTEBOOK SELECTION SUBROUTINE
on Notebook_List()
    tell application "Evernote"
        activate
        set listOfNotebooks to {} (*PREPARE TO GET EVERNOTE'S LIST OF NOTEBOOKS *)
        set EVNotebooks to every notebook (*GET THE NOTEBOOK LIST *)
        repeat with currentNotebook in EVNotebooks
            set currentNotebookName to (the name of currentNotebook)
            copy currentNotebookName to the end of listOfNotebooks
        end repeat
        set Folders_sorted to my simple_sort(listOfNotebooks) (*SORT THE LIST *)
        set SelNotebook to choose from list of Folders_sorted with title "Select Evernote Notebook" with prompt ¬
            "Current Evernote Notebooks" OK button name "OK" cancel button name "New Notebook" (*USER SELECTION FROM NOTEBOOK LIST *)
        if (SelNotebook is false) then (*CREATE NEW NOTEBOOK OPTION *)
            set userInput to ¬
                text returned of (display dialog "Enter New Notebook Name:" default answer "")
            set EVnotebook to userInput
        else
            set EVnotebook to item 1 of SelNotebook
        end if
    end tell
end Notebook_List

--SORT SUBROUTINE
on simple_sort(my_list)
    set the index_list to {}
    set the sorted_list to {}
    repeat (the number of items in my_list) times
        set the low_item to ""
        repeat with i from 1 to (number of items in my_list)
            if i is not in the index_list then
                set this_item to item i of my_list as text
                if the low_item is "" then
                    set the low_item to this_item
                    set the low_item_index to i
                else if this_item comes before the low_item then
                    set the low_item to this_item
                    set the low_item_index to i
                end if
            end if
        end repeat
        set the end of sorted_list to the low_item
        set the end of the index_list to the low_item_index
    end repeat
    return the sorted_list
end simple_sort