/*  HomeBank -- Free, easy, personal accounting for everyone.
 *  Copyright (C) 1995-2026 Maxime DOYEN
 *
 *  This file is part of HomeBank.
 *
 *  HomeBank is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  HomeBank 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 General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */


#include "homebank.h"

#include "dsp-mainwindow.h"
#include "hb-preferences.h"
#include "language.h"

#include "ui-dialogs.h"
#include "ui-widgets.h"

#include <libsoup/soup.h>


#ifdef G_OS_WIN32
#include <windows.h>
#endif

#define APPLICATION_NAME "HomeBank"


/****************************************************************************/
/* Debug macros															 */
/****************************************************************************/
#define MYDEBUG 0

#if MYDEBUG
#define DB(x) (x);
#else
#define DB(x);
#endif

/* our global datas */
struct HomeBank *GLOBALS;
struct Preferences *PREFS;


/* installation paths */
static gchar *config_dir   = NULL;
static gchar *images_dir   = NULL;
static gchar *pixmaps_dir  = NULL;
static gchar *locale_dir   = NULL;
static gchar *help_dir	 = NULL;
static gchar *datas_dir	= NULL;


//#define MARKUP_STRING "<span size='small'>%s</span>"

/* Application arguments */
static gchar *arg_filepath = NULL;


static const GOptionEntry option_entries[] =
{
	/* Version */
	{
		"version", 'V', 0, G_OPTION_ARG_NONE, NULL,
		N_("Show the application’s version"), NULL
	},

	/* collects file arguments */
	{
		G_OPTION_REMAINING, '\0', 0, G_OPTION_ARG_FILENAME_ARRAY, NULL, NULL,
		N_("[FILE]")
	},

	{ NULL }
};


/* = = = = = = = = = = = = = = = = = = = = */


/*
** ensure the filename ends with '.xhb'
*/
void homebank_file_ensure_xhb(gchar *filename)
{
	DB( g_print("\n[homebank] file_ensure_xhb\n") );
	filename = (filename == NULL) ? g_strdup(GLOBALS->xhb_filepath) : filename;

	DB( g_print(" in filepath: '%s'\n", GLOBALS->xhb_filepath) );

	if( g_str_has_suffix (filename, ".xhb") == FALSE )
	{
	gchar *newfilename;
	
		newfilename = hb_filename_new_with_extension(filename, "xhb");
		hbfile_change_filepath(newfilename);
	}
	//#1460390
	else
	{
		hbfile_change_filepath(filename);
	}

	DB( g_print(" out filepath: '%s'\n", GLOBALS->xhb_filepath) );
}


static gboolean homebank_file_copy(gchar *srcfile, gchar *dstfile)
{
gchar *buffer;
gsize length;
//GError *error = NULL;
gboolean retval = FALSE;

	DB( g_print("\n[homebank] file copy\n") );

	if (g_file_get_contents (srcfile, &buffer, &length, NULL))
	{
		if(g_file_set_contents(dstfile, buffer, length, NULL))
		{
			retval = TRUE;
		}
		g_free(buffer);
	}

	DB( g_print(" - copied '%s' => '%s' :: %d\n", srcfile, dstfile, retval) );
	return retval;
}


static gboolean homebank_file_delete_existing(gchar *filepath)
{
gboolean retval = FALSE;

	DB( g_print("\n[homebank] file delete existing\n") );

	if( g_file_test(filepath, G_FILE_TEST_EXISTS) )
	{
		DB( g_print(" - deleting: '%s'\n", filepath) );
		g_remove(filepath);
		retval = TRUE;
	}
	else
	{
		DB( g_print(" - cannot delete: '%s'\n", filepath) );
	}
	
	return retval;
}


void homebank_backup_current_file(void)
{
gchar *bakfilename;
GPtrArray *array;
gint i;

	DB( g_print("\n[homebank] backup_current_file\n") );

	//do normal linux backup file
	DB( g_print(" normal backup with ~\n") );
	bakfilename = hb_filename_new_with_extension (GLOBALS->xhb_filepath, "xhb~");
	homebank_file_delete_existing(bakfilename);
	//#512046 copy file not to broke potential links
	//retval = g_rename(pathname, newname);
	homebank_file_copy (GLOBALS->xhb_filepath, bakfilename);
	g_free(bakfilename);

	//do safe backup according to user preferences
	DB( g_print(" user pref backup\n") );	
	if( PREFS->bak_is_automatic == TRUE )
	{
		bakfilename = hb_filename_new_for_backup(GLOBALS->xhb_filepath);
		if( g_file_test(bakfilename, G_FILE_TEST_EXISTS) == FALSE )
		{
			homebank_file_copy (GLOBALS->xhb_filepath, bakfilename);
		}
		g_free(bakfilename);

		//delete any offscale backup
		DB( g_print(" clean old backup\n") );
		array = hb_filename_backup_list(GLOBALS->xhb_filepath);

		DB( g_print(" found %d match\n", array->len) );

		//#1847645
		//gchar *dirname = g_path_get_dirname(GLOBALS->xhb_filepath);
		gchar *dirname = PREFS->path_hbbak;
		
		for(i=0;i<(gint)array->len;i++)
		{
		gchar *offscalefilename = g_ptr_array_index(array, i);
	
			DB( g_print(" %d : '%s'\n", i, offscalefilename) );
			if( i >= PREFS->bak_max_num_copies )
			{
			gchar *bakdelfilepath = g_build_filename(dirname, offscalefilename, NULL);

				DB( g_print(" - should delete '%s'\n", bakdelfilepath) );
			
				homebank_file_delete_existing(bakdelfilepath);

				g_free(bakdelfilepath);
			}
		}
		g_ptr_array_free(array, TRUE);

		//g_free(dirname);
	}

}


