8a3fbef1088f14a5fc10d537ab9be067c6868d0a
[claws.git] / src / prefs_spelling.c
1 /*
2  * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
3  * Copyright (C) 2002-2006 Hiroyuki Yamamoto & the Sylpheed-Claws team
4  *
5  * This program is free software; you can redistribute it and/or modify
6  * it under the terms of the GNU General Public License as published by
7  * the Free Software Foundation; either version 2 of the License, or
8  * (at your option) any later version.
9  *
10  * This program is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13  * GNU General Public License for more details.
14  *
15  * You should have received a copy of the GNU General Public License
16  * along with this program; if not, write to the Free Software
17  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
18  */
19
20 #ifdef HAVE_CONFIG_H
21 #  include "config.h"
22 #endif
23
24 #if USE_ASPELL
25
26 #include "defs.h"
27
28 #include <stdio.h>
29 #include <stdlib.h>
30
31 #include <glib.h>
32 #include <glib/gi18n.h>
33 #include <gtk/gtk.h>
34
35 #include "utils.h"
36 #include "prefs_common.h"
37 #include "prefs_gtk.h"
38
39 #include "gtk/gtkutils.h"
40 #include "gtk/prefswindow.h"
41 #include "gtk/filesel.h"
42 #include "gtk/colorsel.h"
43
44 typedef struct _SpellingPage
45 {
46         PrefsPage page;
47
48         GtkWidget *window;              /* do not modify */
49
50         GtkWidget *enable_aspell_checkbtn;
51         GtkWidget *recheck_when_changing_dict_checkbtn;
52         GtkWidget *check_while_typing_checkbtn;
53         GtkWidget *use_alternate_checkbtn;
54
55         GtkWidget *table;
56
57         GtkWidget *aspell_path_label;
58         GtkWidget *aspell_path_entry;
59         GtkWidget *aspell_path_select;
60
61         GtkWidget *default_dict_label;
62         GtkWidget *default_dict_optmenu;
63         GtkWidget *default_dict_optmenu_menu;
64
65         GtkWidget *sugmode_label;
66         GtkWidget *sugmode_optmenu;
67         GtkWidget *sugmode_optmenu_menu;
68
69         GtkWidget *misspelled_label;
70         GtkWidget *misspelled_colorbtn;
71         GtkWidget *misspelled_useblack_label;
72
73         gint       misspell_col;
74 } SpellingPage;
75
76 static void prefs_spelling_enable(SpellingPage *spelling, gboolean enable)
77 {
78         gtk_widget_set_sensitive(spelling->check_while_typing_checkbtn, enable);
79         gtk_widget_set_sensitive(spelling->recheck_when_changing_dict_checkbtn, enable);
80         gtk_widget_set_sensitive(spelling->use_alternate_checkbtn,      enable);
81         gtk_widget_set_sensitive(spelling->table,                       enable);
82 }
83
84 static void prefs_spelling_checkbtn_enable_aspell_toggle_cb
85         (GtkWidget *widget,
86          gpointer data)
87 {
88         SpellingPage *spelling = (SpellingPage *) data;
89         gboolean toggled;
90
91         toggled = gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(widget));
92         prefs_spelling_enable(spelling, toggled);
93 }
94
95 static void prefs_spelling_btn_aspell_path_clicked_cb(GtkWidget *widget,
96                                                      gpointer data)
97 {
98         SpellingPage *spelling = (SpellingPage *) data;
99         gchar *file_path;
100         GtkWidget *new_menu;
101
102         file_path = filesel_select_file_open(_("Select dictionaries location"),
103                                         prefs_common.aspell_path);
104         if (file_path != NULL) {
105                 gchar *tmp_path, *tmp;
106
107                 tmp_path = g_path_get_dirname(file_path);
108                 tmp = g_strdup_printf("%s%s", tmp_path, G_DIR_SEPARATOR_S);
109                 g_free(tmp_path);
110
111                 new_menu = gtkaspell_dictionary_option_menu_new(tmp);
112                 gtk_option_menu_set_menu(GTK_OPTION_MENU(spelling->default_dict_optmenu),
113                                          new_menu);
114
115                 gtk_entry_set_text(GTK_ENTRY(spelling->aspell_path_entry), tmp);
116                 /* select first one */
117                 gtk_option_menu_set_history(GTK_OPTION_MENU(
118                                         spelling->default_dict_optmenu), 0);
119         
120                 g_free(tmp);
121
122         }
123 }
124
125 static void prefs_spelling_colorsel(GtkWidget *widget,
126                                     gpointer data)
127 {
128         SpellingPage *spelling = (SpellingPage *) data;
129         gint rgbcolor;
130
131         rgbcolor = colorsel_select_color_rgb(_("Pick color for misspelled word"), 
132                                              spelling->misspell_col);
133         gtkut_set_widget_bgcolor_rgb(spelling->misspelled_colorbtn, rgbcolor);
134         spelling->misspell_col = rgbcolor;
135 }
136
137 #define SAFE_STRING(str) \
138         (str) ? (str) : ""
139
140 void prefs_spelling_create_widget(PrefsPage *_page, GtkWindow *window, gpointer data)
141 {
142         SpellingPage *prefs_spelling = (SpellingPage *) _page;
143
144         GtkWidget *vbox1, *vbox2;
145
146         GtkWidget *enable_aspell_checkbtn;
147         GtkWidget *check_while_typing_checkbtn;
148         GtkWidget *recheck_when_changing_dict_checkbtn;
149         GtkWidget *use_alternate_checkbtn;
150
151         GtkWidget *table;
152
153         GtkWidget *aspell_path_label;
154         GtkWidget *aspell_path_hbox;
155         GtkWidget *aspell_path_entry;
156         GtkWidget *aspell_path_select;
157
158         GtkWidget *default_dict_label;
159         GtkWidget *default_dict_optmenu;
160         GtkWidget *default_dict_optmenu_menu;
161
162         GtkWidget *sugmode_label;
163         GtkWidget *sugmode_optmenu;
164         GtkWidget *sugmode_optmenu_menu;
165
166         GtkWidget *misspelled_label;
167         GtkWidget *misspelled_hbox;
168         GtkWidget *misspelled_colorbtn;
169         GtkWidget *misspelled_useblack_label;
170
171         GtkTooltips *tooltips;
172
173         tooltips = gtk_tooltips_new ();
174
175         vbox1 = gtk_vbox_new (FALSE, VSPACING);
176         gtk_widget_show (vbox1);
177         gtk_container_set_border_width (GTK_CONTAINER (vbox1), VBOX_BORDER);
178
179         vbox2 = gtk_vbox_new (FALSE, 0);
180         gtk_widget_show (vbox2);
181         gtk_box_pack_start (GTK_BOX (vbox1), vbox2, FALSE, FALSE, 0);
182
183         enable_aspell_checkbtn = gtk_check_button_new_with_label(
184                         _("Enable spell checker"));
185         gtk_widget_show(enable_aspell_checkbtn);
186         gtk_box_pack_start(GTK_BOX(vbox2), enable_aspell_checkbtn, TRUE, TRUE, 0);
187
188         check_while_typing_checkbtn = gtk_check_button_new_with_label(
189                         _("Check while typing"));
190         gtk_widget_show(check_while_typing_checkbtn);
191         gtk_box_pack_start(GTK_BOX(vbox2), check_while_typing_checkbtn, TRUE, TRUE, 0);
192
193         recheck_when_changing_dict_checkbtn = gtk_check_button_new_with_label(
194                         _("Re-check message when changing dictionary"));
195         gtk_widget_show(recheck_when_changing_dict_checkbtn);
196         gtk_box_pack_start(GTK_BOX(vbox2), recheck_when_changing_dict_checkbtn, TRUE, TRUE, 0);
197
198         use_alternate_checkbtn = gtk_check_button_new_with_label(
199                         _("Enable alternate dictionary"));
200         gtk_widget_show(use_alternate_checkbtn);
201         gtk_box_pack_start(GTK_BOX(vbox2), use_alternate_checkbtn, TRUE, TRUE, 0);
202
203         gtk_tooltips_set_tip (tooltips, use_alternate_checkbtn, 
204                         _("Faster switching with last used dictionary"), NULL);
205
206         
207         table = gtk_table_new(4, 2, FALSE);
208         gtk_widget_show(table);
209         gtk_table_set_row_spacings(GTK_TABLE(table), 4);
210         gtk_table_set_col_spacings(GTK_TABLE(table), 8);
211         gtk_box_pack_start(GTK_BOX(vbox2), table, TRUE, TRUE, 0);
212
213         
214         aspell_path_label = gtk_label_new(_("Dictionaries path:"));
215         gtk_widget_show(aspell_path_label);
216         gtk_table_attach(GTK_TABLE(table), aspell_path_label, 0, 1, 0, 1,
217                         (GtkAttachOptions) (GTK_FILL),
218                         (GtkAttachOptions) (0), 0, 0);
219         gtk_label_set_justify(GTK_LABEL(aspell_path_label), GTK_JUSTIFY_RIGHT);
220         gtk_misc_set_alignment(GTK_MISC(aspell_path_label), 1, 0.5);
221
222         aspell_path_hbox = gtk_hbox_new(FALSE, 8);
223         gtk_widget_show(aspell_path_hbox);
224         gtk_table_attach(GTK_TABLE(table), aspell_path_hbox, 1, 2, 0, 1,
225                          (GtkAttachOptions) (GTK_EXPAND | GTK_FILL),
226                          (GtkAttachOptions) (GTK_FILL), 0, 0);
227
228         aspell_path_entry = gtk_entry_new();
229         gtk_widget_show(aspell_path_entry);
230         gtk_box_pack_start(GTK_BOX(aspell_path_hbox), aspell_path_entry, TRUE, TRUE, 0);
231         gtk_widget_set_size_request(aspell_path_entry, 30, 20);
232
233         aspell_path_select = gtkut_get_browse_directory_btn(_("_Browse"));
234         gtk_widget_show(aspell_path_select);
235         gtk_box_pack_start(GTK_BOX(aspell_path_hbox), aspell_path_select, FALSE, FALSE, 0);
236
237         
238         default_dict_label = gtk_label_new(_("Default dictionary:"));
239         gtk_widget_show(default_dict_label);
240         gtk_table_attach(GTK_TABLE(table), default_dict_label, 0, 1, 1, 2,
241                         (GtkAttachOptions) (GTK_FILL),
242                         (GtkAttachOptions) (0), 0, 0);
243         gtk_label_set_justify(GTK_LABEL(default_dict_label), GTK_JUSTIFY_RIGHT);
244         gtk_misc_set_alignment(GTK_MISC(default_dict_label), 1, 0.5);
245
246         default_dict_optmenu = gtk_option_menu_new();
247         gtk_widget_show(default_dict_optmenu);
248         gtk_table_attach(GTK_TABLE(table), default_dict_optmenu, 1, 2, 1, 2,
249                         (GtkAttachOptions) (GTK_FILL),
250                         (GtkAttachOptions) (0), 0, 0);
251         default_dict_optmenu_menu = gtk_menu_new();
252         gtk_option_menu_set_menu(GTK_OPTION_MENU(default_dict_optmenu),
253                         default_dict_optmenu_menu);
254
255         
256         sugmode_label = gtk_label_new(_("Default suggestion mode:"));
257         gtk_widget_show(sugmode_label);
258         gtk_table_attach(GTK_TABLE(table), sugmode_label, 0, 1, 2, 3,
259                         (GtkAttachOptions) (GTK_FILL),
260                         (GtkAttachOptions) (0), 0, 0);
261         gtk_label_set_justify(GTK_LABEL(sugmode_label), GTK_JUSTIFY_RIGHT);
262         gtk_misc_set_alignment(GTK_MISC(sugmode_label), 1, 0.5);
263
264         sugmode_optmenu = gtk_option_menu_new();
265         gtk_widget_show(sugmode_optmenu);
266         gtk_table_attach(GTK_TABLE(table), sugmode_optmenu, 1, 2, 2, 3,
267                         (GtkAttachOptions) (GTK_FILL),
268                         (GtkAttachOptions) (0), 0, 0);
269         sugmode_optmenu_menu = gtk_menu_new();
270         gtk_option_menu_set_menu(GTK_OPTION_MENU(sugmode_optmenu),
271                         sugmode_optmenu_menu);
272
273         
274         misspelled_label = gtk_label_new(_("Misspelled word color:"));
275         gtk_widget_show(misspelled_label);
276         gtk_table_attach(GTK_TABLE(table), misspelled_label, 0, 1, 3, 4,
277                          (GtkAttachOptions) (GTK_FILL),
278                          (GtkAttachOptions) (0), 0, 0);
279         gtk_label_set_justify(GTK_LABEL(misspelled_label), GTK_JUSTIFY_RIGHT);
280         gtk_misc_set_alignment(GTK_MISC(misspelled_label), 1, 0.5);
281
282         misspelled_hbox = gtk_hbox_new(FALSE, 0);
283         gtk_widget_show(misspelled_hbox);
284         gtk_table_attach(GTK_TABLE(table), misspelled_hbox, 1, 2, 3, 4,
285                          (GtkAttachOptions) (GTK_FILL),
286                          (GtkAttachOptions) (GTK_FILL), 0, 0);
287
288         misspelled_colorbtn = gtk_button_new_with_label("");
289         gtk_widget_show(misspelled_colorbtn);
290         gtk_box_pack_start(GTK_BOX(misspelled_hbox), misspelled_colorbtn, FALSE, FALSE, 0);
291         gtk_widget_set_size_request(misspelled_colorbtn, 30, 20);
292
293         misspelled_useblack_label = gtk_label_new(_("Use black to underline"));
294         gtkut_widget_set_small_font_size (misspelled_useblack_label);
295         gtk_widget_show(misspelled_useblack_label);
296         gtk_box_pack_start(GTK_BOX(misspelled_hbox), misspelled_useblack_label, TRUE, TRUE, 4);
297         gtk_misc_set_alignment(GTK_MISC(misspelled_useblack_label), 0, 0.5);
298         gtk_label_set_line_wrap(GTK_LABEL(misspelled_useblack_label), TRUE);
299
300
301         gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(enable_aspell_checkbtn),
302                         prefs_common.enable_aspell);
303         g_signal_connect(G_OBJECT(enable_aspell_checkbtn), "toggled",
304                          G_CALLBACK(prefs_spelling_checkbtn_enable_aspell_toggle_cb),
305                          prefs_spelling);
306         gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(check_while_typing_checkbtn),
307                         prefs_common.check_while_typing);
308         gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(recheck_when_changing_dict_checkbtn),
309                         prefs_common.recheck_when_changing_dict);
310         gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(use_alternate_checkbtn),
311                         prefs_common.use_alternate);
312         gtk_entry_set_text(GTK_ENTRY(aspell_path_entry), 
313                         SAFE_STRING(prefs_common.aspell_path));
314         g_signal_connect(G_OBJECT(aspell_path_select), "clicked", 
315                          G_CALLBACK(prefs_spelling_btn_aspell_path_clicked_cb),
316                          prefs_spelling);
317         gtk_option_menu_set_menu(GTK_OPTION_MENU(default_dict_optmenu),
318                                  gtkaspell_dictionary_option_menu_new(prefs_common.aspell_path));
319         gtkaspell_set_dictionary_menu_active_item(default_dict_optmenu, prefs_common.dictionary);
320         gtk_option_menu_set_menu(GTK_OPTION_MENU(sugmode_optmenu),
321                                  gtkaspell_sugmode_option_menu_new(prefs_common.aspell_sugmode));
322         gtkaspell_sugmode_option_menu_set(GTK_OPTION_MENU(sugmode_optmenu),
323                                           prefs_common.aspell_sugmode);
324         g_signal_connect(G_OBJECT(misspelled_colorbtn), "clicked",
325                          G_CALLBACK(prefs_spelling_colorsel), prefs_spelling);
326
327         prefs_spelling->misspell_col = prefs_common.misspelled_col;
328         gtkut_set_widget_bgcolor_rgb(misspelled_colorbtn, prefs_spelling->misspell_col);
329
330         prefs_spelling->window                  = GTK_WIDGET(window);
331         prefs_spelling->enable_aspell_checkbtn  = enable_aspell_checkbtn;
332         prefs_spelling->check_while_typing_checkbtn
333                 = check_while_typing_checkbtn;
334         prefs_spelling->recheck_when_changing_dict_checkbtn
335                 = recheck_when_changing_dict_checkbtn;
336         prefs_spelling->use_alternate_checkbtn  = use_alternate_checkbtn;
337         prefs_spelling->table                   = table;
338         prefs_spelling->aspell_path_label       = aspell_path_label;
339         prefs_spelling->aspell_path_entry       = aspell_path_entry;
340         prefs_spelling->aspell_path_select      = aspell_path_select;
341         prefs_spelling->default_dict_label      = default_dict_label;
342         prefs_spelling->default_dict_optmenu    = default_dict_optmenu;
343         prefs_spelling->default_dict_optmenu_menu
344                 = default_dict_optmenu_menu;
345         prefs_spelling->sugmode_label           = sugmode_label;
346         prefs_spelling->sugmode_optmenu         = sugmode_optmenu;
347         prefs_spelling->sugmode_optmenu_menu    = sugmode_optmenu_menu;
348         prefs_spelling->misspelled_label        = misspelled_label;
349         prefs_spelling->misspelled_colorbtn     = misspelled_colorbtn;
350         prefs_spelling->misspelled_useblack_label
351                 = misspelled_useblack_label;
352
353         prefs_spelling->page.widget = vbox1;
354
355         prefs_spelling_enable(prefs_spelling, prefs_common.enable_aspell);
356 }
357
358 void prefs_spelling_save(PrefsPage *_page)
359 {
360         SpellingPage *spelling = (SpellingPage *) _page;
361
362         prefs_common.enable_aspell =
363                 gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(spelling->enable_aspell_checkbtn));
364         prefs_common.check_while_typing =
365                 gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(spelling->check_while_typing_checkbtn));
366         prefs_common.recheck_when_changing_dict =
367                 gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(spelling->recheck_when_changing_dict_checkbtn));
368         prefs_common.use_alternate =
369                 gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(spelling->use_alternate_checkbtn));
370
371         g_free(prefs_common.aspell_path);
372         prefs_common.aspell_path =
373                 gtk_editable_get_chars(GTK_EDITABLE(spelling->aspell_path_entry), 0, -1);
374
375         g_free(prefs_common.dictionary);
376         prefs_common.dictionary = 
377                 gtkaspell_get_dictionary_menu_active_item(
378                         gtk_option_menu_get_menu(
379                                 GTK_OPTION_MENU(
380                                         spelling->default_dict_optmenu)));
381
382         prefs_common.aspell_sugmode =
383                 gtkaspell_get_sugmode_from_option_menu(
384                         GTK_OPTION_MENU(spelling->sugmode_optmenu));
385
386         prefs_common.misspelled_col = spelling->misspell_col;
387 }
388
389 static void prefs_spelling_destroy_widget(PrefsPage *_page)
390 {
391         /* SpellingPage *spelling = (SpellingPage *) _page; */
392
393 }
394
395 SpellingPage *prefs_spelling;
396
397 void prefs_spelling_init(void)
398 {
399         SpellingPage *page;
400         static gchar *path[3];
401         const gchar* language = NULL;
402         
403         path[0] = _("Compose");
404         path[1] = _("Spell Checking");
405         path[2] = NULL;
406
407         page = g_new0(SpellingPage, 1);
408         page->page.path = path;
409         page->page.create_widget = prefs_spelling_create_widget;
410         page->page.destroy_widget = prefs_spelling_destroy_widget;
411         page->page.save_page = prefs_spelling_save;
412         page->page.weight = 180.0;
413
414         prefs_gtk_register_page((PrefsPage *) page);
415         prefs_spelling = page;
416         
417         language = g_getenv("LANG");
418         if (language == NULL)
419                 language = "en";
420         else if (!strcmp(language, "POSIX") || !strcmp(language, "C"))
421                 language = "en";
422         
423         if (!prefs_common.dictionary)
424                 prefs_common.dictionary = g_strdup_printf("%s%s",
425                                                 prefs_common.aspell_path,
426                                                 language);
427         if (!strlen(prefs_common.dictionary)
428         ||  !strcmp(prefs_common.dictionary,"(None"))
429                 prefs_common.dictionary = g_strdup_printf("%s%s",
430                                                 prefs_common.aspell_path,
431                                                 language);
432         if (strcasestr(prefs_common.dictionary,".utf"))
433                 *(strcasestr(prefs_common.dictionary,".utf")) = '\0';
434         if (strstr(prefs_common.dictionary,"@"))
435                 *(strstr(prefs_common.dictionary,"@")) = '\0';
436 }
437
438 void prefs_spelling_done(void)
439 {
440         prefs_gtk_unregister_page((PrefsPage *) prefs_spelling);
441         g_free(prefs_spelling);
442 }
443
444 #endif /* USE_ASPELL */