run-and-wait-for-editor ( command -- )

Vocabulary

editors

Inputs

command

an object

Outputs

None

Definition

USING: accessors calendar io.launcher kernel sequences threads ;

IN: editors

: run-and-wait-for-editor ( command -- )
    <process> swap >>command editor-detached? >>detached
    editor-is-child? [ +new-group+ >>group ] unless
    run-process 300 milliseconds sleep dup status>>
    { 0 f } member? [ drop ] [ process-failed ] if ;