eufon

commit 550cf5b618f44f1e2483c637f158a8c3797ef4e0
parent 769f42b8646b75c8fb306806b39dd32a8c11a191
Author: Daniel Barlow <dan@telent.net>
Date:   Tue, 18 Jan 2022 18:27:09 +0000

Merge branch 'main' of github.com:telent/slab

Diffstat:
M
saturn/Makefile
 | 
2
+-
M
saturn/main.fnl
 | 
8
++------

2 files changed, 3 insertions(+), 7 deletions(-)
diff --git a/saturn/Makefile b/saturn/Makefile
@@ -7,7 +7,7 @@ MODULES=main.fnl
 	lua $(FENNEL) --compile $< > $@
 
 saturn: $(patsubst %.fnl,%.lua,$(MODULES)) Makefile
-	(echo -e "#!/usr/bin/lua\n" ; cat main.lua ) > $@
+	(echo -e "#!/usr/bin/env lua\n" ; cat main.lua ) > $@
 	chmod +x $@
 
 install:
diff --git a/saturn/main.fnl b/saturn/main.fnl
@@ -133,17 +133,13 @@
 
 (local grid-columns 4)
 
-(let [grid (Gtk.Grid {
+(let [grid (Gtk.FlowBox {
                       :column_spacing 2
                       :row_spacing 5
                       })
       scrolled-window (Gtk.ScrolledWindow {})]
-  (var i 0)
   (each [_ app (pairs (all-apps))]
-    (let [x (%  i grid-columns)
-          y (// i grid-columns)]
-      (set i (+ i 1))
-      (grid:attach (button-for app) x y 1 1)))
+      (grid:insert (button-for app) -1))
   (scrolled-window:add grid)
   (window:add scrolled-window))