type t = {
  link : string;
  summary : string;
  tags : string list;
  published : string;
  author : string;
}

type mastodon_tag = { kind : string; name : string; href : string }

val mastodon_tag_of_yojson : Yojson.Safe.t -> mastodon_tag
val yojson_of_mastodon_tag : mastodon_tag -> Yojson.Safe.t

type mastodon_object = { tag : mastodon_tag list }

val mastodon_object_of_yojson : Yojson.Safe.t -> mastodon_object
val yojson_of_mastodon_object : mastodon_object -> Yojson.Safe.t

type mastodon_post = {
  actor : string;
  published : string;
  obj : mastodon_object;
}

val mastodon_post_of_yojson : Yojson.Safe.t -> mastodon_post
val yojson_of_mastodon_post : mastodon_post -> Yojson.Safe.t
val post_of_mastodon_post : mastodon_post -> t
val get_tld : string -> string
val db : t list ref
val add : t -> unit
val get_all : unit -> t list