/* = = = = = = = = = = = = = = = = = = = = */

static void
homebank_util_check_backup(void)
{
	if( PREFS->bak_is_automatic == FALSE )
		return;

	if(! g_file_test(PREFS->path_hbbak, (G_FILE_TEST_EXISTS | G_FILE_TEST_IS_DIR)))
	{

		ui_dialog_msg_infoerror(GTK_WINDOW(GLOBALS->mainwindow), GTK_MESSAGE_ERROR,
			_("Invalid Backup directory."),
			_("The files backup will not work, directory is:\n'%s'."),
				PREFS->path_hbbak
			);
	
	}
}


//5.7 test check update online

/*
static gint homebank_util_check_update(GtkWindow *parent)
{
SoupSession *session;
SoupMessage *msg;
GCancellable *cancellable;
GBytes *body;
gchar *query;
guint status;
gboolean retval = TRUE;

	DB( g_printf("\n[homebank] check version update\n") );


	query = HOMEBANK_URL_BASE "/tools/updates.php?h=d1ea6a421b5ab0d451eead9de647c22e";
	DB( g_printf("query: '%s'\n", query) );

	session = soup_session_new_with_options (
		SOUP_SESSION_USER_AGENT, "HomeBankProgram",
		NULL
	);
	
	msg = soup_message_new ("GET", query);
	if(msg != NULL)
	{
		//soup_session_send_message (session, msg);
		body = soup_session_send_and_read (session, msg, cancellable, error);
		
		status = soup_message_get_status (msg);

		DB( g_print("status_code: %d %d\n", msg->status_code, SOUP_STATUS_IS_SUCCESSFUL(status) ) );
		DB( g_print("reason: %s\n", msg->reason_phrase) );
		DB( g_print("datas: %s\n", msg->response_body->data) );

		if( SOUP_STATUS_IS_SUCCESSFUL(status) == TRUE )
		{
			//#1750426 ignore the retval here (false when no rate was found, as we don't care)
			
			DB( g_print("datas ok: %s\n", msg->response_body->data) );
		}
		else
		{
			*error = g_error_new_literal(1, status, soup_message_get_reason_phrase(msg) );
		}

		g_object_unref(msg);
	}
	else
	{
		error = g_error_new_literal(1, 0, "cannot parse URI");
	}

	soup_session_abort (session);
	g_object_unref(session);
	
	if( error )
	{
		DB( g_print("error: %s\n", error->message) );
		g_error_free (error);
	}

	return 0;
}
*/


/* = = = = = = = = = = = = = = = = = = = = */
/* url open */


#ifdef G_OS_WIN32
#define SW_NORMAL 1

static gboolean
homebank_util_url_show_win32 (const gchar *url)
{
int retval;
gchar *errmsg;

	/* win32 API call */
	retval = ShellExecuteA (NULL, "open", url, NULL, NULL, SW_NORMAL);

	if (retval < 0 || retval > 32)
		return TRUE;

	errmsg = g_win32_error_message(retval);
	DB( g_print ("%s\n", errmsg) );
	g_free(errmsg);

	return FALSE;
}

#else

static gboolean
homebank_util_url_show_unix (const gchar *url)
{
gboolean retval;
GError *err = NULL;

	#if( (GTK_MAJOR_VERSION == 3) && (GTK_MINOR_VERSION >= 22) )
	retval = gtk_show_uri_on_window (GTK_WINDOW(GLOBALS->mainwindow), url, GDK_CURRENT_TIME, &err);
	#else
	retval = gtk_show_uri (gtk_widget_get_screen (GTK_WIDGET (GLOBALS->mainwindow)), url, GDK_CURRENT_TIME, &err);
	#endif
	
	if (!retval)
	{
		ui_dialog_msg_infoerror(GTK_WINDOW(GLOBALS->mainwindow), GTK_MESSAGE_ERROR,
			_("Browser error."),
			_("Could not display the URL '%s'"),
			url
			);
	}

	if(err != NULL)
	{
		g_print ("%s\n", err->message);
		g_error_free (err);
	}

	return retval;
}

#endif

