/* GtkUrl - A addon for GtkText that enables colored and clickable URLs
 * Copyright (C) 2001 Benedikt Roth <Benedikt.Roth@bratislav.de>  
 *   Based on code from 
 *   gtkspell - a spell-checking addon for GtkText
 *   Copyright (c) 2000 Evan Martin.
 * 
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) any later version.
 * 
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA
 */

#define GTKURL_USE_GNOME

#include <gtk/gtk.h>
#ifdef GTKURL_USE_GNOME
#include <gnome.h>
#endif /* GTKURL_USE_GNOME */
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <unistd.h>

#include "gtkurl.h"

/* FIXME? */
static GdkColor highlight = { 0, 0, 0, 255*256 };

enum {
  GTKURL_NO_URL,
  GTKURL_URL,
  GTKURL_HOST
};


static void entry_insert_cb(GtkText *gtktext, gchar *newtext, guint len, guint *ppos, gpointer d);
static void entry_delete_cb(GtkText *gtktext, gint start, gint end, gpointer d);
static gint button_press_intercept_cb(GtkText *gtktext, GdkEvent *e, gpointer d);

static void popup_menu(GtkText *gtktext, GdkEventButton *eb);
static GtkMenu *make_menu(gchar *url);

static gboolean visit_url_gnome_cb( GtkWidget *widget, gpointer *data);
static int my_poptParseArgvString(const char * s, int * argcPtr, char *** argvPtr);
static gboolean visit_url_cmd_cb( GtkWidget *widget, gpointer *data);

static gboolean check_at(GtkText *gtktext, gint from_pos);
static gchar *get_word_from_pos(GtkText* gtktext, gint pos, gint *pstart, gint *pend);
static gchar *get_curword(GtkText* gtktext, gint *pstart, gint *pend);

static void change_color(GtkText *gtktext, gint start, gint end, GdkColor *color);

static gboolean iswordsep(gchar c);
static gint is_url(gchar* word);



void gtkurl_attach(GtkText *gtktext)
{
   gtk_signal_connect(GTK_OBJECT(gtktext), "insert-text",
 		     GTK_SIGNAL_FUNC(entry_insert_cb), NULL);
   gtk_signal_connect_after(GTK_OBJECT(gtktext), "delete-text",
			    GTK_SIGNAL_FUNC(entry_delete_cb), NULL);
   gtk_signal_connect(GTK_OBJECT(gtktext), "button-press-event",
		      GTK_SIGNAL_FUNC(button_press_intercept_cb), NULL);
}


void gtkurl_detach(GtkText *gtktext)
{
  gtk_signal_disconnect_by_func(GTK_OBJECT(gtktext),
				GTK_SIGNAL_FUNC(entry_insert_cb), NULL);
  gtk_signal_disconnect_by_func(GTK_OBJECT(gtktext),
				GTK_SIGNAL_FUNC(entry_delete_cb), NULL);
  gtk_signal_disconnect_by_func(GTK_OBJECT(gtktext), 
				GTK_SIGNAL_FUNC(button_press_intercept_cb), NULL);
  
  gtkurl_uncheck_all(gtktext);
}


void gtkurl_check_all(GtkText *gtktext)
{
  guint origpos;
  guint pos = 0;
  guint len;
  float adj_value;

  len = gtk_text_get_length(gtktext);
  
  adj_value = gtktext->vadj->value;
  gtk_text_freeze(gtktext);
  origpos = gtk_editable_get_position(GTK_EDITABLE(gtktext));

  while (pos < len) 
    { 
      while (pos < len && iswordsep(GTK_TEXT_INDEX(gtktext, pos)))
	pos++;
      while (pos < len && !iswordsep(GTK_TEXT_INDEX(gtktext, pos)))
	pos++;
      if (pos > 0)
	check_at(gtktext, pos-1);
    }

  gtk_text_thaw(gtktext);
  gtk_editable_set_position(GTK_EDITABLE(gtktext), origpos);
}


