let common kind = [
  "track_sensitive", Lang.bool_t, Some (Lang.bool true),
  Some "Re-select only on end of tracks." ;

  "replay_metadata", Lang.bool_t, Some (Lang.bool true),
  Some "Replay the last metadata of a child when switching to it in the middle of a track." ;

  let transition_t =
    Lang.fun_t
      [false,"",Lang.source_t kind;
       false,"",Lang.source_t kind]
      (Lang.source_t kind)
  in
  "transitions",
  Lang.list_t transition_t,
  Some (Lang.list transition_t []),
  Some "Transition functions, padded with <code>fun (x,y) -> y</code> functions."
]