Mon premier script

Je viens d'écrire mon premier script AppleScript.

J'utilise NetNewsWire comme aggrégateur de news. Lorsque je lis les news sans connexion internet j'ajoute les liens dans un fichier OmniOutliner.

Il est assez fastidieux de devoir faire des copier/coller d'une application dans une autre.

J'ai donc écrit le script suivant (en copiant beaucoup de scripts existants) afin d'ajouter un lien automatiquement dans mon fichier OmniOutliner. Le script prend l'URL de la selection courante dans NetNewsWire et l'ajoute dans le fichier.

Le script correspond à  mes besoins, vous devrez surement le modifier pour qu'il vous soit utile. Le script est très simple et peut sà»rement être beaucoup mieux fait

Le code:

(*
 * Much of this AppleScript has been shamelessly '"borrowed'" from OmniGroup's sample scripts you can find on their website 
 * especially the one called Move Completed Items
 * It is also based on NetNewsWire bundled script 
 * The rest written by Arnaud Limbourg <arnaud@limbourg.com> 
 *)
set theFile to "todo.ooutline"

tell application "NetNewsWire"
    set s to (URL of selectedHeadline)
end tell

(* Add the URL to the todo OmniOutliner document *)
tell application "OmniOutliner"

    tell application "Finder"
        if exists file named theFile of folder "Documents" of folder "arnaud" of folder "Users" of startup disk then
            open file named theFile of folder "Documents" of folder "arnaud" of folder "Users" of startup disk
        end if
    end tell

    if (exists document named theFile) then
        set todoDoc to document named theFile
    else
        set todoDoc to make new document at beginning of documents
    end if

    set newRow to make new row at end of rows of todoDoc
    set topic of newRow to s
    indent newRow
end tell

tell application "NetNewsWire"
    activate
end tell