From e822df5f17a61e8d9956e51829a202efddce24d1 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Tue, 18 Jan 2022 20:20:34 +0000
Subject: [PATCH] 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
---
 saturn/main.fnl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/saturn/main.fnl b/saturn/main.fnl
index fe8650f..a6dea99 100644
--- 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))