void gtkurl_uncheck_all(GtkText *gtktext)
{
  gint origpos;
  gchar *text;
  gfloat adj_value;

  adj_value = gtktext->vadj->value;
  gtk_text_freeze(gtktext);
  origpos = gtk_editable_get_position(GTK_EDITABLE(gtktext));
  text = gtk_editable_get_chars(GTK_EDITABLE(gtktext), 0, -1);
  gtk_text_set_point(gtktext, 0);
  gtk_text_forward_delete(gtktext, gtk_text_get_length(gtktext));
  gtk_text_insert(gtktext, NULL, NULL, NULL, text, strlen(text));
  gtk_text_thaw(gtktext);

  gtk_editable_set_position(GTK_EDITABLE(gtktext), origpos);
  gtk_adjustment_set_value(gtktext->vadj, adj_value);
}


static void entry_insert_cb(GtkText *gtktext, gchar *newtext, guint len, guint *ppos, gpointer d)
{
  gint origpos;

  gtk_signal_handler_block_by_func(GTK_OBJECT(gtktext),
				   GTK_SIGNAL_FUNC(entry_insert_cb), 
				   NULL );
  
  gtk_text_insert(GTK_TEXT(gtktext), NULL,
		  &(GTK_WIDGET(gtktext)->style->fg[0]), NULL, newtext, len);

  gtk_signal_handler_unblock_by_func(GTK_OBJECT(gtktext),
				     GTK_SIGNAL_FUNC(entry_insert_cb),
				     NULL);
  
  gtk_signal_emit_stop_by_name(GTK_OBJECT(gtktext), "insert-text");
  *ppos += len;

  origpos = gtk_editable_get_position(GTK_EDITABLE(gtktext));

  if (iswordsep(newtext[0])) 
    {
      /* did we just end a word? */
      if (*ppos >= 2) check_at(gtktext, *ppos-2);
      
      /* did we just split a word? */
      if (*ppos < gtk_text_get_length(gtktext))
	check_at(gtktext, *ppos+1);
    } 
  else 
    {
      /* check as they type, *except* if they're typing at the end (the most
       * common case.
       */
      if (*ppos < gtk_text_get_length(gtktext) && !iswordsep(GTK_TEXT_INDEX(gtktext, *ppos)))
	check_at(gtktext, *ppos-1);
    }

  gtk_editable_set_position(GTK_EDITABLE(gtktext), origpos);
  gtk_editable_select_region(GTK_EDITABLE(gtktext), origpos, origpos);
}


static void entry_delete_cb(GtkText *gtktext, gint start, gint end, gpointer d)
{
  gint origpos;
  
  origpos = gtk_editable_get_position(GTK_EDITABLE(gtktext));
  check_at(gtktext, start-1);
  gtk_editable_set_position(GTK_EDITABLE(gtktext), origpos);
  gtk_editable_select_region(GTK_EDITABLE(gtktext), origpos, origpos);
  /* this is to *UNDO* the selection, in case they were holding shift
   * while hitting backspace. */
}


/* ok, this is pretty wacky:
 * we need to let the right-mouse-click go through, so it moves the cursor, 
 * but we *can't* let it go through, because GtkText interprets rightclicks as
 * weird selection modifiers.
 *
 * so what do we do?  forge rightclicks as leftclicks, then popup the menu. 
 * HACK HACK HACK. 
 */
