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' )
    "@2x" over subseq? [ "." split1-last "@2x." glue ] unless ;