gboolean
homebank_util_url_show (const gchar *url)
{

	if(url == NULL)
		return FALSE;


#ifdef G_OS_WIN32
	return homebank_util_url_show_win32 (url);
#else
	return homebank_util_url_show_unix (url);
#endif
}


/* = = = = = = = = = = = = = = = = = = = = */
/* lastopenedfiles */

/*
** load lastopenedfiles from homedir/.homebank
*/
gchar *homebank_lastopenedfiles_load(void)
{
GKeyFile *keyfile;
gchar *group, *filename, *tmpfilename;
gchar *lastfilename = NULL;
GError *error = NULL;

	DB( g_print("\n[homebank] lastopenedfiles load\n") );

	keyfile = g_key_file_new();
	if(keyfile)
	{
		filename = g_build_filename(homebank_app_get_config_dir(), "lastopenedfiles", NULL );
		if(g_key_file_load_from_file (keyfile, filename, G_KEY_FILE_NONE, &error))
		{
			group = "HomeBank";

			if(g_key_file_has_key(keyfile, group, "LastOpenedFile", NULL))
			{
				tmpfilename = g_key_file_get_string  (keyfile, group, "LastOpenedFile", NULL);
				// #593082
				if (g_file_test (tmpfilename, G_FILE_TEST_EXISTS) != FALSE)
				{
					lastfilename = tmpfilename;
				}
			}
		}

		if( error )
		{
			g_print("failed: %s\n", error->message);
			g_error_free (error);
		}

		g_free(filename);
		g_key_file_free (keyfile);
	}

	return lastfilename;
}


/*
** save lastopenedfiles to homedir/.homebank (HB_DATA_PATH)
*/
gboolean homebank_lastopenedfiles_save(void)
{
GKeyFile *keyfile;
gboolean retval = FALSE;
gchar *group, *filename;
gsize length;
GError *error = NULL;

	DB( g_print("\n[homebank] lastopenedfiles save\n") );

	if( GLOBALS->xhb_filepath != NULL )
	{
		//don't save bakup files
		if( hbfile_file_isbackup(GLOBALS->xhb_filepath) == FALSE )
		{
			keyfile = g_key_file_new();
			if(keyfile )
			{
				DB( g_print(" - saving '%s'\n", GLOBALS->xhb_filepath) );

				group = "HomeBank";
				g_key_file_set_string  (keyfile, group, "LastOpenedFile", GLOBALS->xhb_filepath);

				gchar *contents = g_key_file_to_data( keyfile, &length, NULL);

				//DB( g_print(" keyfile:\n%s\nlen=%d\n", contents, length) );

				filename = g_build_filename(homebank_app_get_config_dir(), "lastopenedfiles", NULL );

				g_file_set_contents(filename, contents, length, &error);
				g_free(filename);

				if( error )
				{
					g_print("failed: %s\n", error->message);
					g_error_free (error);
				}
				
				g_free(contents);
				g_key_file_free (keyfile);
			}
		}
	}

	return retval;
}



/* = = = = = = = = = = = = = = = = = = = = */
/* Main homebank */
#ifdef G_OS_WIN32
static GtkCssProvider *provider;

static void
homebank_theme_changed (GtkSettings *settings, GParamSpec  *pspec, gpointer	 data)
{

	if (pspec == NULL || g_str_equal (pspec->name, "gtk-theme-name"))
	{
		gchar *theme;
		GdkScreen *screen;

		g_object_get (settings, "gtk-theme-name", &theme, NULL);
		screen = gdk_screen_get_default ();

		DB( g_print("theme %s\n", theme) );

		if (g_str_equal (theme, "gtk-win32"))
		{
			if (provider == NULL)
			{
				gchar *filename;

				filename = g_build_filename(homebank_app_get_datas_dir(), "homebank-gtk-win32.css", NULL );
				DB( g_print("tweak file %s\n", filename) );

				if( g_file_test(filename, G_FILE_TEST_EXISTS) )
				{
					provider = gtk_css_provider_new ();
					gtk_css_provider_load_from_path (provider, filename, NULL);
				}
				g_free (filename);
			}

			if(provider != NULL)
			{
				DB( g_print(" assign provider %p to screen %p\n", provider, screen) );

				gtk_style_context_add_provider_for_screen (screen,
									   GTK_STYLE_PROVIDER (provider),
									   GTK_STYLE_PROVIDER_PRIORITY_APPLICATION);
			}
		}
		else if (provider != NULL)
		{
			gtk_style_context_remove_provider_for_screen (screen,
									  GTK_STYLE_PROVIDER (provider));
			g_clear_object (&provider);
		}

		g_free (theme);
	}
}


static void
homebank_setup_theme_extensions (void)
{
	GtkSettings *settings;

	settings = gtk_settings_get_default ();
	provider = NULL;
	g_signal_connect (settings, "notify", G_CALLBACK (homebank_theme_changed), NULL);
	homebank_theme_changed (settings, NULL, NULL);
}
#endif


