retina-image ( path -- path' )


Vocabulary
help.html

Inputs
pathan 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
;