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

saturn: word-wrap app names to get more icons in a row

Browse Source
This commit is contained in:
Daniel Barlow 2022-03-20 15:50:51 +00:00
parent ab32974635
commit c331732ca6
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
saturn/main.fnl
View File

@ -157,8 +157,8 @@
(fn read-desktop-file [f] (fn read-desktop-file [f]
(let [parsed (inifile.parse f) (let [parsed (inifile.parse f)
vals (. parsed "Desktop Entry")] vals (. parsed "Desktop Entry")]
(when vals.Icon (tset vals "IconImage"
(tset vals "IconImage" (find-icon vals.Icon))) (find-icon (or vals.Icon "application-x-executable")))
(tset vals "ID" (f:sub 0 -9)) (tset vals "ID" (f:sub 0 -9))
vals)) vals))
@ -230,11 +230,24 @@
(fn button-for [app] (fn button-for [app]
(doto (Gtk.Button (doto (Gtk.Button
{ {
:label app.Name
:image-position Gtk.PositionType.TOP :image-position Gtk.PositionType.TOP
:relief Gtk.ReliefStyle.NONE :relief Gtk.ReliefStyle.NONE
:on_clicked #(launch app) }) :on_clicked #(launch app)
(: :set_image app.IconImage))) })
(: :add
(doto (Gtk.Box {:orientation Gtk.Orientation.VERTICAL})
(: :add app.IconImage)
(: :add (doto
(Gtk.Label {
:label app.Name
:halign Gtk.Align.CENTER
:justify Gtk.Justification.CENTER
:wrap true
})
(: :set_line_wrap true)
(: :set_max_width_chars 10)
(tset :expand false)))
))))
(fn handle-dbus-method-call [conn sender path interface method params invocation] (fn handle-dbus-method-call [conn sender path interface method params invocation]