static gint button_press_intercept_cb(GtkText *gtktext, GdkEvent *e, gpointer d)
{
  GdkEventButton *eb;
  gboolean retval;
  
  if (e->type != GDK_BUTTON_PRESS) return FALSE;
  eb = (GdkEventButton*) e;

  if (eb->button != 3)
    return FALSE;

  /* forge the leftclick */
  eb->button = 1;

  gtk_signal_handler_block_by_func(GTK_OBJECT(gtktext), 
				   GTK_SIGNAL_FUNC(button_press_intercept_cb), d);
  gtk_signal_emit_by_name(GTK_OBJECT(gtktext), "button-press-event",
			  e, &retval);
  gtk_signal_handler_unblock_by_func(GTK_OBJECT(gtktext), 
				     GTK_SIGNAL_FUNC(button_press_intercept_cb), d);
  gtk_signal_emit_stop_by_name(GTK_OBJECT(gtktext), "button-press-event");

  /* now do the menu wackiness */
  popup_menu(gtktext, eb);
  return TRUE;
}


static void popup_menu(GtkText *gtktext, GdkEventButton *eb)
{
  gchar *buf;
  
  buf = get_curword(gtktext, NULL, NULL);
  
  gtk_menu_popup(make_menu(buf), NULL, NULL, NULL, NULL,
		 eb->button, eb->time);
}


static GtkMenu *make_menu(gchar *url)
{
  GtkWidget *menu, *item;
  gchar *caption;
  gchar *s = "http://";
  gchar *cmd;

  switch( is_url(url) )
    {
    case GTKURL_URL:
      url = g_strdup_printf("%s", url);
      break;
    case GTKURL_HOST: 
      url = g_strdup_printf("%s%s", s, url);
      break;
    }	  

  menu = gtk_menu_new(); 
  
  caption = g_strdup_printf("%s", url);
  item = gtk_menu_item_new_with_label(caption);
  g_free(caption);
  gtk_widget_set_sensitive( GTK_WIDGET(item), FALSE);
  /* I'd like to make it so this item is never selectable, like
   * the menu titles in the GNOME panel... unfortunately, the GNOME
   * panel creates their own custom widget to do this! */
  gtk_widget_show(item);
  gtk_menu_append(GTK_MENU(menu), item);
  
  item = gtk_menu_item_new();
  gtk_widget_show(item);
  gtk_menu_append(GTK_MENU(menu), item);

#ifdef GTKURL_USE_GNOME
  item = gtk_menu_item_new_with_label(_("Open with GNOME URL Handler"));
  gtk_signal_connect(GTK_OBJECT(item), "activate", 
		     GTK_SIGNAL_FUNC(visit_url_gnome_cb), g_strdup(url) );
  gtk_menu_append(GTK_MENU(menu), item);
  gtk_widget_show(item);
#endif /* GTKURL_USE_GNOME */
    
  item = gtk_menu_item_new_with_label(_("Open with Netscape (Existing)"));
  cmd = g_strdup_printf("netscape -remote 'openURL(%s)'", url);
  gtk_signal_connect(GTK_OBJECT(item), "activate",
		     GTK_SIGNAL_FUNC(visit_url_cmd_cb), g_strdup(cmd) );
  g_free(cmd);
  gtk_menu_append(GTK_MENU(menu), item);
  gtk_widget_show(item);

  item = gtk_menu_item_new_with_label(_("Open with Netscape (New Window)"));
  cmd = g_strdup_printf("netscape -remote 'openURL(%s,new-window)'", url);
  gtk_signal_connect(GTK_OBJECT(item), "activate",
		     GTK_SIGNAL_FUNC(visit_url_cmd_cb), g_strdup(cmd) );
  g_free(cmd);
  gtk_menu_append(GTK_MENU(menu), item);
  gtk_widget_show(item);

  item = gtk_menu_item_new_with_label(_("Open with Netscape (Run New)"));
  cmd = g_strdup_printf("netscape %s", url);
  gtk_signal_connect(GTK_OBJECT(item), "activate",
		     GTK_SIGNAL_FUNC(visit_url_cmd_cb), g_strdup(cmd) );
  g_free(cmd);
  gtk_menu_append(GTK_MENU(menu), item);
  gtk_widget_show(item);

  g_free(url);
  
  return GTK_MENU(menu);
}


