(find-entry-url) ( url zim -- entry/f )

Vocabulary

zim

Inputs

url	an object
zim	an object

Outputs

entry/f

an object

Definition

USING: accessors kernel sequences ;

IN: zim

:: (find-entry-url) ( url zim -- entry/f )
    zim header>> entry-count>> <iota>
    [ zim read-entry-index url over url>> = [ drop f ] unless ]
    map-find drop ;