eufon

commit 24ff1ab62dc9ecaef9d39db3fc260bc0e25f89a2
parent 5e423fb8fdfd8b4c5e37685c5e966e3f4af2e9d8
Author: Daniel Barlow <dan@telent.net>
Date:   Sun, 16 Jan 2022 17:06:26 +0000

don't show same app twice in saturn

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

1 file changed, 10 insertions(+), 8 deletions(-)
diff --git a/saturn/main.fnl b/saturn/main.fnl
@@ -29,7 +29,7 @@
     vals))
 
 (fn all-apps []
-  (var apps-table [])
+  (var apps-table {})
   ;; for i in ${XDG_DATA_DIRS//:/ /} ; do ls $i/applications/*.desktop ;done
   (each [path (string.gmatch (os.getenv "XDG_DATA_DIRS") "[^:]*")]
     (let [apps  (..  path "/applications/")]
@@ -38,7 +38,7 @@
           (when (= (f:sub -8) ".desktop")
             (let [attrs (read-desktop-file (.. apps  f))]
               (when (not attrs.NoDisplay)
-                (table.insert apps-table attrs))))))))
+                (tset apps-table attrs.Name attrs))))))))
   apps-table)
 
 ;; Exec entries in desktop files may contain %u %f and other characters
@@ -74,19 +74,21 @@
     (: :set_image app.IconImage)))
 
 (let [grid (Gtk.Grid {
-;                      :orientation "vertical"
-                      :column_spacing 8
-                      :row_spacing 8
+                      :column_spacing 5
+                      :row_spacing 5
                       })
       scrolled-window (Gtk.ScrolledWindow {})
       window (Gtk.Window {
                           :title "Saturn V"
                           :default_width 720
                           :default_height 800
+                          :on_destroy Gtk.main_quit
                           })]
-  (each [i app (ipairs (all-apps))]
-    (let [x (% (- i 1) 8)
-          y (// (- i 1) 8)]
+  (var i 0)
+  (each [_ app (pairs (all-apps))]
+    (let [x (%  i 4)
+          y (// i 4)]
+      (set i (+ i 1))
       (grid:attach (button-for app) x y 1 1)))
   (scrolled-window:add grid)
   (window:add scrolled-window)