(local lgi (require :lgi))
(local { : Gtk : Gdk : WebKit2 : cairo } lgi)

(local frame (require :frame))
(local buffer (require :buffer))

(let [f (frame.new)
      b (buffer.new "main")]
  (f:show-buffer b)
  (b:visit "file:///home/dan/src/dunlin/doc/index.html"))

(Gtk.main)