(define load-event 0)
(define close-event 1)
(define empty-event 2)

; Used to configure webkit at runtime
(define config
 (alist->hash-table
  '(
    ("console-log" . 0)
    ("compositing-indicators" . 0)
    ("hw-acceleration" . 0)
   )))

(define (open-page url)
 (qu-push
  load-event
  url
  gtk-qu))

(call-with-new-thread
  (lambda ()
    (launch-webkit-blocking gtk-qu guile-qu)))

(define (handle-events)
  (begin
   (sleep 1)
   (let ((msg (qu-pop guile-qu)))
    (if msg
     (display (format "~a loaded\n" msg))
     '())
    (handle-events))))

(call-with-new-thread handle-events)