def boxes

near-v-framework@0.4.0.0 · domain/architecture/view/ops.bend:65

import Base
import near-v-framework@0.4.0.0/general/rose/type.bend as R
import near-v-framework@0.4.0.0/domain/architecture/type.bend as A

65# D2 names are the keys, prefixed so none is a D2 keyword (like near).
66def boxes(ks: List<&2, String>, +prefix: String, +focus: Bool, +rs: List<&2, R.Rose<A.Element>>) -> String:
67  match ks:
68    case []:
69      ""
70    case +k <> rest:
71      box(prefix ++ "e_" ++ k, element(k, rs), focus) ++ boxes(rest, prefix, focus, rs)