#import "@preview/cetz:0.3.1"

#let padding = 0.5em

#let class(
  position,
  name,
  key,
  width: auto,
  tag: none,
  fields: (),
  methods: (),
) = {
  let header-content = align(center, par(justify: false)[
    #if tag != none [
     _«#tag»_ \
    ]
    *#name*
  ])
  
  let field-content = par(justify: false, fields.join([#linebreak()]))
  let operation-content = par(justify: false, methods.join([#linebreak()]))
  let columns = if width == auto { 1 } else { (width, ) }

  let content = grid(
    columns: columns,
    inset: padding,
    header-content,
    grid.hline(),
    field-content,
    grid.hline(),
    operation-content
  )

  cetz.draw.content(
    position,
    text(bottom-edge: "baseline", content),
    name: key,
    frame: "rect",
  )
}

#let note(
  position,
  body,
  key,
  width: auto,
) = {
  let columns = if width == auto { 1 } else { (width, ) }

  let content = grid(
    columns: columns,
    inset: padding,
    par(justify: false, body),
  )

  cetz.draw.content(
    position,
    text(bottom-edge: "baseline", content),
    name: key,
    frame: "rect",
    fill: rgb(255, 255, 193),
  )

  cetz.draw.content(key + ".north-east", emoji.pin)
}

#let association(
  ..points
) = {
  cetz.draw.line(
    ..points,
    stroke: black, mark: (end: "straight", scale: 2)
  )
}

#let inheritance(
  ..points
) = {
  cetz.draw.line(
    ..points,
    stroke: black, mark: (end: ">", scale: 2)
  )
}

#let aggregation(
  ..points
) = {
  cetz.draw.line(
    ..points,
    stroke: black, mark: (start: "diamond", scale: 2)
  )
}


#let composition(
  ..points
) = {
  cetz.draw.line(
    ..points,
    stroke: black, mark: (start: "diamond", fill: black, scale: 2)
  )
}

#import "@preview/cetz:0.3.1"

#import "../../../modules/keywords.typ" as kw
#import "../../../modules/uml.typ"

#let horizontal-spread = 5
#let vertical-spread = 2.8
#let width = 9em

#figure(
  caption: [...],
  cetz.canvas({
    import cetz.draw: *  

    uml.class(
      (-horizontal-spread, 0),
      "Client",
      "client",
      width: width,
    )

    uml.class(
      (0, 0),
      "Target",
      "target",
      tag: "interface",
      methods: (
        "+ changed()",
      ),
      width: width,
    )
    
    uml.class(
      (0, -vertical-spread),
      "Adapter",
      "adapter",
      fields: (
        "- adaptee: Adaptee",
      ),
      methods: (
        "+ changed()",
      ),
      width: width,
    )

    uml.class(
      (horizontal-spread, 0),
      "Adaptee",
      "adaptee",
      methods: (
        "+ original()",
      ),
      width: width,
    )

    uml.note(
      (horizontal-spread, -vertical-spread - 0.6),
      "adaptee.original()",
      "note",
    )

    uml.association(
      "client.east",
      "target.west",
    )

    uml.inheritance(
      "adapter.north",
      "target.south",
    )

    uml.composition(
      "adapter.east",
      (horizontal-spread / 2, -vertical-spread),
      (horizontal-spread / 2, 0),
      "adaptee.west",
    )

    line(
      (0.4, -vertical-spread - 0.6),
      "note.west",
      stroke: (dash: "dashed"),
    )
  })
)