dunlin

commit e2c6e2c5f61403f3f6e9b5596e2acefcb8eafdcf
parent bd8a1a5c7dd2f992f3cd543f692e7b90a12fcf2d
Author: Daniel Barlow <dan@telent.net>
Date:   Tue, 20 Dec 2022 12:28:32 +0000

use CamelCase for tables/modules that implement classes

Frame => bound to (require :frame)
frame => result of evaluating (Frame.new)

Diffstat:
M
dunlin.fnl
 | 
8
++++----
M
frame.fnl
 | 
4
++--

2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/dunlin.fnl b/dunlin.fnl
@@ -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")))
 
diff --git a/frame.fnl b/frame.fnl
@@ -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