dunlin/dunlin.fnl

(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)
initial commit 2022-12-19 18:19:13 +00:00			`(local lgi (require :lgi))`
don't hardcode directory name 2022-12-20 12:26:28 +00:00			`(local lfs (require :lfs))`
initial commit 2022-12-19 18:19:13 +00:00			`(local { : Gtk : Gdk : WebKit2 : cairo } lgi)`

rename pane to frame 2022-12-19 18:48:51 +00:00			`(local frame (require :frame))`
add buffer 2022-12-20 10:34:37 +00:00			`(local buffer (require :buffer))`
initial commit 2022-12-19 18:19:13 +00:00
add buffer 2022-12-20 10:34:37 +00:00			`(let [f (frame.new)`
			`b (buffer.new "main")]`
			`(f:show-buffer b)`
don't hardcode directory name 2022-12-20 12:26:28 +00:00			`(b:visit (.. "file://" (lfs.currentdir) "/doc/index.html")))`
initial commit 2022-12-19 18:19:13 +00:00
			`(Gtk.main)`