+static void psppire_output_window_print (PsppireOutputWindow *window);
+
+
+static void
+export_output (PsppireOutputWindow *window, struct string_map *options,
+ const char *format)
+{
+ string_map_insert (options, "format", format);
+ psppire_output_view_export (window->view, options);
+}
+
+
+struct file_types
+{
+ const gchar *label;
+ const gchar *ext;
+};
+
+enum
+ {
+ FT_AUTO = 0,
+ FT_PDF,
+ FT_HTML,
+ FT_ODT,
+ FT_TXT,
+ FT_PS,
+ FT_CSV,
+ n_FT
+ };
+
+#define N_EXTENSIONS (n_FT - 1)
+
+struct file_types ft[n_FT] = {
+ {N_("Infer file type from extension"), NULL},
+ {N_("PDF (*.pdf)"), ".pdf"},
+ {N_("HTML (*.html)"), ".html"},
+ {N_("OpenDocument (*.odt)"), ".odt"},
+ {N_("Text (*.txt)"), ".txt"},
+ {N_("PostScript (*.ps)"), ".ps"},
+ {N_("Comma-Separated Values (*.csv)"), ".csv"}
+};
+
+
+static void
+on_combo_change (GtkFileChooser *chooser)
+{
+ gboolean sensitive = FALSE;
+ GtkWidget *combo = gtk_file_chooser_get_extra_widget (chooser);
+
+ int x = 0;
+ gchar *fn = gtk_file_chooser_get_filename (chooser);
+
+ if (combo && gtk_widget_get_realized (combo))
+ x = gtk_combo_box_get_active (GTK_COMBO_BOX (combo));
+
+ if (fn == NULL)
+ {
+ sensitive = FALSE;
+ }
+ else
+ {
+ gint i;
+ if ( x != 0 )
+ sensitive = TRUE;
+
+ for (i = 1 ; i < N_EXTENSIONS ; ++i)
+ {
+ if ( g_str_has_suffix (fn, ft[i].ext))
+ {
+ sensitive = TRUE;
+ break;
+ }
+ }
+ }
+
+ g_free (fn);
+
+ gtk_dialog_set_response_sensitive (GTK_DIALOG (chooser), GTK_RESPONSE_ACCEPT, sensitive);
+}
+
+
+static void
+on_file_chooser_change (GObject *w, GParamSpec *pspec, gpointer data)
+{
+
+ GtkFileChooser *chooser = data;
+ const gchar *name = g_param_spec_get_name (pspec);
+
+ if ( ! gtk_widget_get_realized (GTK_WIDGET (chooser)))
+ return;
+
+ /* Ignore this one. It causes recursion. */
+ if ( 0 == strcmp ("tooltip-text", name))
+ return;
+
+ on_combo_change (chooser);
+}
+
+
+/* Recursively descend all the children of W, connecting
+ to their "notify" signal */
+static void
+iterate_widgets (GtkWidget *w, gpointer data)
+{
+ if ( GTK_IS_CONTAINER (w))
+ gtk_container_forall (GTK_CONTAINER (w), iterate_widgets, data);
+ else
+ g_signal_connect (w, "notify", G_CALLBACK (on_file_chooser_change), data);
+}
+
+
+
+static GtkListStore *
+create_file_type_list (void)
+{
+ int i;
+ GtkTreeIter iter;
+ GtkListStore *list = gtk_list_store_new (2, G_TYPE_STRING, G_TYPE_STRING);
+
+ for (i = 0 ; i < n_FT ; ++i)
+ {
+ gtk_list_store_append (list, &iter);
+ gtk_list_store_set (list, &iter,
+ 0, gettext (ft[i].label),
+ 1, ft[i].ext,
+ -1);
+ }
+
+ return list;
+}
+
+static void
+psppire_output_window_export (PsppireOutputWindow *window)
+{
+ gint response;
+ GtkWidget *combo;
+ GtkListStore *list;
+
+ GtkFileChooser *chooser;
+
+ GtkWidget *dialog = gtk_file_chooser_dialog_new (_("Export Output"),
+ GTK_WINDOW (window),
+ GTK_FILE_CHOOSER_ACTION_SAVE,
+ GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL,
+ GTK_STOCK_SAVE, GTK_RESPONSE_ACCEPT,
+ NULL);
+
+ g_object_set (dialog, "local-only", FALSE, NULL);
+
+ chooser = GTK_FILE_CHOOSER (dialog);
+
+ list = create_file_type_list ();
+
+ combo = gtk_combo_box_new_with_model (GTK_TREE_MODEL (list));
+
+
+ {
+ /* Create text cell renderer */
+ GtkCellRenderer *cell = gtk_cell_renderer_text_new();
+ gtk_cell_layout_pack_start (GTK_CELL_LAYOUT (combo), cell, FALSE );
+
+ gtk_cell_layout_add_attribute (GTK_CELL_LAYOUT (combo), cell, "text", 0);
+ }
+
+ g_signal_connect_swapped (combo, "changed", G_CALLBACK (on_combo_change), chooser);
+
+ gtk_combo_box_set_active (GTK_COMBO_BOX (combo), 0);
+
+ gtk_file_chooser_set_extra_widget (chooser, combo);
+
+ /* This kludge is necessary because there is no signal to tell us
+ when the candidate filename of a GtkFileChooser has changed */
+ gtk_container_forall (GTK_CONTAINER (dialog), iterate_widgets, dialog);
+
+
+ gtk_file_chooser_set_do_overwrite_confirmation (chooser, TRUE);
+
+ response = gtk_dialog_run (GTK_DIALOG (dialog));
+
+ if ( response == GTK_RESPONSE_ACCEPT )
+ {
+ gint file_type = gtk_combo_box_get_active (GTK_COMBO_BOX (combo));
+ gchar *filename = gtk_file_chooser_get_filename (chooser);
+ struct string_map options;
+
+ g_return_if_fail (filename);
+
+ if (file_type == FT_AUTO)
+ {
+ /* If the "Infer file type from extension" option was chosen,
+ search for the respective type in the list.
+ (It's a O(n) search, but fortunately n is small). */
+ gint i;
+ for (i = 1 ; i < N_EXTENSIONS ; ++i)
+ {
+ if ( g_str_has_suffix (filename, ft[i].ext))
+ {
+ file_type = i;
+ break;
+ }
+ }
+ }
+ else if (! g_str_has_suffix (filename, ft[file_type].ext))
+ {
+ /* If an explicit document format was chosen, and if the chosen
+ filename does not already have that particular "extension",
+ then append it.
+ */
+
+ gchar *of = filename;
+ filename = g_strconcat (filename, ft[file_type].ext, NULL);
+ g_free (of);
+ }
+
+ string_map_init (&options);
+ string_map_insert (&options, "output-file", filename);
+
+ switch (file_type)
+ {
+ case FT_PDF:
+ export_output (window, &options, "pdf");
+ break;
+ case FT_HTML:
+ export_output (window, &options, "html");
+ break;
+ case FT_ODT:
+ export_output (window, &options, "odt");
+ break;
+ case FT_PS:
+ export_output (window, &options, "ps");
+ break;
+ case FT_CSV:
+ export_output (window, &options, "csv");
+ break;
+
+ case FT_TXT:
+ string_map_insert (&options, "headers", "false");
+ string_map_insert (&options, "paginate", "false");
+ string_map_insert (&options, "squeeze", "true");
+ string_map_insert (&options, "emphasis", "none");
+ string_map_insert (&options, "charts", "none");
+ string_map_insert (&options, "top-margin", "0");
+ string_map_insert (&options, "bottom-margin", "0");
+ export_output (window, &options, "txt");
+ break;
+ default:
+ g_assert_not_reached ();
+ }
+
+ string_map_destroy (&options);
+
+ free (filename);
+ }
+
+ gtk_widget_destroy (dialog);
+}