retina-image ( path -- path' )

Vocabulary

help.html

Inputs

path

an object

Outputs

path'

an object

Definition

USING: kernel sequences splitting ;

IN: help.html

: retina-image ( path -- path' )
    dup "@2x" subseq-of? [ "." split1-last "@2x." glue ] unless
    ;