You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
595 B
33 lines
595 B
(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)
|
|
|