let b = object%js
    val className = !*"toggle"
    val checked = !* (if task.completed then "checked" else ""))
    val onClick = fun () -> swap initial_state (fun state -> set_tab !state All)
  end
  in
  Elem (DOM.make ~tag:`input ~elem_spec: ([("type", !* "checkbox")] >>> b ) [])