prev-paragraph ( loc document -- loc' )


Vocabulary
documents.elements.private

Inputs
locan object
documentan object


Outputs
loc'an object


Definition
USING: accessors arrays kernel math math.order sequences ;

IN: documents.elements.private

:: prev-paragraph ( loc document -- loc' )
loc first 1 [-] document value>> [ empty? ] find-last-from
drop [ 1 + ] [ 0 ] if* :> line# loc first line# =
loc second 0 = and
[ line# 1 [-] 0 2array ] [ line# 0 2array ] if ;