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

print error when failing to load image

Browse Source
This commit is contained in:
Daniel Barlow 2022-04-07 23:39:56 +01:00
parent 2ec7bfc78a
commit a39a752b15
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
blinkenlicht/blinkenlicht.fnl
View File

@ -60,11 +60,17 @@
(local found-icons {}) (local found-icons {})
(macro check-err [form]
`(let [(result# err#) ,form]
(or result#
(error err#))))
(fn load-icon [name] (fn load-icon [name]
(let [pixbuf (let [pixbuf
(if (= (name:sub 1 1) "/") (if (= (name:sub 1 1) "/")
;; From a direct path ;; From a direct path
(GdkPixbuf.Pixbuf.new_from_file_at_scale name HEIGHT -1 true) (check-err
(GdkPixbuf.Pixbuf.new_from_file_at_scale name HEIGHT -1 true))
;; From icon theme ;; From icon theme
(find-icon-pixbuf name))] (find-icon-pixbuf name))]
(Gtk.Image.new_from_pixbuf pixbuf))) (Gtk.Image.new_from_pixbuf pixbuf)))