can-match-here? ( matcher rule -- ? )

Vocabulary

xmode.marker

Inputs

matcher	an object
rule	an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel math
namespaces xmode.marker.state xmode.utilities ;

IN: xmode.marker

: can-match-here? ( matcher rule -- ? )
    match-position {
        [ over ]
        [ over at-line-start?>> over zero? implies ]
        [
            over at-whitespace-end?>> over whitespace-end get =
            implies
        ]
        [ over at-word-start?>> over last-offset get = implies ]
    } 0&& 2nip ;