Rebol Programming/editor

= USAGE: = EDITOR file /app app-word

= DESCRIPTION: =

(undocumented)

EDITOR is a function value. = ARGUMENTS =
 * file -- (Type: any)

= REFINEMENTS =
 * /app
 * app-word -- (Type: any)

= SOURCE CODE = editor: func [file /app app-word /local tmp][ either link? [       if block? ctx-edit [ ctx-edit: context either all [ value? 'fileset-files? tmp: fileset-files? 'desktop find tmp %desktop/edit.r                tmp: load/header link-root/desktop/edit.r            ] [next tmp] [ctx-edit] ]        either app [ctx-edit/view-file/app file app-word] [ctx-edit/view-file file] ] [       either exists? tmp: view-root/desktop/scripts/edit.r [do/args tmp file] [ if block? ctx-edit [ctx-edit: context ctx-edit] ctx-edit/view-file file ]   ] ]