#ifdef GTKURL_USE_GNOME
static gboolean visit_url_gnome_cb( GtkWidget *widget, gpointer *data)
{
  gnome_url_show((gchar *) data);
  g_free(data);
  return(TRUE);
}
#endif /* GTKURL_USE_GNOME */


/* this is taken from gnome-libs 1.2.4 */
#define POPT_ARGV_ARRAY_GROW_DELTA 5

static int my_poptParseArgvString(const char * s, int * argcPtr, char *** argvPtr)
{
    char * buf, * bufStart, * dst;
    const char * src;
    char quote = '\0';
    int argvAlloced = POPT_ARGV_ARRAY_GROW_DELTA;
    char ** argv = malloc(sizeof(*argv) * argvAlloced);
    const char ** argv2;
    int argc = 0;
    int i, buflen;

    buflen = strlen(s) + 1;
    bufStart = buf = alloca(buflen);
    memset(buf, '\0', buflen);

    src = s;
    argv[argc] = buf;

    while (*src) {
	if (quote == *src) {
	    quote = '\0';
	} else if (quote) {
	    if (*src == '\\') {
		src++;
		if (!*src) {
		    free(argv);
		    return 1;
		}
		if (*src != quote) *buf++ = '\\';
	    }
	    *buf++ = *src;
	} else if (isspace(*src)) {
	    if (*argv[argc]) {
		buf++, argc++;
		if (argc == argvAlloced) {
		    argvAlloced += POPT_ARGV_ARRAY_GROW_DELTA;
		    argv = realloc(argv, sizeof(*argv) * argvAlloced);
		}
		argv[argc] = buf;
	    }
	} else switch (*src) {
	  case '"':
	  case '\'':
	    quote = *src;
	    break;
	  case '\\':
	    src++;
	    if (!*src) {
		free(argv);
		return 1;
	    }
	    /* fallthrough */
	  default:
	    *buf++ = *src;
	}

	src++;
    }

    if (strlen(argv[argc])) {
	argc++, buf++;
    }

    dst = malloc((argc + 1) * sizeof(*argv) + (buf - bufStart));
    argv2 = (void *) dst;
    dst += (argc + 1) * sizeof(*argv);
    memcpy(argv2, argv, argc * sizeof(*argv));
    argv2[argc] = NULL;
    memcpy(dst, bufStart, buf - bufStart);

    for (i = 0; i < argc; i++) {
	argv2[i] = dst + (argv[i] - bufStart);
    }

    free(argv);

    *argvPtr = (char **)argv2;	/* XXX don't change the API */
    *argcPtr = argc;

    return 0;
}


static gboolean visit_url_cmd_cb( GtkWidget *widget, gpointer *data)
{
  int pid;
  char **argv;
  int argc;

  if (my_poptParseArgvString ( (const char *)data, &argc, &argv) != 0)
    return -1;

  pid = fork ();
  if (pid == -1)
    return -1;
  if (pid == 0)
    {
      execvp (argv[0], argv);
      _exit (0);
    } else
      {
	free (argv);
	return pid;
      }
  
  g_free(data);

  return(TRUE);
}


static gboolean check_at(GtkText *gtktext, gint from_pos)
{
  gint start, end;
  gchar *buf;
  
  if ( ! (buf = get_word_from_pos(gtktext, from_pos, &start, &end)) ) 
      return FALSE;
  
  if ( is_url(buf) ) 
    {
      if (highlight.pixel == 0) 
	{
	  /* add an entry for the highlight in the color map. */
	  GdkColormap *gc = gtk_widget_get_colormap(GTK_WIDGET(gtktext));
	  gdk_colormap_alloc_color(gc, &highlight, FALSE, TRUE);;
	}
      change_color(gtktext, start, end, &highlight);
      return(TRUE);
    } 
  else 
    { 
      change_color(gtktext, start, end, &(GTK_WIDGET(gtktext)->style->fg[0]));
      return(FALSE);
    }
}


