copy-to-nv.applescript

tell application "System Events"  
set w1 to the name of first application process whose frontmost is true  
    tell w1  
        tell application "System Events"  
            key code 0 using command down  
            key code 8 using command down  
            set bodytext to the clipboard  
            set the clipboard to bodytext as string  
            tell application "Notational Velocity"  
                activate  
                tell application "System Events"  
                    key code 9 using {command down, shift down}  
                end tell  
            end tell  
        end tell  
    end tell  
end tell  
tell application "Notational Velocity"  
    set newnote to display dialog "Create a NV note" default answer ""  
    set newnote to text returned of newnote  
    tell application "Finder" to set the clipboard to newnote as text  
    tell application "Notational Velocity"  
        activate  
        tell application "System Events"  
        key code 15 using command down  
            tell application "Notational Velocity"  
                activate  
                tell application "System Events"  
                    key code 9 using command down  
                    key code 36  
                    key code 36  
                    key code 36  
                    key code 36  
                end tell  
            end tell  
            end tell  
    end tell  
end tell