use CamelCase for tables/modules that implement classes

Frame => bound to (require :frame)
frame => result of evaluating (Frame.new)
main
Daniel Barlow 2022-12-20 12:28:32 +00:00
parent bd8a1a5c7d
commit e2c6e2c5f6
2 changed files with 6 additions and 6 deletions

View File

@ -2,11 +2,11 @@
(local lfs (require :lfs))
(local { : Gtk : Gdk : WebKit2 : cairo } lgi)
(local frame (require :frame))
(local buffer (require :buffer))
(local Frame (require :frame))
(local Buffer (require :buffer))
(let [f (frame.new)
b (buffer.new "main")]
(let [f (Frame.new)
b (Buffer.new "main")]
(f:show-buffer b)
(b:visit (.. "file://" (lfs.currentdir) "/doc/index.html")))

View File

@ -1,6 +1,6 @@
(local { : Gtk : Gdk : WebKit2 : cairo } (require :lgi))
(local { : view } (require :fennel))
(local command (require :command))
(local Command (require :command))
(var frames [])
@ -19,7 +19,7 @@
commander (Gtk.Entry {
:on_activate
(fn [event]
(command.invoke event.text {}))
(Command.invoke event.text {}))
})
progress-bar (Gtk.ProgressBar {
:orientation Gtk.Orientation.HORIZONTAL