Colored block for theorems in Typst

colored_block.typ

#let theoremblock(title: [Theorem:], color: green, radius: (top-right: 2pt, bottom-right: 2pt), ..args, body) = {
  // The top-title block needs only the 
  let tr = radius.at(
    default: radius.at(
      default: radius.at(
        default: 0pt,
        "right"
      ),
      "top"
    ),
    "top-right"
  )
  let tl = radius.at(
    default: radius.at(
      default: radius.at(
        default: 0pt,
        "top"
      ),
      "left"
    ),
    "top-left"
  )
  block(
    breakable: false,
    stack(dir: ttb,
      block(
        width: 100%,
        fill: color.lighten(60%),
        inset: (x: 2pt, y: 3pt),
        stroke: (left: 1pt+color.lighten(30%)),
        radius: (
          top-right: tr,
          top-left: tl
        ),
        text(color.darken(40%), weight: "bold", title)
      ),
      block(
        width: 100%,
        fill: color.lighten(90%),
        inset: (left: 3%, y: 10%, right: 2%),
        stroke: (left: 1pt+color.lighten(30%)),
        radius: radius,
        ..args,
        body
      )
    )
  )
}