static void
homebank_icon_theme_setup()
{
	DB( g_print("\n[homebank] icon_theme_setup\n") );

	//TODO: never used
	GLOBALS->icontheme = gtk_icon_theme_get_default();

	DB( g_print(" - prepend theme search path: %s\n", homebank_app_get_pixmaps_dir()) );
	
	gtk_icon_theme_prepend_search_path (GLOBALS->icontheme, homebank_app_get_pixmaps_dir());
	//DB( g_print(" - append theme search path: %s\n", homebank_app_get_pixmaps_dir()) );
	//gtk_icon_theme_append_search_path (GLOBALS->icontheme, homebank_app_get_pixmaps_dir());


	#if MYDEBUG == 1
	GtkIconTheme *ic = gtk_icon_theme_get_default();
	guint i;
	gchar **paths;

		DB( g_print(" - get default icon theme\n") );

		gtk_icon_theme_get_search_path(ic, &paths, NULL);
		for(i=0;i<g_strv_length(paths);i++)
		{
			g_print(" - path %d: %s\n", i, paths[i]);
		}

		g_strfreev(paths);

	#endif


}


//#2002177
#ifdef G_OS_UNIX
static void
_color_scheme_set(GVariant   *variant)
{
ColorScheme color_scheme = g_variant_get_uint32 (variant);

	if (color_scheme > PREFER_LIGHT)
		color_scheme = DEFAULT;

	GLOBALS->color_scheme = color_scheme;

	DB( g_print(" set color-scheme: %d\n", color_scheme) );

	homebank_pref_apply_scheme();
}

static void
_settings_portal_changed_cb (GDBusProxy *proxy,
							const char *sender_name,
							const char *signal_name,
							GVariant   *parameters,
							gpointer *user_data)
{
  const char *namespace;
  const char *name;
  g_autoptr (GVariant) value = NULL;

  if (g_strcmp0 (signal_name, "SettingChanged"))
	return;

  g_variant_get (parameters, "(&s&sv)", &namespace, &name, &value);

  if (g_strcmp0 (namespace, "org.freedesktop.appearance") ||
	  g_strcmp0 (name, "color-scheme"))
	return;
  
  _color_scheme_set (value);
}

static gboolean
_color_scheme_read (GDBusProxy  *proxy,
				   GVariant   **out)
{
  g_autoptr (GError) error = NULL;
  g_autoptr (GVariant) ret = NULL;
  g_autoptr (GVariant) child = NULL;

  ret = g_dbus_proxy_call_sync (proxy,
								"Read",
								g_variant_new ("(ss)",
											   "org.freedesktop.appearance",
											   "color-scheme"),
								G_DBUS_CALL_FLAGS_NONE,
								G_MAXINT,
								NULL,
								&error);

  if (error) {
	if (error->domain == G_DBUS_ERROR &&
		error->code == G_DBUS_ERROR_SERVICE_UNKNOWN) {
	  g_debug ("Portal not found: %s", error->message);

	  return FALSE;
	}

	if (error->domain == G_DBUS_ERROR &&
		error->code == G_DBUS_ERROR_UNKNOWN_METHOD) {
	  g_debug ("Portal doesn't provide settings: %s", error->message);

	  return FALSE;
	}

	g_critical ("Couldn't read the color-scheme setting: %s", error->message);

	return FALSE;
  }

  g_variant_get (ret, "(v)", &child);
  g_variant_get (child, "v", out);

  return TRUE;
}

static void
init_portal (void)
{
  g_autoptr (GError) error = NULL;
  g_autoptr (GVariant) value = NULL;

  GLOBALS->settings_portal = g_dbus_proxy_new_for_bus_sync (G_BUS_TYPE_SESSION,
														 G_DBUS_PROXY_FLAGS_NONE,
														 NULL,
														 "org.freedesktop.portal.Desktop",
														 "/org/freedesktop/portal/desktop",
														 "org.freedesktop.portal.Settings",
														 NULL,
														 &error);
  if (error) {
	g_debug ("Settings portal not found: %s", error->message);

	return;
  }

  if (!_color_scheme_read (GLOBALS->settings_portal, &value))
	return;

  _color_scheme_set (value);

  g_signal_connect (GLOBALS->settings_portal, "g-signal",
					G_CALLBACK (_settings_portal_changed_cb), NULL);
}

#endif


/* = = = = = = = = = = = = = = = = = = = = */


const gchar *
homebank_app_get_config_dir (void)
{
	return config_dir;
}

const gchar *
homebank_app_get_images_dir (void)
{
	return images_dir;
}

const gchar *
homebank_app_get_pixmaps_dir (void)
{
	return pixmaps_dir;
}

const gchar *
homebank_app_get_locale_dir (void)
{
	return locale_dir;
}

const gchar *
homebank_app_get_help_dir (void)
{
	return help_dir;
}

const gchar *
homebank_app_get_datas_dir (void)
{
	return datas_dir;
}


