Sync note pane continiously to external editor

This script syncs Mori's note pane continiously with TextEdit. An obvious modification should work with any scriptable text editor (textmate, bbedit, etc...) Be warned though its an infinite loop. You should probably run it from somewhere where you can kill it. ALthough I think closing the document generated in TextEdit should kick it out.

tell application "Mori"
tell application "TextEdit"
activate
set D to make new document
end tell

tell front document
repeat
set e to current entry
set e_text to note of e
tell application "TextEdit"
set name of D to name of e
set text of D to e_text
end tell
repeat while current entry is e
set note of e to text of D
end repeat
end repeat
end tell
end tell