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

Merge pull request #4 from samueldr/feature/icon-size

Browse Source 
saturn: Harmonize icon size
This commit is contained in:
Daniel Barlow 2022-01-30 14:00:16 +00:00
commit 8ed99c0c7b
1 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
saturn/main.fnl
View File

@ -3,6 +3,8 @@
(local dbus (require :dbus_proxy)) (local dbus (require :dbus_proxy))
(local inspect (require :inspect)) (local inspect (require :inspect))
(local ICON_SIZE 64)
(local dbus-service-attrs (local dbus-service-attrs
{ {
:bus dbus.Bus.SESSION :bus dbus.Bus.SESSION
@ -72,7 +74,11 @@
(local inspect (require :inspect)) (local inspect (require :inspect))
(local posix (require :posix)) (local posix (require :posix))
(local path {
:absolute? (fn [str] (= (str:sub 1 1) "/"))
})
(local Gtk lgi.Gtk) (local Gtk lgi.Gtk)
(local GdkPixbuf lgi.GdkPixbuf)
(local Pango lgi.Pango) (local Pango lgi.Pango)
(local icon-theme (Gtk.IconTheme.get_default)) (local icon-theme (Gtk.IconTheme.get_default))
@ -85,15 +91,21 @@
})) }))
(fn find-icon [name] (fn find-icon [name]
(var found false) (var found false)
(if (= (name.sub 1 1) "/") (if (path.absolute? name)
(Gtk.Image.new_from_file name) ;; From a direct path
(set found (GdkPixbuf.Pixbuf.new_from_file_at_size name ICON_SIZE ICON_SIZE))
;; From icon theme
(let [sizes (icon-theme:get_icon_sizes name)] (let [sizes (icon-theme:get_icon_sizes name)]
;; Uses a list of "safe fallback" values
(each [_ res (pairs [64 48]) :until found] ;; Try the desired size first
(set found (icon-theme:load_icon (each [_ res (pairs [ICON_SIZE 128 64 48]) :until found]
(set found
(-?> (icon-theme:load_icon
name res name res
(+ Gtk.IconLookupFlags.FORCE_SVG Gtk.IconLookupFlags.USE_BUILTIN)))) (+ Gtk.IconLookupFlags.FORCE_SVG Gtk.IconLookupFlags.USE_BUILTIN))
(Gtk.Image.new_from_pixbuf found)))) (: :scale_simple ICON_SIZE ICON_SIZE GdkPixbuf.InterpType.BILINEAR))))
))
(Gtk.Image.new_from_pixbuf found))
(fn read-desktop-file [f] (fn read-desktop-file [f]
(let [parsed (inifile.parse f) (let [parsed (inifile.parse f)