dan/eufon
1
0
Fork 0
Code Issues Pull Requests Releases Activity

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

Browse Source
This commit is contained in:
Daniel Barlow 2022-01-18 18:27:09 +00:00
commit 550cf5b618
2 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
saturn/Makefile
View File

@ -7,7 +7,7 @@ MODULES=main.fnl
lua $(FENNEL) --compile $< > $@ lua $(FENNEL) --compile $< > $@
saturn: $(patsubst %.fnl,%.lua,$(MODULES)) Makefile 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 $@ chmod +x $@
install: install:

8
saturn/main.fnl
View File

@ -133,17 +133,13 @@
(local grid-columns 4) (local grid-columns 4)
(let [grid (Gtk.Grid { (let [grid (Gtk.FlowBox {
:column_spacing 2 :column_spacing 2
:row_spacing 5 :row_spacing 5
}) })
scrolled-window (Gtk.ScrolledWindow {})] scrolled-window (Gtk.ScrolledWindow {})]
(var i 0)
(each [_ app (pairs (all-apps))] (each [_ app (pairs (all-apps))]
(let [x (% i grid-columns) (grid:insert (button-for app) -1))
y (// i grid-columns)]
(set i (+ i 1))
(grid:attach (button-for app) x y 1 1)))
(scrolled-window:add grid) (scrolled-window:add grid)
(window:add scrolled-window)) (window:add scrolled-window))