void *
gram_output_created_hook_run (void *data)
{
scm_c_run_hook (gram_output_created_hook,
scm_list_1 (gram_output_scm (*(const wlc_handle *) data)));
return SCM_UNSPECIFIED;
}
SCM
gram_view_focus_hook_run (void *data)
{
struct view_focus_input *input = (struct view_focus_input *) data;
scm_c_run_hook (gram_view_focus_hook,
scm_list_2 (gram_view_scm (input->handle),
input->focus ? SCM_BOOL_T : SCM_BOOL_F));
return SCM_UNSPECIFIED;
}
SCM
gram_keydown_hook_run (void *data)
{
struct keydown_input* input = (struct keydown_input*) data;
scm_c_run_hook (gram_keydown_hook,
scm_list_2 (gram_keysym_scm (&input->keysym),
gram_view_scm(input->view)));
return gram_swallow ? SCM_BOOL_T : SCM_BOOL_F;
}
void *
gram_compositor_ready_hook_run (void *data)
{
scm_c_run_hook (gram_compositor_ready_hook, SCM_EOL);
return SCM_UNSPECIFIED;
}
SCM
gram_view_destroyed_hook_run (void *data)
{
scm_c_run_hook (gram_view_destroyed_hook, SCM_EOL);
return SCM_UNSPECIFIED;
}
SCM
gram_compositor_terminate_hook_run (void *data)
{
scm_c_run_hook (gram_compositor_terminate_hook, SCM_EOL);
return SCM_UNSPECIFIED;
}
