mirror of
https://github.com/rkd77/elinks.git
synced 2024-11-04 08:17:17 -05:00
91 lines
2.0 KiB
C
91 lines
2.0 KiB
C
/* Guile interface (scripting engine) */
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
#include "config.h"
|
|
#endif
|
|
|
|
#include <libguile.h>
|
|
|
|
#include "elinks.h"
|
|
|
|
#include "config/home.h"
|
|
#include "main/module.h"
|
|
#include "scripting/guile/core.h"
|
|
#include "scripting/guile/hooks.h"
|
|
#include "util/error.h"
|
|
#include "util/file.h"
|
|
#include "util/string.h"
|
|
|
|
#define GUILE_HOOKS_FILENAME "hooks.scm"
|
|
#define GUILE_USERHOOKS_FILENAME "user-hooks.scm"
|
|
|
|
/*
|
|
* Bindings
|
|
*/
|
|
|
|
/* static SCM c_current_url(void) */
|
|
/* { */
|
|
/* struct view_state *vs; */
|
|
|
|
/* if (have_location(ses) && (vs = ses ? &cur_loc(ses)->vs : 0)) */
|
|
/* return scm_makfrom0str(struri(vs->uri)); */
|
|
/* else */
|
|
/* return SCM_BOOL_F; */
|
|
/* } */
|
|
/* c_current_link */
|
|
/* c_current_title */
|
|
/* c_current_document */
|
|
/* c_current_document_formatted */
|
|
/* c_bind_key */
|
|
/* c_xdialog */
|
|
|
|
|
|
static char elguileversion[32];
|
|
|
|
void
|
|
init_guile(struct module *module)
|
|
{
|
|
SCM user_module;
|
|
char *path;
|
|
|
|
scm_init_guile();
|
|
|
|
snprintf(elguileversion, 31, "Guile %s", scm_to_locale_string(scm_version()));
|
|
module->name = elguileversion;
|
|
|
|
if (!elinks_home) return;
|
|
|
|
/* Remember the current module. */
|
|
user_module = scm_current_module();
|
|
|
|
path = straconcat(elinks_home, GUILE_HOOKS_FILENAME,
|
|
(char *) NULL);
|
|
if (!path) return;
|
|
|
|
if (file_can_read(path)) {
|
|
/* Load ~/.elinks/hooks.scm. */
|
|
scm_c_primitive_load_path(path);
|
|
|
|
/* hooks.scm should have created a new module (elinks
|
|
* internal). Let's remember it, even though I haven't figured
|
|
* out how to use it directly yet... */
|
|
scm_current_module();
|
|
|
|
/* Return to the user module, import bindings from (elinks
|
|
* internal), then load ~/.elinks/user-hooks.scm. */
|
|
scm_set_current_module(user_module);
|
|
|
|
/* FIXME: better way? i want to use internal_module directly */
|
|
scm_c_use_module("elinks internal");
|
|
}
|
|
|
|
mem_free(path);
|
|
|
|
path = straconcat(elinks_home, GUILE_USERHOOKS_FILENAME,
|
|
(char *) NULL);
|
|
if (!path) return;
|
|
if (file_can_read(path))
|
|
scm_c_primitive_load_path(path);
|
|
mem_free(path);
|
|
}
|