/* this file is publiched under the gnu gpl license, version 3 or any later */

#define _GNU_SOURCE

#include <dlfcn.h>
#include <glib.h>
#include <gtk/gtk.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>

static char *helper = "/etc/gtkbfc-helper";

static GObject *(*old_constructor) (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties);

static gchar *last_path;

#define DEBUG(stmt) stmt;

/////////////////////////////////////////////////////////////////////////////

gchar *gtk_file_chooser_get_filename (GtkFileChooser *chooser)
{
  DEBUG ((printf ("gtk_file_chooser_get_filename %s\n", last_path)))
  return g_strdup (last_path ? last_path : "/nonex1st4nt");
}

gboolean gtk_file_chooser_select_filename (GtkFileChooser *chooser, const char *filename)
{
  return 1;
}

void gtk_file_chooser_unselect_all (GtkFileChooser *chooser)
{
}

gboolean gtk_file_chooser_set_filename (GtkFileChooser *chooser, const char *filename)
{
  return 1;
}

void gtk_file_chooser_set_current_name (GtkFileChooser *chooser, const char *filename)
{
}

GSList *gtk_file_chooser_get_filenames (GtkFileChooser *chooser)
{
  GSList *rv = 0;
  rv = g_slist_prepend (rv, gtk_file_chooser_get_filename (chooser));
  return rv;
}

gboolean gtk_file_chooser_set_current_folder (GtkFileChooser *chooser, const gchar *folder)
{
  return 1;
}

gchar * gtk_file_chooser_get_current_folder (GtkFileChooser *chooser)
{
  DEBUG ((printf ("gtk_file_chooser_get_current_folder\n")))
  return g_strdup ("/nonex1st4nt/");
}

/////////////////////////////////////////////////////////////////////////////

static const gchar *
from_uri (const gchar *uri)
{
  const gchar *rv = uri;

  if (uri && uri == strstr (uri, "file:///"))
    rv = uri + 7;

  return rv;
}

static gchar *
to_uri (gchar *file)
{
  gchar *rv = NULL;

  if (file)
    {
      GString *str = g_string_new ("file://");

      str = g_string_append (str, file);
      rv = g_strdup (str->str);
      g_string_free (str, TRUE);
      g_free (file);
    }

  return rv;
}

static GSList *
to_uris (GSList *files)
{
  GSList *item = files;

  for (; item; item = g_slist_next (item))
    {
      GString *str = g_string_new ("file://");
      gchar *cur = item->data;

      str = g_string_append (str, cur);
      item->data = g_string_free (str, FALSE);
      g_free (cur);
    }

  return files;
}

gchar *gtk_file_chooser_get_uri (GtkFileChooser *chooser)
{
  gchar *uri = to_uri(gtk_file_chooser_get_filename (chooser));
  DEBUG ((printf ("gtk_file_chooser_get_uri %s\n", uri)));
  return uri;
}

gboolean gtk_file_chooser_set_uri (GtkFileChooser *chooser, const char *uri)
{
  return gtk_file_chooser_set_filename (chooser, from_uri (uri));
}

GSList *gtk_file_chooser_get_uris (GtkFileChooser *chooser)
{
  return to_uris (gtk_file_chooser_get_filenames (chooser));
}

gboolean gtk_file_chooser_set_current_folder_uri(GtkFileChooser *chooser, const gchar *uri)
{
  return gtk_file_chooser_set_current_folder (chooser, from_uri (uri));
}

gchar *gtk_file_chooser_get_current_folder_uri (GtkFileChooser *chooser)
{
  return to_uri (gtk_file_chooser_get_current_folder (chooser));
}

/////////////////////////////////////////////////////////////////////////////

static gboolean activate_cb (gpointer data)
{
  gtk_file_chooser_set_do_overwrite_confirmation (GTK_FILE_CHOOSER (data), FALSE);
  //fprintf (stderr, "ad %d\n", gtk_window_activate_default (GTK_WINDOW (gtk_widget_get_toplevel (GTK_WIDGET (data)))));
  g_signal_emit_by_name (GTK_FILE_CHOOSER (data), "file-activated");
  return FALSE;
}

static gboolean unmap_cb (gpointer data)
{
  gtk_widget_unmap (GTK_WIDGET (gtk_widget_get_toplevel (data)));
  return FALSE;
}

static gboolean read_result (GIOChannel *source, GIOCondition condition, gpointer data)
{
  if (last_path)
    {
      g_free (last_path);
      last_path = 0;
    }

  g_io_channel_read_to_end (source, &last_path, 0, 0);
  g_io_channel_unref (source);
  activate_cb (data);

  DEBUG ((printf ("read_result<%s>\n", last_path)));

  return FALSE;
}

static gboolean show_cb (GtkWidget *widget, GdkEvent  *event, gpointer  user_data) 
{
  gchar *argv[10];
  gboolean save = 0;
  char xid [40];

  argv [0] = helper;

  switch (gtk_file_chooser_get_action (GTK_FILE_CHOOSER (widget)))
    {
      case GTK_FILE_CHOOSER_ACTION_SAVE:          argv [1] = "save "; save = 1;break;
      case GTK_FILE_CHOOSER_ACTION_OPEN:          argv [1] = "load "; break;
      case GTK_FILE_CHOOSER_ACTION_CREATE_FOLDER: argv [1] = "mkdir "; save = 1; break;
      case GTK_FILE_CHOOSER_ACTION_SELECT_FOLDER: argv [1] = "cd "; break;
      default: argv [1] = "<filechooser> "; break;
    }

  GdkWindow *w = gtk_widget_get_parent_window (GTK_WIDGET (widget));

  snprintf (xid, 80, "%lu", (unsigned long)(w ? gdk_x11_drawable_get_xid (w) : 0));
  argv [2] = xid;
  argv [3] = 0;

  mkdir ("/tmp/gtkbfc", 0777);
  close (open ("/tmp/gtkbfc/empty", O_WRONLY|O_CREAT|O_TRUNC, 0666));

  if (save)
    ((void (*)(void *, const char *)) dlsym (RTLD_NEXT, "gtk_file_chooser_set_current_name"))(GTK_FILE_CHOOSER (widget), "/tmp/gtkbfc/empty");
  else
    ((void (*)(void *, const char *)) dlsym (RTLD_NEXT, "gtk_file_chooser_set_filename"))(GTK_FILE_CHOOSER (widget), "/tmp/gtkbfc/empty");

  gint stdout_fd = -1;

  if (g_spawn_async_with_pipes (0, argv, 0, 0, 0, 0, 0, 0, &stdout_fd, 0, 0))
    {
      GIOChannel *channel = g_io_channel_unix_new (stdout_fd);
      gtk_widget_hide (GTK_WIDGET (gtk_widget_get_toplevel (widget)));
      g_io_add_watch (channel, G_IO_IN, read_result, widget);
      g_idle_add (unmap_cb, widget);
      //g_timeout_add (1, unmap_cb, widget);
    }
  else
    ;//gtk_widget_show (widget);
}

static GObject *new_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties)
{
  GObject *ob = old_constructor (type, n_construct_properties, construct_properties);
  g_signal_connect_after (ob, "map", G_CALLBACK (show_cb), 0);
  return ob;
}

__attribute__ ((constructor))
static void init ()
{
  g_type_init ();

  GType type = GTK_TYPE_FILE_CHOOSER_WIDGET;
  GObjectClass *klass = g_type_class_ref (type);

  old_constructor = klass->constructor;
  klass->constructor = new_constructor;
}