def blocks

cswap-bend-cli@0.1.0.0 · tui/view.bend:146

import Base
import cswap-bend-cli@0.1.0.0/tui/fmt.bend as F
import cswap-bend-cli@0.1.0.0/tui/model.bend as M

146# The account lines in slot order. A blank line separates blocks when either
147# side is a multi-line card.
148def blocks(+as: List<&2, M.Acct>, +v: M.View, +h: M.Hdr, +now: U32, +off: U32, +prev: Bool, +first: Bool) -> List<&2, List<&2, F.Seg>>:
149  match as:
150    case Nil{}:
151      Nil{}
152    case Con{a, t}:
153      block_join(block(a, v, h, now, off), blocks(t, v, h, now, off, is_multi(block(a, v, h, now, off)), False{}), prev, first)