builder-duration ( builder -- string )

Vocabulary

webapps.mason.downloads

Inputs

builder

an object

Outputs

string

an object

Definition

USING: accessors calendar calendar.format kernel math.order ;

IN: webapps.mason.downloads

:: builder-duration ( builder -- string )
    builder start-timestamp>> :> start builder last-timestamp>>
    :> end start [
        end [ end start before? [ now ] [ end ] if ] [ now ] if
        start time- duration>hms
    ] [ "—" ] if ;