eufon

commit c4af9e0599a876bac0083d37b59f6e31fd1af044
parent 08dd9405e2e3f4c774e5eb21c9f3b0be4038d31c
Author: Daniel Barlow <dan@telent.net>
Date:   Tue, 18 Jan 2022 18:26:20 +0000

Merge pull request #1 from samueldr/feature/saturn-flowbox

saturn: Use FlowBox rather than Grid

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