Definition jsonKeyAssignments (ks : list keyAssignment) : json :=
  JsonObject [
    ("%Schema", JsonString "urn:com.io7m.aurantium:1.0");
    ("Clips",   JsonArray (map jsonKeyAssignment ks))
  ].