static gchar *get_word_from_pos(GtkText* gtktext, gint pos, gint *pstart, gint *pend)
{
  GString *word = g_string_new("");
  gint start, end;
  gchar ch;
  
  if (iswordsep(GTK_TEXT_INDEX(gtktext, pos))) 
    return(NULL);

  /* Get start and end position from the word */
  for (start = pos; start >= 0; --start) 
    if (iswordsep(GTK_TEXT_INDEX(gtktext, start))) 
      break;
  start++;
  
  for (end = pos; end < gtk_text_get_length(gtktext); end++) 
    if (iswordsep(GTK_TEXT_INDEX(gtktext, end)) )
      break;

  /* Be sure to not include punctation marks etc. */
  for ( ;end>start; end-- )
    {
      ch = GTK_TEXT_INDEX(gtktext, end-1); 
      if( isalpha(ch) || isdigit(ch) || ch == ':' )
	break;
    }

  /* Get the word (everyting between start and end */
  for (pos = start; pos < end; pos++)
    g_string_append_c( word, GTK_TEXT_INDEX(gtktext, pos) );

  if (pstart) 
    *pstart = start;
  if (pend) 
    *pend = end;
  
  return(word->str);
}


static gchar *get_curword(GtkText* gtktext, gint *pstart, gint *pend)
{
  gint pos = gtk_editable_get_position(GTK_EDITABLE(gtktext));
  return(get_word_from_pos(gtktext, pos, pstart, pend));
}


static void change_color(GtkText *gtktext, gint start, gint end, GdkColor *color)
{
  gchar *newtext;

  /* So we don't need spaces at the very end of the text */
  if ( end == gtk_text_get_length(GTK_TEXT(gtktext))+1 )
    end--;

  newtext = gtk_editable_get_chars(GTK_EDITABLE(gtktext), start, end);
    
  gtk_text_freeze(gtktext);
  gtk_signal_handler_block_by_func(GTK_OBJECT(gtktext),  
				   GTK_SIGNAL_FUNC(entry_insert_cb), NULL); 
	
  gtk_text_set_point(gtktext, start);
  gtk_text_forward_delete(gtktext, end-start);

  if (newtext && end-start > 0)
    gtk_text_insert(gtktext, NULL, color, NULL, newtext, end-start); 

  gtk_signal_handler_unblock_by_func(GTK_OBJECT(gtktext), 
				     GTK_SIGNAL_FUNC(entry_insert_cb), NULL); 
  gtk_text_thaw(gtktext);
  g_free(newtext);
}


static gboolean iswordsep(gchar c)
{
/* 	return !isalpha(c) && c != '\''; */
  return( isspace(c) );
}


static gint is_url(gchar* word)
{
     gint len;
     if (!word)
	  return GTKURL_NO_URL;

   len = strlen (word);

   if (!strncasecmp (word, "irc://", 6))
      return GTKURL_URL;

   if (!strncasecmp (word, "irc.", 4))
      return GTKURL_URL;

   if (!strncasecmp (word, "ftp.", 4))
      return GTKURL_URL;

   if (!strncasecmp (word, "ftp:", 4))
      return GTKURL_URL;

   if (!strncasecmp (word, "www.", 4))
      return GTKURL_URL;

   if (!strncasecmp (word, "http:", 5))
      return GTKURL_URL;

   if (!strncasecmp (word, "https:", 6))
      return GTKURL_URL;

   if (!strncasecmp (word + len - 4, ".org", 4))
      return GTKURL_HOST;

   if (!strncasecmp (word + len - 4, ".net", 4))
      return GTKURL_HOST;

   if (!strncasecmp (word + len - 4, ".com", 4))
      return GTKURL_HOST;

   if (!strncasecmp (word + len - 4, ".edu", 4))
      return GTKURL_HOST;

   return GTKURL_NO_URL;
}