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)`

use CamelCase for tables/modules that implement classes Frame => bound to (require :frame) frame => result of evaluating (Frame.new) 2022-12-20 12:28:32 +00:00			`(local Frame (require :frame))`
			`(local Buffer (require :buffer))`
initial commit 2022-12-19 18:19:13 +00:00
use CamelCase for tables/modules that implement classes Frame => bound to (require :frame) frame => result of evaluating (Frame.new) 2022-12-20 12:28:32 +00:00			`(let [f (Frame.new)`
			`b (Buffer.new "main")]`
add buffer 2022-12-20 10:34:37 +00:00			`(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)`