runarorama

Block[{},

  BusData[bus_] :=
    "results" /. First[Import[StringJoin["http://apis.is/bus/realtime?busses=", bus], "JSON"]];

  AllBusData := "results" /. First[Import["http://apis.is/bus/realtime?busses=", "JSON"]];

  Dist[{x_ -> y_, a_ -> b_}] := (Flatten[{#1, a -> b}] & ) /@ y;

  CommaSep[xs_] := StringTemplate["<*Row[`1`,\",\"]*>"][xs];