/* build package paths at runtime */
static void
build_package_paths (void)
{
	DB( g_print("\n[homebank] build_package_paths\n") );

#ifdef G_OS_WIN32
	gchar *prefix;

	prefix = g_win32_get_package_installation_directory_of_module (NULL);
	locale_dir   = g_build_filename (prefix, "share", "locale", NULL);
	images_dir   = g_build_filename (prefix, "share", PACKAGE, "images", NULL);
	pixmaps_dir  = g_build_filename (prefix, "share", PACKAGE, "icons", NULL);
	help_dir	 = g_build_filename (prefix, "share", PACKAGE, "help", NULL);
	datas_dir	= g_build_filename (prefix, "share", PACKAGE, "datas", NULL);
	#ifdef PORTABLE_APP
		DB( g_print(" - app is portable under windows\n") );
		config_dir   = g_build_filename(prefix, "config", NULL);
	#else
		config_dir   = g_build_filename(g_get_user_config_dir(), HB_DATA_PATH, NULL);
	#endif
	g_free (prefix);
#else
	locale_dir   = g_build_filename (DATA_DIR, "locale", NULL);
	images_dir   = g_build_filename (SHARE_DIR, "images", NULL);
	pixmaps_dir  = g_build_filename (DATA_DIR, PACKAGE, "icons", NULL);
	help_dir	 = g_build_filename (DATA_DIR, PACKAGE, "help", NULL);
	datas_dir	= g_build_filename (DATA_DIR, PACKAGE, "datas", NULL);
	config_dir   = g_build_filename(g_get_user_config_dir(), HB_DATA_PATH, NULL);

	//#870023 Ubuntu packages the help files in "/usr/share/doc/homebank-data/help/" for some strange reason
	if(! g_file_test(help_dir, (G_FILE_TEST_EXISTS | G_FILE_TEST_IS_DIR)))
	{
		g_free (help_dir);
		help_dir = g_build_filename ("/usr", "share", "doc", "homebank-data", "help", NULL);
	}
#endif

	DB( g_print(" - config_dir : %s\n", config_dir) );
	DB( g_print(" - images_dir : %s\n", images_dir) );
	DB( g_print(" - pixmaps_dir: %s\n", pixmaps_dir) );
	DB( g_print(" - locale_dir : %s\n", locale_dir) );
	DB( g_print(" - help_dir   : %s\n", help_dir) );
	DB( g_print(" - datas_dir  : %s\n", datas_dir) );

}


guint32 homebank_app_date_get_julian(void)
{
GDate *date;
	//init global default value
	date = g_date_new();
	g_date_set_time_t(date, time(NULL));
	GLOBALS->today = g_date_get_julian(date);
	g_date_free(date);
	return GLOBALS->today;
}


static gboolean homebank_check_app_dir_migrate_file(gchar *srcdir, gchar *dstdir, gchar *filename)
{
gchar *srcpath;
gchar *dstpath;
gchar *buffer;
gsize length;
//GError *error = NULL;
gboolean retval = FALSE;

	DB( g_print("\n[homebank] check_app_dir_migrate_file\n") );

	srcpath = g_build_filename(srcdir, filename, NULL );
	dstpath = g_build_filename(dstdir, filename, NULL );

	if (g_file_get_contents (srcpath, &buffer, &length, NULL))
	{
		if(g_file_set_contents(dstpath, buffer, length, NULL))
		{
			//g_print("sould delete %s\n", srcpath);
			g_remove(srcpath);
			retval = TRUE;
		}
	}

	g_free(dstpath);
	g_free(srcpath);

	return retval;
}

/*
 * check/create user home directory for .homebank (HB_DATA_PATH) directory
 */
static void homebank_check_app_dir()
{
gchar *homedir;
const gchar *configdir;
gboolean exists;

	DB( g_print("\n[homebank] check_app_dir\n") );

	/* check if <userdir>/.config exist */
#ifndef G_OS_WIN32
	configdir = g_get_user_config_dir();
	DB( g_print(" - check '%s' exists\n", configdir) );
	if(!g_file_test(configdir, G_FILE_TEST_IS_DIR))
	{
		DB( g_print(" - creating dir\n") );
		g_mkdir(configdir, 0755);
	}
#endif

	/* check for XDG .config/homebank */
	configdir = homebank_app_get_config_dir();
	DB( g_print(" - config_dir is: '%s'\n", configdir) );
	exists = g_file_test(configdir, G_FILE_TEST_IS_DIR);
	if(exists)
	{
		/* just update folder security */
		DB( g_print(" - chmod 0700\n") );
		g_chmod(configdir, 0700);
		GLOBALS->first_run = FALSE;
	}
	else
	{
		/* create the config dir */
		DB( g_print(" - create config_dir\n") );
		g_mkdir(configdir, 0755);
		g_chmod(configdir, 0700);

		/* any old homedir configuration out there ? */
		homedir = g_build_filename(g_get_home_dir (), ".homebank", NULL );
		DB(	g_print(" - homedir is: '%s'\n", homedir) );

		exists = g_file_test(homedir, G_FILE_TEST_IS_DIR);
		if(exists)
		{
		gboolean f1, f2;
			/* we must do the migration properly */
			DB( g_print(" - migrate old 2 files\n") );
			f1 = homebank_check_app_dir_migrate_file(homedir, config_dir, "preferences");
			f2 = homebank_check_app_dir_migrate_file(homedir, config_dir, "lastopenedfiles");
			if(f1 && f2)
			{
				DB( g_print(" - removing old dir\n") );
				g_rmdir(homedir);
			}
		}
		g_free(homedir);
		GLOBALS->first_run = TRUE;
	}

}


