open Noun

(** Effect types and parsing *)

type blit =
  | Lin of string           (* Simple line of text *)
  | Klr of noun             (* Styled/colored text *)
  | Mor of blit list        (* Multiple blits *)
  | Hop of int              (* Cursor hop *)
  | Clr                     (* Clear screen *)
  | Unknown of noun         (* Unparsed blit *)

type card =
  | Blit of blit            (* Terminal output *)
  | Logo                    (* Show logo *)
  | HttpResponse of noun    (* HTTP response *)
  | Send of noun            (* Network send *)
  | Unknown of noun         (* Unknown card type *)

type effect = {
  wire: noun;
  card: card;
}

val parse_blit : noun -> blit
val parse_card : noun -> card
val parse_effect : noun -> effect option
val parse_effects : noun -> effect list

val show_wire : noun -> string
val show_card : card -> string

val is_dill_wire : noun -> bool
val is_http_wire : noun -> bool
val is_ames_wire : noun -> bool