 
 ;; TODO:
 ;;
-;;  - Allow timetable list to be configurable.
 ;;  - Add tests.
 ;;  - Allow sorting by different columns (especially arrival time).
 

                                    (match-string 7)) results)))
        (funcall callback results)))) nil t t))

(defun 1188--collect-timetables (date callback)
  "Collect all timetables at given DATE.
Calls CALLBACK with collected timetables when done."
  (let ((timetables (list (list "Bus  "
                                1188--bus-url
                                1188-default-bus-from-id
                                1188-default-bus-to-id)
                          (list "Train"
                                1188--train-url
                                1188-default-train-from-id
                                1188-default-train-to-id)))
        (fetching 0)
        (results nil))
    (dolist (table timetables)
(let (identifier)

location id.  TO-ID is the arrival location id.  DATE is the date
for which to get the timetables.  It will call the CALLBACK with
list of results one download is done."
  (url-retrieve
   (concat url "?"
           (1188--perpare-args