static void free_package_paths(void)
{
	DB( g_print("\n[homebank] free package paths\n") );

	g_free (config_dir);
	g_free (images_dir);
	g_free (pixmaps_dir);
	g_free (locale_dir);
	g_free (help_dir);
}


/*
** application cleanup: icons, GList, memory
*/
static void homebank_cleanup(void)
{

	DB( g_print("\n[homebank] app cleanup\n") );

	//v3.4 save windows size/position
	homebank_pref_save();

	hbfile_cleanup(TRUE);

}



/*
** application setup: icons, GList, memory
*/
static gboolean homebank_setup()
{

	DB( g_print("\n[homebank] app setup\n") );



	// check homedir for .homebank dir
	homebank_check_app_dir();

	homebank_pref_setdefault();

	homebank_pref_load();

	homebank_pref_apply();
	
	hbfile_setup(TRUE);

	homebank_icon_theme_setup();

#ifdef G_OS_WIN32
	homebank_setup_theme_extensions();
#endif

	homebank_app_date_get_julian();


	#if MYDEBUG == 1

	g_print(" - user_name: %s\n", g_get_user_name ());
	g_print(" - real_name: %s\n", g_get_real_name ());
	g_print(" - user_cache_dir: %s\n", g_get_user_cache_dir());
	g_print(" - user_data_dir: %s\n", g_get_user_data_dir ());
	g_print(" - user_config_dir: %s\n", g_get_user_config_dir ());
	//g_print(" - system_data_dirs: %s\n", g_get_system_data_dirs ());
	//g_print(" - system_config_dirs: %s\n", g_get_system_config_dirs ());

	g_print(" - home_dir: %s\n", g_get_home_dir ());
	g_print(" - tmp_dir: %s\n", g_get_tmp_dir ());
	g_print(" - current_dir: %s\n", g_get_current_dir ());

	#endif

	return TRUE;
}


/* = = = = = = = = = = = = = = = = = = = = */
/* Main homebank */


static void
homebank_app_splash_hide(GtkWidget *splash)
{

	DB( g_print("\n[homebank] splash hide\n") );

	if( PREFS->showsplash == TRUE )
	{
		gtk_widget_hide (splash);
		gtk_window_destroy (GTK_WINDOW(splash));

		/* make sure splash is gone */
		hb_window_run_pending();
	}
}


static GtkWidget *
homebank_app_splash_show(void)
{
GtkWidget *window = NULL;
GtkWidget *frame, *vbox, *image;
//gchar *ver_string, *markup, *version;
gchar *pathfilename;

	DB( g_print("\n[homebank] splash show \n") );

	if( PREFS->showsplash == TRUE )
	{

		window = gtk_window_new(GTK_WINDOW_POPUP);	//TOPLEVEL DONT WORK
		gtk_window_set_type_hint (GTK_WINDOW (window), GDK_WINDOW_TYPE_HINT_SPLASHSCREEN);
		gtk_window_set_skip_taskbar_hint (GTK_WINDOW (window), TRUE);

		gtk_window_set_title (GTK_WINDOW (window), "HomeBank");
		gtk_window_set_position (GTK_WINDOW (window), GTK_WIN_POS_CENTER);

		pathfilename = g_build_filename(homebank_app_get_images_dir(), "splash.png", NULL);
		image = gtk_image_new_from_file((const gchar *)pathfilename);
		g_free(pathfilename);

		frame = gtk_frame_new (NULL);
		gtk_frame_set_shadow_type (GTK_FRAME (frame), GTK_SHADOW_OUT);
		gtk_window_set_child(GTK_WINDOW(window), frame);

		vbox = gtk_box_new (GTK_ORIENTATION_VERTICAL, 0);
		gtk_frame_set_child(GTK_FRAME(frame), vbox);


		/*
		ver_string = g_strdup_printf(_("Version: HomeBank-%s"), VERSION);

		version = gtk_label_new(NULL);
		markup = g_markup_printf_escaped(MARKUP_STRING, ver_string);
		gtk_label_set_markup(GTK_LABEL(version), markup);
		g_free(markup);
		g_free(ver_string);
		*/

		gtk_box_prepend (GTK_BOX (vbox), image);

		gtk_window_set_auto_startup_notification (FALSE);
		gtk_widget_show_all (window);
		gtk_window_set_auto_startup_notification (TRUE);

		// make sure splash is up
		hb_window_run_pending();

		DB( g_print(" splash screen %p\n", gtk_window_get_screen(GTK_WINDOW(window))) );

		g_usleep( G_USEC_PER_SEC * 1 );

	}
	
	return window;
}


