with-preview ( ..a graph quot: ( ..a path -- ..b ) -- ..b )

Vocabulary

graphviz.render.private

Inputs

graph	an object
quot	a quotation with stack effect ( ..a path -- ..b )

Outputs

None

Definition

USING: graphviz.dot io.files.temp io.files.unique kernel ;

IN: graphviz.render.private

:: with-preview
    ( ..a graph quot: ( ..a path -- ..b ) -- ..b )
    [
        "preview" ".dot" [| code-file |
            "preview" preview-extension [| image-file |
                graph code-file ?encoding write-dot
                code-file image-file try-preview-command
                image-file quot call
            ] cleanup-unique-file
        ] cleanup-unique-file
    ] with-temp-directory ; inline