d48ef99966ce052f3de37b80e6acaf19eca9a895
[claws.git] / src / prefs_themes.c
1 /*
2  * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
3  * Copyright (C) 2003-2004 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
18  */
19
20 #ifdef HAVE_CONFIG_H
21 #  include <config.h>
22 #endif
23
24 #include "defs.h"
25
26 #include <stdio.h>
27 #include <stdlib.h>
28 #include <string.h>
29 #include <sys/stat.h>
30
31 #include <glib.h>
32 #include <gtk/gtk.h>
33
34 #include "intl.h"
35 #include "utils.h"
36 #include "codeconv.h"
37 #include "prefs_common.h"
38 #include "prefs_gtk.h"
39
40 #include "gtk/gtkutils.h"
41 #include "gtk/prefswindow.h"
42 #include "gtk/filesel.h"
43
44 #include "stock_pixmap.h"
45 #include "mainwindow.h"
46 #include "compose.h"
47 #include "alertpanel.h"
48
49 #define IS_CURRENT_THEME(path)  (strcmp(prefs_common.pixmap_theme_path, path) == 0)
50 #define IS_INTERNAL_THEME(path) (strcmp(DEFAULT_PIXMAP_THEME, path) == 0)
51 #define IS_SYSTEM_THEME(path)   (prefs_themes_is_system_theme(path))
52
53 #define PREVIEW_ICONS 7
54
55 typedef struct _ThemesPage
56 {
57         PrefsPage page;
58
59         GtkWidget *window;              /* do not modify */
60
61         GtkWidget *op_menu;
62         GtkWidget *btn_install;
63         GtkWidget *btn_more;
64         GtkWidget *global;
65
66         GtkWidget *name;
67         GtkWidget *author;
68         GtkWidget *url;
69         GtkWidget *status;
70         
71         GtkWidget *icons[PREVIEW_ICONS];
72         
73         GtkWidget *btn_use;
74         GtkWidget *btn_remove;
75
76         GdkPixmap *pixmaps[PREVIEW_ICONS];
77         GdkBitmap *masks[PREVIEW_ICONS];
78
79         /* gchar     *theme_path; */
80 } ThemesPage;
81
82 typedef struct _ThemeInfo
83 {
84         gchar *name;
85         gchar *author;
86         gchar *url;
87         gchar *status;
88 } ThemeInfo;
89
90 typedef struct _ThemeName
91 {
92         gchar *name;
93         GList *item;
94 } ThemeName;
95
96 typedef struct _ThemesData
97 {
98         GList      *themes;
99         GList      *names;
100         gchar      *displayed;
101         ThemesPage *page;
102 } ThemesData;
103
104 typedef void (*FileFunc) (const gchar *filename, gpointer data);
105
106 typedef struct _DirInfo {
107         gint bytes;
108         gint files;
109         gint pixms;
110 } DirInfo;
111
112 typedef struct _CopyInfo {
113         gchar *dest;
114         gchar *status;
115 } CopyInfo;
116
117 static ThemesData *prefs_themes_data;
118
119 StockPixmap prefs_themes_icons[PREVIEW_ICONS] = { 
120         STOCK_PIXMAP_MAIL,
121         STOCK_PIXMAP_MAIL_RECEIVE, 
122         STOCK_PIXMAP_DOWN_ARROW, 
123         STOCK_PIXMAP_MAIL_SEND_QUEUE, 
124         STOCK_PIXMAP_BOOK, 
125         STOCK_PIXMAP_MIME_TEXT_HTML, 
126         STOCK_PIXMAP_PRIVACY_PASSED
127 };
128
129
130
131 static void prefs_themes_btn_use_clicked_cb     (GtkWidget *widget, gpointer data);
132 static void prefs_themes_btn_remove_clicked_cb  (GtkWidget *widget, gpointer data);
133 static void prefs_themes_btn_install_clicked_cb (GtkWidget *widget, gpointer data);
134 static void prefs_themes_btn_more_clicked_cb    (GtkWidget *widget, gpointer data);
135 static void prefs_themes_menu_item_activated_cb (GtkWidget *widget, gpointer data);
136
137 static void prefs_themes_update_buttons         (const ThemesData *tdata);
138 static void prefs_themes_display_global_stats   (const ThemesData *tdata);
139 static void prefs_themes_get_theme_info         (ThemesData *tdata);
140 static void prefs_themes_display_theme_info     (ThemesData *tdata, const ThemeInfo *info);
141 static void prefs_themes_get_themes_and_names   (ThemesData *tdata);
142 static void prefs_themes_free_names             (ThemesData *tdata);
143
144 static void prefs_themes_set_themes_menu        (GtkOptionMenu *opmenu, const ThemesData *tdata);
145
146 static gchar *prefs_themes_get_theme_stats      (const gchar *dirname);
147 static gboolean prefs_themes_is_system_theme    (const gchar *dirname);
148
149 static void prefs_themes_create_widget          (PrefsPage *page, GtkWindow *window, gpointer data);
150 static void prefs_themes_destroy_widget         (PrefsPage *page);
151 static void prefs_themes_save                   (PrefsPage *page);
152
153 static void prefs_themes_foreach_file           (const gchar *dirname, const FileFunc func, gpointer data);
154 static void prefs_themes_file_stats             (const gchar *filename, gpointer data);
155 static void prefs_themes_file_remove            (const gchar *filename, gpointer data);
156 static void prefs_themes_file_install           (const gchar *filename, gpointer data);
157
158
159
160 static void prefs_themes_file_stats(const gchar *filename, gpointer data)
161 {
162         struct stat s;
163         DirInfo    *di = (DirInfo *)data;
164         gint        len;
165         
166         if (0 == stat(filename, &s) && 0 != S_ISREG(s.st_mode)) {
167                 di->bytes += s.st_size;
168                 di->files++;
169                 len = strlen(filename);
170                 if (len > 4) {
171                         if (filename[len - 1] == 'm' && filename[len - 2] == 'p' &&
172                             filename[len - 3] == 'x' && filename[len - 4] == '.')
173                                 di->pixms++;
174                 }
175         }
176 }
177         
178 static void prefs_themes_file_remove(const gchar *filename, gpointer data)
179 {
180         gchar **status = (gchar **)data;
181         gchar *base;
182         
183         if ((*status) != NULL)
184                 return;
185         
186         base = g_path_get_basename(filename);
187         if (TRUE == is_dir_exist(filename)) {
188                 if (!((base[0] == '.') || (base[0] == '.' && base[1] == '.')))
189                         g_warning("prefs_themes_file_remove(): subdir in theme dir skipped.\n");
190         }
191         else if (0 != unlink(filename)) {
192                 (*status) = g_strdup(filename);
193         }
194         g_free(base);
195 }
196
197 static void prefs_themes_file_install(const gchar *filename, gpointer data)
198 {
199         CopyInfo *ci = (CopyInfo *)data;
200         gchar *base;
201         
202         if (ci->status != NULL)
203                 return;
204         
205         base = g_path_get_basename(filename);
206         if (TRUE == is_dir_exist(filename)) {
207                 if (!((base[0] == '.') || (base[0] == '.' && base[1] == '.')))
208                         g_warning("prefs_themes_file_install(): subdir in theme dir skipped.\n");
209         }
210         else {
211                 gchar *fulldest;
212                 
213                 fulldest = g_strconcat(ci->dest, G_DIR_SEPARATOR_S, base, NULL);
214                 
215                 if (0 != copy_file(filename, fulldest, FALSE)) {
216                         ci->status = g_strdup(filename);
217                 }
218                 g_free(fulldest);
219         }
220         g_free(base);
221 }
222
223 static void prefs_themes_foreach_file(const gchar *dirname, const FileFunc func, gpointer data)
224 {
225         struct dirent *d;
226         DIR           *dp;
227
228         g_return_if_fail(dirname != NULL);
229         g_return_if_fail(func != NULL);
230         
231         if ((dp = opendir(dirname)) == NULL) {
232                 debug_print("directory %s not found", dirname);
233                 return;
234         }
235
236         while ((d = readdir(dp)) != NULL) {
237                 gchar *entry;
238                 gchar *fullentry;
239
240                 entry     = d->d_name;
241                 fullentry = g_strconcat(dirname, G_DIR_SEPARATOR_S, entry, NULL);
242
243                 (*func)(fullentry, data);
244                 
245                 g_free(fullentry);
246         }       
247 }
248
249 static gboolean prefs_themes_is_system_theme(const gchar *dirname)
250 {
251         gint len;
252         
253         g_return_val_if_fail(dirname != NULL, FALSE);
254
255         len = strlen(PACKAGE_DATA_DIR);
256         if (strlen(dirname) > len && 0 == strncmp(dirname, PACKAGE_DATA_DIR, len))
257                 return TRUE;
258         
259         return FALSE;
260 }
261
262 static void prefs_themes_set_themes_menu(GtkOptionMenu *opmenu, const ThemesData *tdata)
263 {
264         GList     *themes = tdata->names;
265         GtkWidget *menu;
266         GtkWidget *item;
267         gint       i = 0, active = 0;
268
269         g_return_if_fail(opmenu != NULL);
270         
271         gtk_option_menu_remove_menu(opmenu);
272         
273         menu = gtk_menu_new ();
274         while (themes != NULL) {
275                 ThemeName *tname = (ThemeName *)(themes->data);
276                 gchar     *tpath = (gchar *)(tname->item->data);
277                 
278                 item = gtk_menu_item_new_with_label(tname->name);
279                 gtk_widget_show(item);
280                 g_signal_connect(G_OBJECT(item), "activate",
281                                  G_CALLBACK(prefs_themes_menu_item_activated_cb),
282                                  tname->item->data);
283                 gtk_menu_append(GTK_MENU(menu), item);
284
285                 if (tdata->displayed != NULL && tdata->displayed == tpath)
286                         active = i;
287
288                 themes = g_list_next(themes);
289                 ++i;
290         }
291         
292         gtk_menu_set_active(GTK_MENU(menu), active);
293         gtk_option_menu_set_menu (opmenu, menu);
294 }
295
296 static void prefs_themes_get_themes_and_names(ThemesData *tdata)
297 {
298         GList *tpaths;
299         
300         g_return_if_fail(tdata != NULL);
301         
302         if (tdata->themes != NULL)
303                 stock_pixmap_themes_list_free(tdata->themes);
304         if (tdata->names != NULL)
305                 prefs_themes_free_names(tdata);
306         
307         tdata->themes = stock_pixmap_themes_list_new();
308         
309         tpaths = tdata->themes;
310         while (tpaths != NULL) {
311                 ThemeName *name = g_new0(ThemeName, 1);
312                 gchar *sname = g_path_get_basename((const gchar *)(tpaths->data));
313                 
314                 if (IS_INTERNAL_THEME(sname))
315                         name->name = g_strdup(_("Default internal theme"));
316                 else
317                         name->name = g_strdup(sname);
318                 name->item = tpaths;
319                         
320                 tdata->names = g_list_append(tdata->names, name);
321                 tpaths = g_list_next(tpaths);
322                 g_free(sname);  
323         }
324 }
325
326 void prefs_themes_init(void)
327 {
328         ThemesData   *tdata;
329         ThemesPage   *page;
330         GList        *tpaths;
331         static gchar *path[3];
332
333         path[0] = _("Display");
334         path[1] = _("Themes");
335         path[2] = NULL;
336
337         debug_print("Creating prefereces for themes...\n");
338         
339         tdata = g_new0(ThemesData, 1);
340         prefs_themes_data = tdata;
341
342         prefs_themes_get_themes_and_names(tdata);
343         
344         page = g_new0(ThemesPage, 1);
345         
346         page->page.path = path;
347         page->page.create_widget = prefs_themes_create_widget;
348         page->page.destroy_widget = prefs_themes_destroy_widget;
349         page->page.save_page = prefs_themes_save;
350         page->page.weight = 15.0;
351         prefs_gtk_register_page((PrefsPage *) page);
352
353         tdata->page = page;
354
355         tpaths = g_list_first(tdata->themes);
356         tdata->displayed = (gchar *)(tpaths->data);
357 }
358
359 static void prefs_themes_free_names(ThemesData *tdata)
360 {
361         GList *names;
362         
363         names = tdata->names;
364         while (names != NULL) {
365                 ThemeName *tn = (ThemeName *)(names->data);
366                 
367                 tn->item = NULL;
368                 g_free(tn->name);
369                 g_free(tn);
370                 
371                 names = g_list_next(names);
372         }
373         g_list_free(names);
374         tdata->names = NULL;
375 }
376
377 void prefs_themes_done(void)
378 {
379         ThemesData *tdata = prefs_themes_data;
380
381         debug_print("Finished prefereces for themes.\n");
382         
383         stock_pixmap_themes_list_free(tdata->themes);
384         prefs_themes_free_names(tdata); 
385         g_free(tdata->page);
386         g_free(tdata);
387 }
388
389 static void prefs_themes_btn_use_clicked_cb(GtkWidget *widget, gpointer data)
390 {
391         ThemesData *tdata = prefs_themes_data;
392         gchar      *theme_str;
393
394         theme_str = tdata->displayed;
395         
396         if (prefs_common.pixmap_theme_path != NULL)
397                 g_free(prefs_common.pixmap_theme_path);
398         
399         prefs_common.pixmap_theme_path = g_strdup(theme_str);
400        
401         main_window_reflect_prefs_all_real(TRUE);
402         compose_reflect_prefs_pixmap_theme();
403        
404         prefs_themes_update_buttons(tdata);
405 }
406
407 static void prefs_themes_btn_remove_clicked_cb(GtkWidget *widget, gpointer data)
408 {
409         ThemesData *tdata = prefs_themes_data;
410         gchar      *theme_str;
411         gchar      *alert_title = NULL;
412         AlertValue  val = 0;
413
414         theme_str = tdata->displayed;
415         
416         if (IS_SYSTEM_THEME(theme_str)) {
417                 if (getuid() != 0) {
418                         alertpanel_error(_("Only root can remove system themes"));
419                         return;
420                 }
421                 alert_title = g_strdup_printf(_("Remove system theme '%s'"), 
422                                               g_path_get_basename(theme_str));
423         }
424         if (NULL == alert_title) {
425                 alert_title = g_strdup_printf(_("Remove theme '%s'"), 
426                                               g_path_get_basename(theme_str));
427         }
428         val = alertpanel(alert_title,
429                          _("Are you sure you want to remove this theme?"),
430                          _("No"), _("Yes"), _("Cancel"));
431         g_free(alert_title);
432         if (G_ALERTALTERNATE == val) {
433                 gchar *status = NULL;
434                 
435                 prefs_themes_foreach_file(theme_str, prefs_themes_file_remove, &status); 
436                 if (0 != rmdir(theme_str)) {
437                         if (status != NULL) {
438                                 alertpanel_error(_("File %s failed\nwhile removing theme."), status);
439                                 g_free(status);
440                         }
441                         else
442                                 alertpanel_error(_("Removing theme directory failed."));
443                 }
444                 else {  
445                         alertpanel_notice(_("Theme removed succesfully"));
446                         /* update interface back to first theme */
447                         prefs_themes_get_themes_and_names(tdata);
448                         prefs_themes_set_themes_menu(GTK_OPTION_MENU(tdata->page->op_menu), tdata);
449                         prefs_themes_display_global_stats(tdata);
450                         tdata->displayed = (gchar *)((g_list_first(tdata->themes))->data);
451                         prefs_themes_get_theme_info(tdata);
452                 }
453         }
454         g_free(theme_str);
455 }
456
457 static void prefs_themes_btn_install_clicked_cb(GtkWidget *widget, gpointer data)
458 {
459         gchar      *filename, *source;
460         gchar      *themeinfo, *themename;
461         gchar      *alert_title = NULL;
462         CopyInfo   *cinfo;
463         AlertValue  val = 0;
464         ThemesData *tdata = prefs_themes_data;
465         
466         filename = filesel_select_file_open_folder(_("Select theme folder"), NULL);
467         if (filename == NULL) 
468                 return;
469         
470         cinfo = g_new0(CopyInfo, 1);
471         source = g_path_get_dirname(filename);
472         themename = g_path_get_basename(source);
473         debug_print("Installing '%s' theme from %s\n", themename, filename);
474
475         themeinfo = g_strconcat(source, G_DIR_SEPARATOR_S, THEMEINFO_FILE, NULL);
476         alert_title = g_strdup_printf(_("Install theme '%s'"), themename);
477         if (file_exist(themeinfo, FALSE) == FALSE) {
478                 val = alertpanel(alert_title,
479                                  _("This folder doesn't seem to be a theme folder.\nInstall anyway?"),
480                                  _("Yes"), _("No"), _("Cancel"));
481                 if (G_ALERTDEFAULT != val)
482                         goto end_inst;
483         }
484         if (getuid() == 0) {
485                 val = alertpanel(alert_title,
486                                  _("Do you want to install theme for all users?"),
487                                  _("Yes"), _("No"), _("Cancel"));
488                 switch (val) {
489                 case G_ALERTDEFAULT:
490                         cinfo->dest = g_strconcat(PACKAGE_DATA_DIR, G_DIR_SEPARATOR_S,
491                                                   PIXMAP_THEME_DIR, G_DIR_SEPARATOR_S, 
492                                                   themename, NULL);
493                         break;
494                 case G_ALERTALTERNATE:
495                         break;
496                 default:
497                         goto end_inst;
498                 }
499         }
500         g_free(alert_title);
501         if (cinfo->dest == NULL) {
502                 cinfo->dest = g_strconcat(get_home_dir(), G_DIR_SEPARATOR_S, RC_DIR,
503                                           G_DIR_SEPARATOR_S, PIXMAP_THEME_DIR, G_DIR_SEPARATOR_S,
504                                           themename, NULL);
505         }
506         if (TRUE == is_dir_exist(cinfo->dest)) {
507                 alertpanel_error(_("A theme with the same name is\nalready installed in this location"));
508                 goto end_inst;
509         }
510         if (0 != make_dir_hier(cinfo->dest)) {
511                 alertpanel_error(_("Couldn't create destination directory"));
512                 goto end_inst;
513         }
514         prefs_themes_foreach_file(source, prefs_themes_file_install, cinfo);
515         if (cinfo->status == NULL) {
516                 GList *insted;
517
518                 /* update interface to show newly installed theme */
519                 prefs_themes_get_themes_and_names(tdata);
520                 insted = g_list_find_custom(tdata->themes, 
521                                             (gpointer)(cinfo->dest), 
522                                             (GCompareFunc)strcmp2);
523                 if (NULL != insted) {
524                         alertpanel_notice(_("Theme installed succesfully"));
525                         tdata->displayed = (gchar *)(insted->data);
526                         prefs_themes_set_themes_menu(GTK_OPTION_MENU(tdata->page->op_menu), tdata);
527                         prefs_themes_display_global_stats(tdata);
528                         prefs_themes_get_theme_info(tdata);
529                 }
530                 else
531                         alertpanel_error(_("Failed installing theme"));
532         }
533         else
534                 alertpanel_error(_("File %s failed\nwhile installing theme."), cinfo->status);
535 end_inst:
536         if (cinfo->dest != NULL) g_free(cinfo->dest);
537         g_free(source);
538         g_free(themeinfo);
539         g_free(cinfo);
540         g_free(themename);
541 }
542
543 static void prefs_themes_btn_more_clicked_cb(GtkWidget *widget, gpointer data)
544 {
545         open_uri(CLAWS_THEMES_URI, prefs_common.uri_cmd);
546 }
547
548 static void prefs_themes_menu_item_activated_cb(GtkWidget *widget, gpointer data)
549 {
550         ThemesData *tdata = prefs_themes_data;
551         gchar      *path = (gchar *)data;
552         
553         g_return_if_fail(path != NULL);
554         
555         tdata->displayed = path;
556         prefs_themes_get_theme_info(tdata);
557 }
558
559 static void prefs_themes_update_buttons(const ThemesData *tdata)
560 {
561         ThemesPage *theme = tdata->page;
562         gboolean    can_rem, can_use;
563
564         can_use = !IS_CURRENT_THEME(tdata->displayed);
565         can_rem = can_use && !IS_INTERNAL_THEME(tdata->displayed);
566         
567         if (theme->btn_use != NULL)
568                 gtk_widget_set_sensitive(theme->btn_use, can_use);
569         if (theme->btn_remove != NULL)
570                 gtk_widget_set_sensitive(theme->btn_remove, can_rem);
571 }
572
573 /* placeholders may already be utf8 (i18n) */
574 #define SET_LABEL_TEXT_UTF8(label, text)                                \
575 {                                                                       \
576         gchar *tmpstr;                                                  \
577                                                                         \
578         if (!g_utf8_validate(text, -1, NULL))                           \
579                 tmpstr = conv_codeset_strdup(text,                      \
580                         conv_get_current_charset_str(), CS_UTF_8);      \
581         else                                                            \
582                 tmpstr = g_strdup(text);                                \
583                                                                         \
584         gtk_label_set_text(GTK_LABEL(label), tmpstr);                   \
585         g_free(tmpstr);                                                 \
586 }
587 static void prefs_themes_display_theme_info(ThemesData *tdata, const ThemeInfo *info)
588 {
589         ThemesPage *theme = tdata->page;
590         gchar *save_prefs_path;
591         gint   i;
592
593         SET_LABEL_TEXT_UTF8(theme->name,        info->name);
594         SET_LABEL_TEXT_UTF8(theme->author,      info->author);
595         SET_LABEL_TEXT_UTF8(theme->url,         info->url);
596         SET_LABEL_TEXT_UTF8(theme->status,      info->status);
597
598         save_prefs_path = prefs_common.pixmap_theme_path;
599         prefs_common.pixmap_theme_path = tdata->displayed;
600         for (i = 0; i < PREVIEW_ICONS; ++i) {
601                 stock_pixmap_gdk(theme->window, prefs_themes_icons[i], 
602                                 &(theme->pixmaps[i]), &(theme->masks[i]));
603                 gtk_image_set_from_pixmap(GTK_IMAGE(theme->icons[i]),
604                                 theme->pixmaps[i], theme->masks[i]);
605         }
606         prefs_common.pixmap_theme_path = save_prefs_path;
607
608         prefs_themes_update_buttons(tdata);
609 }
610 #undef SET_LABEL_TEXT_UTF8
611
612 static void prefs_themes_display_global_stats(const ThemesData *tdata)
613 {
614         ThemesPage *theme = tdata->page;
615         GList      *tnames = tdata->names;
616         gchar      *gstats;
617         gint        sys = 0;
618         gint        usr = 0;
619         gint        all = 0;
620
621         while (tnames != NULL) {
622                 ThemeName *tname = (ThemeName *)(tnames->data);
623                 gchar     *tpath = (gchar *)(tname->item->data);
624                 
625                 if (IS_SYSTEM_THEME(tpath)) 
626                         ++sys;
627                 else if (!IS_INTERNAL_THEME(tpath)) 
628                         ++usr;
629                 ++all;
630                 tnames = g_list_next(tnames);
631         }
632
633         gstats = g_strdup_printf(_("%d themes available (%d user, %d system, 1 internal)"),
634                                  all, usr, sys);
635         gtk_label_set_text(GTK_LABEL(theme->global), gstats);
636         g_free(gstats);
637 }
638
639 #define INFOFILE_LINE_LEN 80
640
641 #define FGETS_INFOFILE_LINE() \
642         line[0] = '\0'; \
643         fgets(line, INFOFILE_LINE_LEN, finfo); \
644         if ((len = strlen(line)) > 0) { \
645                 if (line[len - 1] == '\n') line[len - 1] = '\0'; \
646         } \
647         else { \
648                 strcpy(line, _("Unknown")); \
649         }
650
651 static void prefs_themes_get_theme_info(ThemesData *tdata)
652 {
653         FILE  *finfo;
654         gchar *sinfo;
655         gchar *path;
656         gchar  line[INFOFILE_LINE_LEN];
657         gint   len;
658         ThemeInfo *info;
659         ThemesPage *theme = tdata->page;
660
661         g_return_if_fail(theme != NULL);
662         path = tdata->displayed;
663         g_return_if_fail(path != NULL);
664
665         debug_print("Getting theme info for %s\n", path);
666         
667         info = g_new0(ThemeInfo, 1);
668         
669         if (IS_INTERNAL_THEME(path)) {
670                 info->name = g_strdup(_("Default internal theme"));
671                 info->author = g_strdup(_("The Sylpheed Claws Team"));
672                 info->url = g_strdup(HOMEPAGE_URI);
673                 info->status = g_strdup_printf(_("Internal theme has %d icons"), N_STOCK_PIXMAPS);
674         }
675         else {
676                 sinfo = g_strconcat(path, G_DIR_SEPARATOR_S, THEMEINFO_FILE, NULL);
677                 finfo = fopen(sinfo, "r");
678                 if (finfo == NULL) {
679                         info->name = g_strdup(_("No info file available for this theme"));
680                         info->author = g_strdup(_("Unknown"));
681                         info->url = g_strdup(_("Unknown"));
682                 }
683                 else {
684                         FGETS_INFOFILE_LINE()
685                         info->name = g_strdup(line);
686                         FGETS_INFOFILE_LINE()
687                         info->author = g_strdup(line);
688                         FGETS_INFOFILE_LINE()
689                         info->url = g_strdup(line);
690                 
691                         fclose(finfo);
692                 }
693                 g_free(sinfo);
694
695                 info->status = prefs_themes_get_theme_stats(path);
696                 if (info->status == NULL) {
697                         info->status = g_strdup(_("Error: can't get theme status"));
698                 }
699         }
700
701         prefs_themes_display_theme_info(tdata, info);
702
703         g_free(info->name);
704         g_free(info->author);
705         g_free(info->url);
706         g_free(info->status);
707         
708         g_free(info);
709 }
710
711 #undef FGETS_INFOFILE_LINE
712
713 static gchar *prefs_themes_get_theme_stats(const gchar *dirname)
714 {
715         gchar   *stats;
716         DirInfo *dinfo;
717
718         dinfo = g_new0(DirInfo, 1);
719         
720         prefs_themes_foreach_file(dirname, prefs_themes_file_stats, dinfo);
721         stats = g_strdup_printf(_("%d files (%d icons), size: %s"), 
722                                 dinfo->files, dinfo->pixms, to_human_readable(dinfo->bytes));
723         
724         g_free(dinfo);
725         return stats;
726 }
727
728 /* BEGIN GLADE CODE */
729 /* This is a dummy pixmap we use when a pixmap can't be found. */
730 static char *dummy_pixmap_xpm[] = {
731         /* columns rows colors chars-per-pixel */
732         "1 1 1 1",
733         "  c None",
734         /* pixels */
735         " "
736 };
737
738 /* This is an internally used function to create pixmaps. */
739 static GtkWidget* create_dummy_pixmap(GtkWidget *widget)
740 {
741         GdkColormap *colormap;
742         GdkPixmap *gdkpixmap;
743         GdkBitmap *mask;
744         GtkWidget *pixmap;
745
746         colormap = gtk_widget_get_colormap (widget);
747         gdkpixmap = gdk_pixmap_colormap_create_from_xpm_d (NULL, colormap, &mask,
748                         NULL, dummy_pixmap_xpm);
749         if (gdkpixmap == NULL)
750                 g_error ("Couldn't create replacement pixmap.");
751         pixmap = gtk_image_new_from_pixmap(gdkpixmap, mask);
752         g_object_unref (gdkpixmap);
753         g_object_unref (mask);
754         return pixmap;
755 }
756 /* END GLADE CODE */
757
758 /* glade generates some calls to a create_pixmap support function 
759  * we don't really need. */
760 #define create_pixmap(widget,filename) create_dummy_pixmap(widget)
761
762 static void prefs_themes_create_widget(PrefsPage *page, GtkWindow *window, gpointer data)
763 {
764         ThemesPage *prefs_themes = (ThemesPage *)page;
765         ThemesData *tdata = prefs_themes_data;
766         gchar *buf;
767         gint   i;
768         /* from gtk/about.c */
769         GtkStyle *style;
770         GdkColormap *cmap;
771         GdkColor uri_color[2] = {{0, 0, 0, 0xffff}, {0, 0xffff, 0, 0}};
772         gboolean success[2];
773
774         /* BEGIN GLADE EDITED CODE */
775         GtkWidget *vbox1;
776         GtkWidget *frame1;
777         GtkWidget *vbox2;
778         GtkWidget *hbox3;
779         GtkWidget *menu_themes;
780         GtkWidget *menu_themes_menu;
781         GtkWidget *glade_menuitem;
782         GtkWidget *btn_install;
783         GtkWidget *btn_more;
784         GtkWidget *label_global_status;
785         GtkWidget *frame_info;
786         GtkWidget *table1;
787         GtkWidget *label1;
788         GtkWidget *label2;
789         GtkWidget *label3;
790         GtkWidget *label_name;
791         GtkWidget *label_author;
792         GtkWidget *label_url;
793         GtkWidget *label4;
794         GtkWidget *label_status;
795         GtkWidget *frame_preview;
796         GtkWidget *hbox1;
797         GtkWidget *icon_1;
798         GtkWidget *icon_2;
799         GtkWidget *icon_3;
800         GtkWidget *icon_4;
801         GtkWidget *icon_5;
802         GtkWidget *icon_6;
803         GtkWidget *icon_7;
804         GtkWidget *frame_buttons;
805         GtkWidget *hbuttonbox1;
806         GtkWidget *btn_use;
807         GtkWidget *btn_remove;
808
809         vbox1 = gtk_vbox_new (FALSE, 0);
810         gtk_widget_show (vbox1);
811
812         frame1 = gtk_frame_new (_("Selector"));
813         gtk_widget_show (frame1);
814         gtk_box_pack_start (GTK_BOX (vbox1), frame1, TRUE, TRUE, 0);
815
816         vbox2 = gtk_vbox_new (FALSE, 0);
817         gtk_widget_show (vbox2);
818         gtk_container_add (GTK_CONTAINER (frame1), vbox2);
819
820         hbox3 = gtk_hbox_new (FALSE, 0);
821         gtk_widget_show (hbox3);
822         gtk_box_pack_start (GTK_BOX (vbox2), hbox3, TRUE, TRUE, 0);
823         gtk_container_set_border_width (GTK_CONTAINER (hbox3), 5);
824
825         menu_themes = gtk_option_menu_new ();
826         gtk_widget_show (menu_themes);
827         gtk_box_pack_start (GTK_BOX (hbox3), menu_themes, FALSE, FALSE, 0);
828         menu_themes_menu = gtk_menu_new ();
829         glade_menuitem = gtk_menu_item_new_with_label ("");
830         gtk_widget_show (glade_menuitem);
831         gtk_menu_append (GTK_MENU (menu_themes_menu), glade_menuitem);
832         gtk_option_menu_set_menu (GTK_OPTION_MENU (menu_themes), menu_themes_menu);
833
834         btn_install = gtk_button_new_with_label (_("Install new..."));
835         gtk_widget_show (btn_install);
836         gtk_box_pack_start (GTK_BOX (hbox3), btn_install, FALSE, FALSE, 0);
837         GTK_WIDGET_SET_FLAGS (btn_install, GTK_CAN_DEFAULT);
838
839         btn_more = gtk_button_new_with_label (_("Get more..."));
840         gtk_widget_show (btn_more);
841         gtk_box_pack_start (GTK_BOX (hbox3), btn_more, FALSE, FALSE, 0);
842         GTK_WIDGET_SET_FLAGS (btn_more, GTK_CAN_DEFAULT);
843         /* make it look like an uri */
844         gtk_button_set_relief(GTK_BUTTON(btn_more), GTK_RELIEF_NONE);
845         gtk_label_get(GTK_LABEL(GTK_BIN(btn_more)->child), &buf);
846         buf = g_strdup(buf);
847         for (i = 0; buf[i] != '\0'; buf[i++] = '_');
848         gtk_label_set_pattern(GTK_LABEL(GTK_BIN(btn_more)->child), buf);
849         g_free(buf);
850         cmap = gdk_window_get_colormap((mainwindow_get_mainwindow())->window->window);
851         gdk_colormap_alloc_colors(cmap, uri_color, 2, FALSE, TRUE, success);
852         if (success[0] == TRUE && success[1] == TRUE) {
853                 gtk_widget_ensure_style(GTK_BIN(btn_more)->child);
854                 style = gtk_style_copy
855                         (gtk_widget_get_style(GTK_BIN(btn_more)->child));
856                 style->fg[GTK_STATE_NORMAL]   = uri_color[0];
857                 style->fg[GTK_STATE_ACTIVE]   = uri_color[1];
858                 style->fg[GTK_STATE_PRELIGHT] = uri_color[0];
859                 gtk_widget_set_style(GTK_BIN(btn_more)->child, style);
860         } else
861                 g_warning("prefs_themes_create_widget(): color allocation failed.\n");
862
863
864         label_global_status = gtk_label_new ("");
865         gtk_widget_show (label_global_status);
866         gtk_box_pack_start (GTK_BOX (vbox2), label_global_status, FALSE, FALSE, 0);
867         gtk_label_set_justify (GTK_LABEL (label_global_status), GTK_JUSTIFY_LEFT);
868         gtk_misc_set_alignment (GTK_MISC (label_global_status), 0, 0.5);
869         gtk_misc_set_padding (GTK_MISC (label_global_status), 6, 0);
870
871         frame_info = gtk_frame_new (_("Information"));
872         gtk_widget_show (frame_info);
873         gtk_box_pack_start (GTK_BOX (vbox1), frame_info, TRUE, TRUE, 0);
874
875         table1 = gtk_table_new (4, 2, FALSE);
876         gtk_widget_show (table1);
877         gtk_container_add (GTK_CONTAINER (frame_info), table1);
878
879         label1 = gtk_label_new (_("Name: "));
880         gtk_widget_show (label1);
881         gtk_table_attach (GTK_TABLE (table1), label1, 0, 1, 0, 1,
882                         (GtkAttachOptions) (GTK_FILL),
883                         (GtkAttachOptions) (0), 8, 2);
884         gtk_label_set_justify (GTK_LABEL (label1), GTK_JUSTIFY_LEFT);
885         gtk_misc_set_alignment (GTK_MISC (label1), 0, 0.5);
886
887         label2 = gtk_label_new (_("Author: "));
888         gtk_widget_show (label2);
889         gtk_table_attach (GTK_TABLE (table1), label2, 0, 1, 1, 2,
890                         (GtkAttachOptions) (GTK_FILL),
891                         (GtkAttachOptions) (0), 8, 2);
892         gtk_label_set_justify (GTK_LABEL (label2), GTK_JUSTIFY_LEFT);
893         gtk_misc_set_alignment (GTK_MISC (label2), 0, 0.5);
894
895         label3 = gtk_label_new (_("URL:"));
896         gtk_widget_show (label3);
897         gtk_table_attach (GTK_TABLE (table1), label3, 0, 1, 2, 3,
898                         (GtkAttachOptions) (GTK_FILL),
899                         (GtkAttachOptions) (0), 8, 2);
900         gtk_misc_set_alignment (GTK_MISC (label3), 0, 0.5);
901
902         label_name = gtk_label_new ("");
903         gtk_widget_show (label_name);
904         gtk_table_attach (GTK_TABLE (table1), label_name, 1, 2, 0, 1,
905                         (GtkAttachOptions) (GTK_EXPAND | GTK_FILL),
906                         (GtkAttachOptions) (0), 0, 0);
907         gtk_misc_set_alignment (GTK_MISC (label_name), 0, 0.5);
908
909         label_author = gtk_label_new ("");
910         gtk_widget_show (label_author);
911         gtk_table_attach (GTK_TABLE (table1), label_author, 1, 2, 1, 2,
912                         (GtkAttachOptions) (GTK_FILL),
913                         (GtkAttachOptions) (0), 0, 0);
914         gtk_misc_set_alignment (GTK_MISC (label_author), 0, 0.5);
915
916         label_url = gtk_label_new ("");
917         gtk_widget_show (label_url);
918         gtk_table_attach (GTK_TABLE (table1), label_url, 1, 2, 2, 3,
919                         (GtkAttachOptions) (GTK_FILL),
920                         (GtkAttachOptions) (0), 0, 0);
921         gtk_misc_set_alignment (GTK_MISC (label_url), 0, 0.5);
922
923         label4 = gtk_label_new (_("Status:"));
924         gtk_widget_show (label4);
925         gtk_table_attach (GTK_TABLE (table1), label4, 0, 1, 3, 4,
926                         (GtkAttachOptions) (GTK_FILL),
927                         (GtkAttachOptions) (0), 8, 2);
928         gtk_misc_set_alignment (GTK_MISC (label4), 0, 0.5);
929
930         label_status = gtk_label_new ("");
931         gtk_widget_show (label_status);
932         gtk_table_attach (GTK_TABLE (table1), label_status, 1, 2, 3, 4,
933                         (GtkAttachOptions) (GTK_FILL),
934                         (GtkAttachOptions) (0), 0, 0);
935         gtk_misc_set_alignment (GTK_MISC (label_status), 0, 0.5);
936
937         frame_preview = gtk_frame_new (_("Preview"));
938         gtk_widget_show (frame_preview);
939         gtk_box_pack_start (GTK_BOX (vbox1), frame_preview, TRUE, TRUE, 0);
940
941         hbox1 = gtk_hbox_new (FALSE, 0);
942         gtk_widget_show (hbox1);
943         gtk_container_add (GTK_CONTAINER (frame_preview), hbox1);
944
945         icon_1 = create_pixmap (vbox1, NULL);
946         gtk_widget_show (icon_1);
947         gtk_box_pack_start (GTK_BOX (hbox1), icon_1, TRUE, TRUE, 2);
948         gtk_misc_set_padding (GTK_MISC (icon_1), 0, 5);
949
950         icon_2 = create_pixmap (vbox1, NULL);
951         gtk_widget_show (icon_2);
952         gtk_box_pack_start (GTK_BOX (hbox1), icon_2, TRUE, TRUE, 2);
953         gtk_misc_set_padding (GTK_MISC (icon_2), 0, 5);
954
955         icon_3 = create_pixmap (vbox1, NULL);
956         gtk_widget_show (icon_3);
957         gtk_box_pack_start (GTK_BOX (hbox1), icon_3, TRUE, TRUE, 2);
958         gtk_misc_set_padding (GTK_MISC (icon_3), 0, 5);
959
960         icon_4 = create_pixmap (vbox1, NULL);
961         gtk_widget_show (icon_4);
962         gtk_box_pack_start (GTK_BOX (hbox1), icon_4, TRUE, TRUE, 2);
963         gtk_misc_set_padding (GTK_MISC (icon_4), 0, 5);
964
965         icon_5 = create_pixmap (vbox1, NULL);
966         gtk_widget_show (icon_5);
967         gtk_box_pack_start (GTK_BOX (hbox1), icon_5, TRUE, TRUE, 2);
968         gtk_misc_set_padding (GTK_MISC (icon_5), 0, 5);
969
970         icon_6 = create_pixmap (vbox1, NULL);
971         gtk_widget_show (icon_6);
972         gtk_box_pack_start (GTK_BOX (hbox1), icon_6, TRUE, TRUE, 0);
973         gtk_misc_set_padding (GTK_MISC (icon_6), 0, 5);
974
975         icon_7 = create_pixmap (vbox1, NULL);
976         gtk_widget_show (icon_7);
977         gtk_box_pack_start (GTK_BOX (hbox1), icon_7, TRUE, TRUE, 0);
978         gtk_misc_set_padding (GTK_MISC (icon_7), 0, 5);
979
980         frame_buttons = gtk_frame_new (_("Actions"));
981         gtk_widget_show (frame_buttons);
982         gtk_box_pack_start (GTK_BOX (vbox1), frame_buttons, TRUE, TRUE, 0);
983
984         hbuttonbox1 = gtk_hbutton_box_new ();
985         gtk_widget_show (hbuttonbox1);
986         gtk_container_add (GTK_CONTAINER (frame_buttons), hbuttonbox1);
987         gtk_container_set_border_width (GTK_CONTAINER (hbuttonbox1), 5);
988         gtk_button_box_set_layout (GTK_BUTTON_BOX (hbuttonbox1), GTK_BUTTONBOX_START);
989         gtk_button_box_set_spacing (GTK_BUTTON_BOX (hbuttonbox1), 5);
990         gtk_button_box_set_child_ipadding (GTK_BUTTON_BOX (hbuttonbox1), 5, 0);
991
992         btn_use = gtk_button_new_with_label (_("Use this"));
993         gtk_widget_show (btn_use);
994         gtk_container_add (GTK_CONTAINER (hbuttonbox1), btn_use);
995         GTK_WIDGET_SET_FLAGS (btn_use, GTK_CAN_DEFAULT);
996
997         btn_remove = gtk_button_new_with_label (_("Remove"));
998         gtk_widget_show (btn_remove);
999         gtk_container_add (GTK_CONTAINER (hbuttonbox1), btn_remove);
1000         GTK_WIDGET_SET_FLAGS (btn_remove, GTK_CAN_DEFAULT);
1001
1002         g_signal_connect(G_OBJECT(btn_use), "clicked",
1003                          G_CALLBACK(prefs_themes_btn_use_clicked_cb),
1004                          NULL);
1005         g_signal_connect(G_OBJECT(btn_remove), "clicked",
1006                          G_CALLBACK(prefs_themes_btn_remove_clicked_cb),
1007                          NULL);
1008         g_signal_connect(G_OBJECT(btn_install), "clicked",
1009                          G_CALLBACK(prefs_themes_btn_install_clicked_cb),
1010                          NULL);
1011         g_signal_connect(G_OBJECT(btn_more), "clicked",
1012                          G_CALLBACK(prefs_themes_btn_more_clicked_cb),
1013                          NULL);
1014
1015         gtk_widget_grab_default (btn_use);
1016         /* END GLADE EDITED CODE */
1017
1018         prefs_themes->window = GTK_WIDGET(window);
1019         
1020         prefs_themes->name   = label_name;
1021         prefs_themes->author = label_author;
1022         prefs_themes->url    = label_url;
1023         prefs_themes->status = label_status;
1024         prefs_themes->global = label_global_status;
1025
1026         prefs_themes->icons[0] = icon_1;
1027         prefs_themes->icons[1] = icon_2;
1028         prefs_themes->icons[2] = icon_3;
1029         prefs_themes->icons[3] = icon_4;
1030         prefs_themes->icons[4] = icon_5;
1031         prefs_themes->icons[5] = icon_6;
1032         prefs_themes->icons[6] = icon_7;
1033         
1034         prefs_themes->btn_use     = btn_use;
1035         prefs_themes->btn_remove  = btn_remove;
1036         prefs_themes->btn_install = btn_install;
1037         prefs_themes->btn_more    = btn_more;
1038
1039         prefs_themes->op_menu     = menu_themes;
1040
1041         prefs_themes->page.widget = vbox1;
1042
1043         prefs_themes_set_themes_menu(GTK_OPTION_MENU(prefs_themes->op_menu), tdata);
1044         
1045         prefs_themes_get_theme_info(tdata);
1046         prefs_themes_display_global_stats(tdata);
1047 }
1048
1049 static void prefs_themes_destroy_widget(PrefsPage *page)
1050 {
1051         /* ThemesPage *theme = (ThemesPage *)page; */
1052 }
1053
1054 static void prefs_themes_save(PrefsPage *page)
1055 {
1056         /* ThemesPage *theme = (ThemesPage *)page; */
1057 }
1058