Web Browsing With Parentheses
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

87 lines
2.4 KiB

#include <gtk/gtk.h>
#include <webkit2/webkit2.h>
#include <stdlib.h>
#include <libguile.h>
#include <libguile/strings.h>
static void
destroyWindowCb(GtkWidget *widget, GtkWidget *window);
static gboolean
closeWebViewCb(WebKitWebView *webView, GtkWidget *window);
static void
destroyWindowCb(GtkWidget *widget, GtkWidget *window) {
static gboolean
closeWebViewCb(WebKitWebView *webView,
GtkWidget *window) {
return TRUE;
WebKitWebView *webView;
launch_webkit(void) {
/* Initialize GTK+ */
gtk_init(0, NULL);
/* Create an 800x600 window that will contain the browser instance */
GtkWidget *main_window = gtk_window_new(GTK_WINDOW_TOPLEVEL);
gtk_window_set_default_size(GTK_WINDOW(main_window), 800, 600);
/* Create a browser instance */
webView = WEBKIT_WEB_VIEW(webkit_web_view_new());
/* Put the browser area into the main window */
gtk_container_add(GTK_CONTAINER(main_window), GTK_WIDGET(webView));
/* Set up callbacks so that if either the main window or the browser instance is */
/* closed, the program will exit */
g_signal_connect(main_window, "destroy", G_CALLBACK(destroyWindowCb), NULL);
g_signal_connect(webView, "close", G_CALLBACK(closeWebViewCb), main_window);
/* Load a web page into the browser instance */
webkit_web_view_load_uri(webView, "http://google.com/");
/* Make sure that when the browser area becomes visible, it will get mouse */
/* and keyboard events */
/* Make sure the main window and all its contents are visible */
/* Run the main GTK+ event loop */
return SCM_BOOL_T;
static SCM
open_page(SCM scm_url) {
char *url = scm_to_locale_string(scm_url);
printf("Opening %s\n", url);
webkit_web_view_load_uri(webView, url);
return SCM_BOOL_T;
static void
inner_main(void *data, int argc, char **argv) {
scm_c_define_gsubr("launch-webkit-blocking", 0, 0, 0, launch_webkit);
scm_c_define_gsubr("open-page", 1, 0, 0, open_page);
const char *start_expr = "(call-with-new-thread (lambda () (launch-webkit-blocking)))";
scm_c_use_module("ice-9 threads");
scm_shell(argc, argv);
int main(int argc, char *argv[]) {
/* Initialize Guile */
scm_boot_guile(argc, argv, inner_main, 0);
return 0;