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.
22 lines
388 B
22 lines
388 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
|
|
message-qu))
|
|
|
|
(call-with-new-thread
|
|
(lambda ()
|
|
(launch-webkit-blocking message-qu)))
|
|
|