(bind-func gui_set_default_theme
(lambda (font_path)
;; colors
(gui_set_monokai_color_theme)
;; fonts
(if (< (nvgCreateFont (GUI_context EXTEMPORE_GUI) "default" font_path) 0)
(printf "Error: couldn't load font %s\n" font_path)
(printf "Set GUI theme: default\n"))
void))