Module Browser_tab

type state =
  1. | Loading of string
  2. | Shown of Browser_page.t
type kind =
  1. | Document
  2. | Sheet
  3. | Script
  4. | Picture
  5. | Media
  6. | Fetch
type request = {
  1. url : string;
  2. kind : kind;
  3. status : int option;
  4. bytes : int;
}
type view =
  1. | Page
  2. | Source
type entry = {
  1. at : string;
  2. kept : (Browser_page.t * Browser_script.t option) option;
  3. scrolled_to : int;
}
type t = {
  1. state : state;
  2. view : view;
  3. scroll : int;
  4. history : entry Browser_history.t;
  5. visited : string list;
  6. fragment : string option;
  7. pictures : (string * Browser_picture.t) list;
  8. sheets : (string * string) list;
  9. sheet_urls : string list;
  10. queue : string list;
  11. in_flight : string list;
  12. total : int;
  13. images : bool;
  14. focus : Dom.element option;
  15. script : Browser_script.t option;
  16. requests : request list;
  17. sources : (string * string) list;
  18. pending_scripts : string list;
  19. media : (string * string) list;
  20. media_urls : string list;
}
val media_sources : Browser_page.t -> string list
type 'msg config = {
  1. settings : t -> Browser_page.settings;
  2. about : string -> (string * string) option;
  3. got : string -> (Playground.Http.response, Playground.Http.error) Stdlib.result -> 'msg;
  4. got_picture : string -> (Playground.Http.response, Playground.Http.error) Stdlib.result -> 'msg;
  5. connections : int;
  6. visible : int;
  7. line_height : float;
  8. scripts : string -> bool;
  9. seed : int;
}
val empty : images:bool -> t
val current_url : t -> string
val scrolled : 'msg config -> int -> t -> t
val relaid : 'msg config -> t -> t
val load : ?post:(string * string) -> 'msg config -> < Cap.network.. > -> string -> t -> t * 'msg Cmd.t
val visit : ?post:(string * string) -> 'msg config -> < Cap.network.. > -> string -> t -> t * 'msg Cmd.t
val back : 'msg config -> < Cap.network.. > -> t -> t * 'msg Cmd.t
val forward : 'msg config -> < Cap.network.. > -> t -> t * 'msg Cmd.t
val stop : 'msg config -> t -> t
val load_images : 'msg config -> < Cap.network.. > -> t -> t * 'msg Cmd.t
val got : 'msg config -> < Cap.network.. > -> string -> (Playground.Http.response, Playground.Http.error) Stdlib.result -> t -> t * 'msg Cmd.t
val got_picture : 'msg config -> < Cap.network.. > -> string -> (Playground.Http.response, Playground.Http.error) Stdlib.result -> t -> t * 'msg Cmd.t
val form_effect : 'msg config -> < Cap.network.. > -> keep_focus:bool -> Browser_forms.outcome -> t -> t * 'msg Cmd.t
val after_task : 'msg config -> < Cap.network.. > -> t -> t * 'msg Cmd.t