dunlin/dunlin.fnl

14 lines
310 B
Fennel

(local lgi (require :lgi))
(local lfs (require :lfs))
(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://" (lfs.currentdir) "/doc/index.html")))
(Gtk.main)