static void
homebank_init_i18n (void)
{
	/*  We may change the locale later if the user specifies a language
	*  in the gimprc file. Here we are just initializing the locale
	*  according to the environment variables and set up the paths to
	*  the message catalogs.
	*/

	setlocale (LC_ALL, "");

	//#1842292 as indicated in gtk+ win32 gtk_get_localedir [1], bindtextdomain() is not
	// UTF-8 aware on win32, so it needs a filename in locale encoding
	#ifdef G_OS_WIN32
	gchar *localedir = g_win32_locale_filename_from_utf8 (homebank_app_get_locale_dir ());
	bindtextdomain (GETTEXT_PACKAGE, localedir);
	g_free(localedir);
	#else
	bindtextdomain (GETTEXT_PACKAGE, homebank_app_get_locale_dir ());
	#endif

//#ifdef HAVE_BIND_TEXTDOMAIN_CODESET
	bind_textdomain_codeset (GETTEXT_PACKAGE, "UTF-8");
//#endif

	textdomain (GETTEXT_PACKAGE);

	/*#ifdef G_OS_WIN32
	gchar *wl = g_win32_getlocale ();
	DB( g_print(" - win32 locale is '%s'\n", wl) );
	g_free(wl);
	#endif*/

}


GtkWindow *
homebank_app_find_window(gint needle_key)
{
GList *l = gtk_application_get_windows(GLOBALS->application);
GtkWindow *window = NULL;
gint key;

	DB( g_print("\n[homebank] app find window %d\n", needle_key) );

	g_return_val_if_fail(needle_key != 0, NULL);

	while (l != NULL)
	{
	GtkWindow *tmpwin = l->data;
		
		key  = GPOINTER_TO_INT(g_object_get_data(G_OBJECT(tmpwin), "key"));
		DB( g_print(" window: %p: key=%d '%s' \n", tmpwin, key, gtk_window_get_title(tmpwin)) );
		if( key == needle_key )
		{
			DB( g_print(" >found\n") );
			window = tmpwin;
			break;
		}
		l = g_list_next(l);
	}
	//no need to free glist
	return window;
}


//#2080864 handle version
static gint
homebank_app_handle_local_options (GApplication *application,
								GVariantDict *options)
{
	if (g_variant_dict_contains (options, "version"))
	{
		g_print ("%s - Version %s\n", g_get_application_name (), VERSION);
		return 0;
	}


	return -1;
}


static gint
homebank_app_commandline(GApplication *application, GApplicationCommandLine *cmdline, gpointer user_data)
{
GVariantDict *options;
gchar **remaining_args;

	DB( g_print("\n[homebank] app commandline\n") );


	options = g_application_command_line_get_options_dict (cmdline);

	/* Parse filenames */
	if (g_variant_dict_lookup (options, G_OPTION_REMAINING, "^a&ay", &remaining_args))
	{
	guint i = g_strv_length(remaining_args);

		if( i > 0 )
		{
			arg_filepath = g_strdup(remaining_args[0]);
			DB( g_print(" %s\n", arg_filepath) );
		}

		/*for (i = 0; remaining_args[i]; i++)
		{
			g_print(" args[%d] ='%s'\n", i, remaining_args[i]);
		}*/

		g_free (remaining_args);
	}
	
	g_application_activate (application);

	return 0;
}


