eufon

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

saturn: prevent buttons from expanding vertically when few apps

On my phone there are only five apps installed, and FlowBox
stretches the buttons in weird ways unless told not to

Also delete unused local

Diffstat:
M
saturn/main.fnl
 | 
12
++++++------

1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/saturn/main.fnl b/saturn/main.fnl
@@ -131,15 +131,15 @@
  (lgi.GObject.Closure (fn [a] (print "get")))
  (lgi.GObject.Closure (fn [a] (print "set"))))
 
-(local grid-columns 4)
-
 (let [grid (Gtk.FlowBox {
-                      :column_spacing 2
-                      :row_spacing 5
-                      })
+                         :orientation Gtk.Orientation.HORIZONTAL
+                         :valign Gtk.Align.START
+                         :column_spacing 2
+                         :row_spacing 5
+                         })
       scrolled-window (Gtk.ScrolledWindow {})]
   (each [_ app (pairs (all-apps))]
-      (grid:insert (button-for app) -1))
+    (grid:insert (button-for app) -1))
   (scrolled-window:add grid)
   (window:add scrolled-window))