A Digital Workflow for Academic Research
Tools for Knowledge and Knowledge for Tools

--2011-03-11
    --http://organognosi.blogspot.com
 
    --Works with AutoBookmark 3.7
 
    tell application "BibDesk"
        set these_items to the selection of document 1
        if these_items is {} then error "Please select some contents."
 
        repeat with this_item in these_items
            set DevonThinkLink to the linked URL 1 of this_item
            set PDfTitle to the value of the field "Title" of this_item
            set keywords of this_item to keywords of this_item & "," & " title link"
            set DictionaryLinkEntry to PDfTitle & tab & "uri:" & DevonThinkLink & "
    "
            tell application "TextMate"
                activate
                insert DictionaryLinkEntry
            end tell
        end repeat
    end tell

--2011-03-11
    --http://organognosi.blogspot.com
 
    --Works with AutoBookmark 3.7
 
    tell application "BibDesk"
        set these_items to the selection of document 1
        if these_items is {} then error "Please select some contents."
 
        repeat with this_item in these_items
            set DevonThinkLink to the linked URL 1 of this_item
            set PDfTitle to the value of the field "Title" of this_item
            set keywords of this_item to keywords of this_item & "," & " title link"
            set DictionaryLinkEntry to PDfTitle & tab & "uri:" & DevonThinkLink & "
    "
            tell application "TextMate"
                activate
                insert DictionaryLinkEntry
            end tell
        end repeat
    end tell

--2011-03-11
    --http://organognosi.blogspot.com
 
tell application "BibDesk"
    set these_items to the selection of document 1
    if these_items is {} then error "Please select some contents."
 
    repeat with this_item in these_items
        try
            set AuthorLink to the last name of the first author of this_item
            set firstNameLink to the first name of the first author of this_item
            set AbbrNormName to abbreviated normalized name of the first author of this_item
 
            set YearLink to the publication year of this_item
            set DevonThinkLink1 to the linked URL 1 of this_item
            set DictionaryLinkEntry to AuthorLink & " " & YearLink & tab & "uri:" & DevonThinkLink1 & "
"
            set DictionaryLinkEntry2 to AuthorLink & " (" & YearLink & tab & "uri:" & DevonThinkLink1 & "
"
            set DictionaryLinkEntry3 to AuthorLink & " [" & YearLink & tab & "uri:" & DevonThinkLink1 & "
"
            set DictionaryLinkEntry4 to AuthorLink & ", " & firstNameLink & " (" & YearLink & tab & "uri:" & DevonThinkLink1 & "
"
            set DictionaryLinkEntry5 to AbbrNormName & " " & YearLink & tab & "uri:" & DevonThinkLink1 & "
"
            set DictionaryLinkEntry6 to AbbrNormName & " (" & YearLink & tab & "uri:" & DevonThinkLink1 & "
"
 
            tell application "TextMate"
                activate
                insert DictionaryLinkEntry
                insert DictionaryLinkEntry2
                insert DictionaryLinkEntry3
                insert DictionaryLinkEntry4
                insert DictionaryLinkEntry5
                insert DictionaryLinkEntry6
            end tell
        end try
    end repeat
end tell