static void
homebank_app_activate (GtkApplication *app, gpointer user_data)
{
GtkWidget *mainwin;
GtkWidget *splash = NULL;

	DB( g_print("\n[homebank] app activate\n") );

	//check if already a window opened
	if( GLOBALS->mainwindow != NULL )
	{
		//TODO change here to enable multiple ?
		gtk_window_present (GTK_WINDOW (GLOBALS->mainwindow));
	}
	else

	//if( homebank_app_commandline(app) == TRUE )
	{
		/* Pass NULL here since we parsed the gtk+ args already...
		 * from this point all we need a DISPLAY variable to be set.
		 */
		//gtk_init (NULL, NULL);

		//todo: sanity check gtk version here ?

		if( homebank_setup() )
		{
			GLOBALS->application = app;

			splash = homebank_app_splash_show();

			// change language to the user
			#if HB_PRIV_FORCE_ENUS == FALSE
			language_init (PREFS->language);
			#else
			// but not for unstable, to always get native app text
			language_init ("en-US");
			#endif

			g_set_application_name (APPLICATION_NAME);
			gtk_window_set_default_icon_name ("homebank");

			DB( g_print(" app creating window\n" ) );
			mainwin = (GtkWidget *)ui_wallet_window_new (NULL);
			if(mainwin)
			{
			gchar *rawfilepath = NULL;

				gtk_application_add_window(app, GTK_WINDOW(mainwin));
				
				// make sure mainwin is up
				hb_window_run_pending();

				DB( g_print(" mainwin screen %p\n", gtk_window_get_screen(GTK_WINDOW(mainwin))) );
				DB( g_print(" - app win should be visible\n" ) );
				//g_usleep( G_USEC_PER_SEC * 2 );

				homebank_app_splash_hide(splash);

				//priority here:
				// - command line file
				// - welcome dialog 
				// - last opened file, if welcome dialog was not opened
				if( arg_filepath != NULL )
				{
					DB( g_print(" command line open '%s'\n", arg_filepath ) );
					rawfilepath = g_strdup(arg_filepath);
					g_free (arg_filepath);
					ui_wallet_open_check(mainwin, rawfilepath);
				}
				else
				if( PREFS->showwelcome )
				{
					ui_wallet_update(mainwin, GINT_TO_POINTER(UF_TITLE+UF_SENSITIVE+UF_VISUAL));
					ui_wallet_action_help_welcome();
				}
				else
				if( PREFS->loadlast )
				{
					rawfilepath = homebank_lastopenedfiles_load();
					ui_wallet_open_check(mainwin, rawfilepath);
				}
				else
					/* update the mainwin display */
					ui_wallet_update(mainwin, GINT_TO_POINTER(UF_TITLE+UF_SENSITIVE+UF_VISUAL));

				//#2121204 check backup dir is reachable
				#ifndef PORTABLE_APP
				homebank_util_check_backup();
				#endif

				//5.7 test
				//homebank_util_check_update(mainwin);


				/* -- start: hack here to generate a big file -- */

				/* -- end: hack here to generate a big file -- */

				DB( g_print(" app gtk_main()\n" ) );
				gtk_main ();
		
				//DB( g_print(" app call destroy mainwin\n" ) );
				//gtk_window_destroy (GTK_WINDOW(mainwin));

			}

		}

		homebank_cleanup();
	}

}


static void
homebank_app_open (GApplication  *application,
				GFile		**files,
				gint		   n_files,
				const gchar   *hint)
{
	
	DB( g_print("\n[homebank] app open\n") );
	
	
}


static void
homebank_app_startup (GApplication *application)
{

	DB( g_print("\n[homebank] app startup\n") );

	//#2043886 
	//#ifdef PORTABLE_APP
	//g_object_set (gtk_settings_get_default (), "gtk-recent-files-enabled", FALSE, NULL);
	//#endif	

	GLOBALS->color_scheme = DEFAULT;
	#ifdef G_OS_UNIX
	init_portal();
	#endif
}


static void
homebank_app_shutdown (GApplication *app)
{
	
	DB( g_print("\n[homebank] app shutdown\n") );

}


//gtk4 future application id
// fr.free.mdoyen.HomeBank
//g_set_prgname("fr.free.mdoyen.HomeBank");

int
main (int argc, char *argv[])
{
GtkApplication *app;
int exit_code = EXIT_FAILURE;

	DB( g_print("\n--------------------------------" ) );
	DB( g_print("\n[homebank] main starting\n") );

	GLOBALS = g_malloc0(sizeof(struct HomeBank));
	PREFS   = g_malloc0(sizeof(struct Preferences));

	if( GLOBALS != NULL && PREFS != NULL )
	{

		build_package_paths();

		homebank_init_i18n();

		app = gtk_application_new ("fr.free.mdoyen.HomeBank", G_APPLICATION_HANDLES_COMMAND_LINE);
		//app = gtk_application_new ("fr.free.mdoyen.HomeBank", G_APPLICATION_FLAGS_NONE);

		g_application_add_main_option_entries (G_APPLICATION (app), option_entries);

		g_signal_connect (app, "startup"		, G_CALLBACK (homebank_app_startup)		, NULL);
		g_signal_connect (app, "command-line"	, G_CALLBACK (homebank_app_commandline)	, NULL);
		g_signal_connect (app, "handle-local-options"	, G_CALLBACK (homebank_app_handle_local_options)	, NULL);
		g_signal_connect (app, "activate"		, G_CALLBACK (homebank_app_activate)	, NULL);
		g_signal_connect (app, "open"			, G_CALLBACK (homebank_app_open)		, NULL);
		g_signal_connect (app, "shutdown"		, G_CALLBACK (homebank_app_shutdown)	, NULL);

		exit_code = g_application_run (G_APPLICATION (app), argc, argv);
		g_object_unref (app);

		free_package_paths();
		exit_code = EXIT_SUCCESS;
	}

	/* free our global datas */
	if( PREFS )
	{
		homebank_pref_free();
		g_free(PREFS);
	}

	if( GLOBALS )
	{
		g_free(GLOBALS);
	}

	return exit_code;
}


#ifdef G_OS_WIN32
/* In case we build this as a windows application */

#ifdef __GNUC__
#define _stdcall  __attribute__((stdcall))
#endif

int _stdcall
WinMain (struct HINSTANCE__ *hInstance,
	 struct HINSTANCE__ *hPrevInstance,
	 char			   *lpszCmdLine,
	 int				 nCmdShow)
{
	return main (__argc, __argv);
}
#endif

