dan/dunlin
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use CamelCase for tables/modules that implement classes

Browse Source 
Frame => bound to (require :frame)
frame => result of evaluating (Frame.new)
This commit is contained in:
Daniel Barlow 2022-12-20 12:28:32 +00:00
parent bd8a1a5c7d
commit e2c6e2c5f6
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
dunlin.fnl
View File

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

4
frame.fnl
View File

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