[gnumeric] Set print file name. [#649711]

[Andreas J. Guelzow <guelzow src gnome org>]

commit b17d40705189f109809cb2fd9176240a88221d68
Author: Andreas J Guelzow <aguelzow pyrshep ca>
Date:   Sun May 8 14:43:10 2011 -0600

    Set print file name. [#649711]
    
    2011-05-08  Andreas J. Guelzow <aguelzow pyrshep ca>
    
    	* src/print.c (gnm_print_uri_change_extension): new
    	(gnm_print_sheet): set GTK_PRINT_SETTINGS_OUTPUT_URI

 ChangeLog   |    5 +++++
 NEWS        |    1 +
 src/print.c |   40 ++++++++++++++++++++++++++++++++++++++++
 3 files changed, 46 insertions(+), 0 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 99b68ab..143bd08 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2011-05-08  Andreas J. Guelzow <aguelzow pyrshep ca>
 
+	* src/print.c (gnm_print_uri_change_extension): new
+	(gnm_print_sheet): set GTK_PRINT_SETTINGS_OUTPUT_URI
+
+2011-05-08  Andreas J. Guelzow <aguelzow pyrshep ca>
+
 	* src/auto-format.c (do_af_suggest_list): use GNM_*_KILL_SWITCH_WARNING
 	* src/print.c (compute_pages): handle PRINT_SAVED_INFO
 	(gnm_print_sheet): ditto
diff --git a/NEWS b/NEWS
index 92a588b..22409d2 100644
--- a/NEWS
+++ b/NEWS
@@ -12,6 +12,7 @@ Andreas:
 	* Fix pdf docs. [#649591]
 	* Handle MS Works formula import. [#649406]
 	* Restore Gnumeric print range. [#649714]
+	* Set print file name. [#649711]
 
 Morten:
 	* Fix problems with localized function docs.
diff --git a/src/print.c b/src/print.c
index 4987838..f9be03a 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1574,6 +1574,31 @@ cb_delete_and_free (char *tmp_file_name)
 	}
 }
 
+static gchar *
+gnm_print_uri_change_extension (char const *uri, GtkPrintSettings* settings)
+{
+	const gchar *ext = gtk_print_settings_get
+		(settings,
+		 GTK_PRINT_SETTINGS_OUTPUT_FILE_FORMAT);
+	gchar *base;
+	gchar *used_ext;
+	gint strip;
+	gchar *res;
+	gint uri_len = strlen(uri);
+
+	g_return_val_if_fail (ext != NULL, NULL);
+	
+	base     = g_path_get_basename (uri);
+	used_ext = strrchr (base, '.');
+	if (used_ext == NULL)
+		return g_strconcat (uri, ".", ext, NULL);
+	strip = strlen (base) - (used_ext - base);
+	res = g_strndup (uri, uri_len - strip + 1 + strlen (ext));
+	res[uri_len - strip] = '.';
+	strcpy (res + uri_len - strip + 1, ext);
+	return res;
+}
+
 void
 gnm_print_sheet (WorkbookControl *wbc, Sheet *sheet,
 		 gboolean preview, PrintRange default_range,
@@ -1593,6 +1618,7 @@ gnm_print_sheet (WorkbookControl *wbc, Sheet *sheet,
 				      PRINT_ALL_SHEETS, PRINT_ACTIVE_SHEET,
 				      PRINT_SHEET_SELECTION, PRINT_ACTIVE_SHEET,
 				      PRINT_SHEET_SELECTION_IGNORE_PRINTAREA};
+	GODoc *doc = wb_control_get_doc (wbc);
 
 #ifdef PREVIEW_VIA_PDF
 	preview_via_pdf = preview;
@@ -1625,6 +1651,20 @@ gnm_print_sheet (WorkbookControl *wbc, Sheet *sheet,
 	pi->pr = default_range;
 	gtk_print_settings_set_use_color (settings,
 					  !sheet->print_info->print_black_and_white);
+
+	/* We should be setting the output file name to somethig reasonable */
+	if (doc->uri != NULL 
+	    && g_ascii_strncasecmp (doc->uri, "file:///", 8) == 0) {
+		gchar *output_uri 
+			= gnm_print_uri_change_extension (doc->uri, settings);
+		if (output_uri != NULL) {
+			gtk_print_settings_set (settings, 
+						GTK_PRINT_SETTINGS_OUTPUT_URI,
+						output_uri);
+			g_free (output_uri);
+		}
+	}
+
 	gtk_print_operation_set_print_settings (print, settings);
 	g_object_unref (settings);