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

print error message if load-styles fails

Browse Source
This commit is contained in:
Daniel Barlow 2022-03-25 11:00:35 +00:00
parent fcd5aee103
commit 2a004d08df
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
blinkenlicht/blinkenlicht.fnl
View File

@ -12,12 +12,14 @@
(local HEIGHT 48) (local HEIGHT 48)
(fn load-styles [pathname] (fn load-styles [pathname]
(let [style-provider (Gtk.CssProvider)] (let [style-provider (Gtk.CssProvider)
(style-provider:load_from_path pathname) (success err) (style-provider:load_from_path pathname)]
(Gtk.StyleContext.add_provider_for_screen (if success
(Gdk.Screen.get_default) (Gtk.StyleContext.add_provider_for_screen
style-provider (Gdk.Screen.get_default)
Gtk.STYLE_PROVIDER_PRIORITY_APPLICATION))) style-provider
Gtk.STYLE_PROVIDER_PRIORITY_APPLICATION)
(print "failed to load stylesheet" err))))
(fn resolve [f] (fn resolve [f]
(match (type f) (match (type f)