Source file tabs.ml

open! Core
open! Import
module Style = Tabs_style

let make ~attrs ~per_tab_attrs ~on_change ~equal ~active tabs =
  List.map tabs ~f:(fun (i, tab) ->
    let is_active = equal active i in
    let classes =
      if is_active then [ Style.tab_button; Style.selected ] else [ Style.tab_button ]
    in
    let on_click =
      Vdom.Attr.on_click (fun _ ->
        if equal i active then Effect.Ignore else on_change ~from:active ~to_:i)
    in
    Vdom.Node.div
      ~attrs:(classes @ [ on_click; Vdom.Attr.many (per_tab_attrs i ~is_active) ])
      [ tab ])
  |> View.hbox ~attrs:(Style.tab_container :: attrs) ~gap:(`Em_float 0.5)
;;