glaze_basecoat

//// Basecoat documentation: <https://basecoatui.com/components/radio-group/>
////
//// Radio group helpers for mutually exclusive choices.
////
//// Use [`group`](#group) to render a `fieldset` of radio options.
////
//// ## Recipe
////
//// ```gleam
//// import glaze/basecoat/radio_group
//// import lustre/attribute
////
//// fn notification_preference() {
////   radio_group.group("notifications", [
////     radio_group.item("all", "All new messages", False),
////     radio_group.item("direct", "Direct messages only", True),
////     radio_group.item("none", "Nothing", False),
////   ], [])
//// }
//// ```
////

import glaze/basecoat/internal/listx
import gleam/list
import lustre/attribute.{type Attribute}
import lustre/element.{type Element}
import lustre/element/html

pub fn group(
  name: String,
  items: List(#(String, String, Bool)),
  attrs: List(Attribute(msg)),
) -> Element(msg) {
  let options =
    items
    |> list.map(fn(item) {
      let #(value, label, checked) = item
      item_(name, value, label, checked, [])
    })

  html.fieldset([attribute.class("grid gap-3"), ..attrs], options)
}

pub fn item(
  name: String,
  value: String,
  label_text: String,
  checked: Bool,
  attrs: List(Attribute(msg)),
) -> Element(msg) {
  item_(name, value, label_text, checked, attrs)
}

fn item_(
  name: String,
  value: String,
  label_text: String,
  checked: Bool,
  attrs: List(Attribute(msg)),
) -> Element(msg) {
  let checked_attr = case checked {
    True -> [attribute.checked(True)]
    False -> []
  }

  html.label([attribute.class("label")], [
    html.input(listx.append3(
      [
        attribute.type_("radio"),
        attribute.name(name),
        attribute.value(value),
        attribute.class("input"),
      ],
      checked_attr,
      attrs,
    )),
    html.text(label_text),
  ])
}

pub fn radio(
  name: String,
  value: String,
  attrs: List(Attribute(msg)),
) -> Element(msg) {
  html.input([
    attribute.type_("radio"),
    attribute.name(name),
    attribute.value(value),
    attribute.class("input"),
    ..attrs
  ])
}

pub fn checked() -> Attribute(msg) {
  attribute.checked(True)
}

pub fn disabled() -> Attribute(msg) {
  attribute.disabled(True)
}

pub fn invalid() -> Attribute(msg) {
  attribute.aria_invalid("true")
}