preview-extension ( -- extension )

Vocabulary

graphviz.render.private

Inputs

None

Outputs

extension

an object

Definition

USING: assocs graphviz.render images.loader.private kernel
namespaces sequences unicode ;

IN: graphviz.render.private

: preview-extension ( -- extension )
    preview-format get-global >lower dup "jpe" =
    [ drop "jpg" ] when dup types get key?
    [ "." prepend ] [ unsupported-preview-format ] if ;