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

    (setq is-today (string= date (format-time-string "%F") ))
    (setq buf (buffer-name))
    (1188--collect-timetables
     date
     (lambda (results)
       (let (pick)

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

(defun 1188--collect-timetables (timetables date callback)
  "Collect all TIMETABLES at given DATE.
Calls CALLBACK with collected timetables when done."
  (let ((fetching 0)
        (results nil))
    (dolist (table timetables)
(let (identifier)
