Keep original order in resources
[clawsker.git] / clawsker
1 #!/usr/bin/perl -w
2 #
3 # Clawsker :: A Claws Mail Tweaker
4 # Copyright 2007-2016 Ricardo Mones <ricardo@mones.org>
5 #
6 # This program is free software: you can redistribute it and/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation, either version 3 of the License, or
9 # (at your option) any later version.
10 #
11 # See COPYING file for license details.
12 # See AUTHORS file for a complete list of contributors.
13 #
14
15 binmode STDOUT, ":encoding(utf8)";
16
17 use 5.010_000;
18 use strict;
19 use utf8;
20 use Glib qw(TRUE FALSE);
21 use Gtk2;
22 use POSIX qw(setlocale);
23 use Locale::gettext;
24 use Encode;
25 use Digest::MD5 qw(md5_hex);
26 use Getopt::Long;
27
28 my $NAME = 'clawsker';
29 my $PREFIX = '@PREFIX@';
30 my $LIBDIR = '@LIBDIR@';
31 my $DATADIR = '@DATADIR@';
32 my $VERSION = '@VERSION@';
33 my $VERBOSE = FALSE;
34 my $READONLY = FALSE;
35 my $CLAWSV = undef;
36 my $main_window = undef;
37
38 my $locale = (defined($ENV{LC_MESSAGES}) ? $ENV{LC_MESSAGES} : $ENV{LANG});
39 $locale = "C" unless defined($locale);
40 setlocale (LC_ALL, $locale);
41 bindtextdomain ($NAME, sprintf ('%s/share/locale', $PREFIX));
42 textdomain ($NAME);
43
44 my $SHOWHINTS = FALSE;
45 $SHOWHINTS = TRUE if ($Gtk2::VERSION >= 1.040 and Gtk2->CHECK_VERSION (2, 12, 0));
46
47 sub _ {
48     my $str = shift;
49     my %par = @_;
50     my $xla = gettext ($str);
51     if (scalar(keys(%par)) > 0) {
52         foreach my $key (keys %par) {
53             $xla =~ s/\{$key\}/$par{$key}/g;
54         }
55     }
56     return decode_utf8($xla);
57 }
58
59 # default messages
60 %xl::s = (
61     win_title => _('Claws Mail Hidden Preferences'),
62     about => _('About...'),
63     about_title => _('Clawsker :: A Claws Mail Tweaker'),
64     about_license => _('License:'),
65     about_version => _('Version:'),
66
67     tab_colours => _('Colours'),
68     tab_behaviour => _('Behaviour'),
69     tab_gui => _('GUI'),
70     tab_other => _('Other'),
71     tab_winpos => _('Windows'),
72     tab_accounts => _('Accounts'),
73     tab_plugins => _('Plugins'),
74
75     ab_frame => _('Addressbook'),
76     mem_frame => _('Memory'),
77     msgview_frame => _('Message View'),
78     log_frame => _('Log window'),
79     dnd_frame => _('Drag \'n\' drop'),
80     ssl_frame => _('Secure Sockets Layer'),
81     msgs_frame => _('Messages'),
82     swc_frame => _('Completion'),
83     stripes_frame => _('Coloured stripes'),
84     sbar_frame => _('Scroll bars'),
85     mlist_frame => _('Message List'),
86     mview_frame => _('Message View'),
87     compo_frame => _('Compose window'),
88     netm_frame => _('NetworkManager'),
89     diff_frame => _('Viewing patches'),
90     mpass_frame => _('Master passphrase'),
91
92     l_oth_use_dlg => _('Use detached address book edit dialogue'),
93     h_oth_use_dlg => _('If true use a separate dialogue to edit a person\'s details. Otherwise will use a form embedded in the address book\'s main window.'),
94     l_oth_max_use => _('Maximum memory for message cache (kB)'),
95     h_oth_max_use => _('The maximum amount of memory to use to cache messages, in kilobytes.'),
96     l_oth_min_time => _('Minimun time for cache elements (minutes)'),
97     h_oth_min_time => _('The minimum time in minutes to keep a cache in memory. Caches more recent than this time will not be freed, even if the memory usage is too high.'),
98     l_oth_use_netm => _('Use NetworkManager'),
99     h_oth_use_netm => _('Use NetworkManager to switch offline automatically.'),
100     l_oth_mp_rounds => _('Rounds for PBKDF2 function'),
101     h_oth_mp_rounds => _('Specify the number of iterations the key derivation function will be applied on master passphrase computation. Does not modify currently stored passphrase, only master passphrases computed after changing this value are affected.'),
102
103     l_gui_b_unread => _('Show unread messages with bold font'),
104     h_gui_b_unread => _('Show unread messages in the Message List using a bold font.'),
105     l_gui_no_markup => _('Don\'t use markup'),
106     h_gui_no_markup => _('Don\'t use bold and italic text in Compose dialogue\'s account selector.'),
107     l_gui_dot_lines => _('Use dotted lines in tree view components'),
108     h_gui_dot_lines => _('Use the old dotted line look in the main window tree views (Folder, Message and other lists) instead of the modern lineless look.'),
109     l_gui_h_scroll => _('Enable horizontal scrollbar'),
110     h_gui_h_scroll => _('Enable the horizontal scrollbar in the Message List.'),
111     l_gui_swp_from => _('Display To column instead From column in Sent folder'),
112     h_gui_swp_from => _('Display the recipient\'s email address in a To column of the Sent folder instead of the originator\'s one in a From column.'),
113     l_gui_v_scroll => _('Folder List scrollbar behaviour'),
114     h_gui_v_scroll => _('Specify the policy of vertical scrollbar of Folder List: show always, automatic or hide always.'),
115     l_gui_v_scroll_show => _('Show always'),
116     l_gui_v_scroll_auto => _('Automatic'),
117     l_gui_v_scroll_hide => _('Hide always'),
118     l_gui_from_show => _('From column displays'),
119     h_gui_from_show => _('Selects the data displayed in the From column of the Message List: name, address or both.'),
120     l_gui_from_show_name => _('Name only'),
121     l_gui_from_show_addr => _('Address only'),
122     l_gui_from_show_both => _('Both name and address'),
123     l_gui_strip_off => _('Coloured lines contrast'),
124     h_gui_strip_off => _('Specify the value to use when creating alternately coloured lines in tree view components. The smaller the value, the less visible the difference in the alternating colours of the lines.'),
125     l_gui_cursor_v => _('Show cursor'),
126     h_gui_cursor_v => _('Display the cursor in the Message View.'),
127     l_gui_toolbar_d => _('Detachable toolbars'),
128     h_gui_toolbar_d => _('Show handles in the toolbars.'),
129     l_gui_strip_all => _('Use stripes in all tree view components'),
130     h_gui_strip_all => _('Enable alternately coloured lines in all tree view components.'),
131     l_gui_strip_sum => _('Use stripes in Folder List and Message List'),
132     h_gui_strip_sum => _('Enable alternately coloured lines in Message List and Folder List.'),
133     l_gui_two_line_v => _('2 lines per Message List item in 3-column layout'),
134     h_gui_two_line_v => _('Spread Message List information over two lines when using the three column mode.'),
135     l_gui_margin_co => _('Show margin'),
136     h_gui_margin_co => _('Shows a small margin in the Compose View.'),
137     l_gui_mview_date => _('Don\'t display localized date'),
138     h_gui_mview_date => _('Toggles localization of date format in Message View.'),
139     l_gui_zero_char => _('Zero replacement character'),
140     h_gui_zero_char => _('Replaces \'0\' with the given character in Folder List.'),
141     l_gui_type_any => _('Editable headers'),
142     h_gui_type_any => _('Allows to manually type any value in Compose Window header entries or just select from the available choices in the associated dropdown list.'),
143     l_gui_next_del => _('Select next message on delete'),
144     h_gui_next_del => _('When deleting a message, toggles between selecting the next one (newer message) or the previous one (older message).'),
145
146     l_beh_hover_t => _('Drag \'n\' drop hover timeout (ms)'),
147     h_beh_hover_t => _('Time in milliseconds that will cause a folder tree to expand when the mouse cursor is held over it during drag and drop.'),
148     l_beh_dangerous => _('Don\'t confirm deletions (dangerous!)'),
149     h_beh_dangerous => _('Don\'t ask for confirmation before definitive deletion of emails.'),
150     l_beh_flowed => _('Respect format=flowed in messages'),
151     h_beh_flowed => _('Respect format=flowed on text/plain message parts. This will cause some mails to have long lines, but will fix some URLs that would otherwise be wrapped.'),
152     l_beh_parts_rw => _('Allow writable temporary files'),
153     h_beh_parts_rw => _('Saves temporary files when opening attachment with write bit set.'),
154     l_beh_skip_ssl => _('Don\'t check SSL certificates'),
155     h_beh_skip_ssl => _('Disables the verification of SSL certificates.'),
156     l_beh_up_step => _('Progress bar update step (items)'),
157     h_beh_up_step => _('Update stepping in progress bars.'),
158     l_beh_thread_a => _('Maximum age when threading by subject (days)'),
159     h_beh_thread_a => _('Number of days to include a message in a thread when using "Thread using subject in addition to standard headers".'),
160     l_beh_unsafe_ssl => _('Allow unsafe SSL certificates'),
161     h_beh_unsafe_ssl => _('Allows Claws Mail to remember multiple SSL certificates for a given server/port.'),
162     l_beh_use_utf8 => _('Force UTF-8 for broken mails'),
163     h_beh_use_utf8 => _('Use UTF-8 encoding for broken mails instead of current locale.'),
164     l_beh_warn_dnd => _('Warn on drag \'n\' drop'),
165     h_beh_warn_dnd => _('Display a confirmation dialogue on drag \'n\' drop of folders.'),
166     l_beh_out_ascii => _('Outgoing messages fallback to ASCII'),
167     h_beh_out_ascii => _('If content allows, ASCII will be used to encode outgoing messages, otherwise the user-defined encoding is enforced always.'),
168     l_beh_pp_unsel => _('Primary paste unselects selection'),
169     h_beh_pp_unsel => _('Controls how pasting using middle-click changes the selected text and insertion point.'),
170     l_beh_inline_at => _('Show inline attachments'),
171     h_beh_inline_at => _('Allows hiding inline attachments already shown in mail structure view.'),
172     l_beh_addr_swc => _('Address search in compose window matches any'),
173     h_beh_addr_swc => _('On Tab-key completion, address text will match any part of the string or only from the start.'),
174     l_beh_fold_swc => _('Folder search in folder selector matches any'),
175     h_beh_fold_swc => _('On folder name completion text will match any part of the string or only from the start.'),
176
177     l_col_emphasis => _('X-Mailer header'),
178     h_col_emphasis => _('The colour used for the X-Mailer line when its value is Claws Mail.'),
179     l_col_log_err => _('Error messages'),
180     h_col_log_err => _('Colour for error messages in log window.'),
181     l_col_log_in => _('Server messages'),
182     h_col_log_in => _('Colour for messages received from servers in log window.'),
183     l_col_log_msg => _('Standard messages'),
184     h_col_log_msg => _('Colour for messages in log window.'),
185     l_col_log_out => _('Client messages'),
186     h_col_log_out => _('Colour for messages sent to servers in log window.'),
187     l_col_log_warn => _('Warnings'),
188     h_col_log_warn => _('Colour for warning messages in log window.'),
189
190     l_col_diff_add => _('Added lines'),
191     h_col_diff_add => _('Colour for added lines in patches.'),
192     l_col_diff_del => _('Deleted lines'),
193     h_col_diff_del => _('Colour for deleted lines in patches.'),
194     l_col_diff_hunk => _('Hunk lines'),
195     h_col_diff_hunk => _('Color for hunk headers in patches.'),
196
197     l_win_x => _('X position'),
198     h_win_x => _('X coordinate for window\'s top-left corner.'),
199     l_win_y => _('Y position'),
200     h_win_y => _('Y coordinate for window\'s top-left corner.'),
201     l_win_w => _('Width'),
202     h_win_w => _('Window\'s width in pixels.'),
203     l_win_h => _('Height'),
204     h_win_h => _('Window\'s height in pixels.'),
205
206     l_win_main_mx => _('Maximized'),
207     h_win_main_mx => _('Changes window maximized status.'),
208     l_win_main_fs => _('Full-screen'),
209     h_win_main_fs => _('Changes full screen status.'),
210
211     l_acc_gtls_set => _('Use custom GnuTLS priority'),
212     h_acc_gtls_set => _('Enables using user provided GnuTLS priority string.'),
213     l_acc_gtls_pri => _('GnuTLS priority'),
214     h_acc_gtls_pri => _('Value to use as GnuTLS priority string if custom priority check is enabled. Otherwise this value is ignored.'),
215
216     l_plu_lav_burl => _('Base URL'),
217     h_plu_lav_burl => _('This is the URL where avatar requests are sent. You can use the one of your own libravatar server, if available.'),
218     l_plu_prl_flvb => _('Log level'),
219     h_plu_prl_flvb => _('Verbosity level of log, acumulative.'),
220     l_plu_prl_none => _('None'),
221     l_plu_prl_manual => _('Manual'),
222     l_plu_prl_action => _('Actions'),
223     l_plu_prl_match => _('Matches'),
224
225     e_error => _('Error: '),
226     e_noclawsrc => _('resource file for Claws Mail was not found.'),
227     e_running => _('seems Claws Mail is currently running, close it first.'),
228 );
229
230 # all preferences read by load_preferences
231 my %PREFS = ();
232 my %ACPREFS = ();
233 # values of all preferences handled by clawsker
234 my %HPVALUE = ();
235 my %ACHPVALUE = ();
236 # default config dir and file name
237 my $ALTCONFIGDIR = FALSE;
238 my $CONFIGDIR = $ENV{HOME} . '/.claws-mail/';
239 my $CONFIGRC = 'clawsrc';
240 my $ACCOUNTRC = 'accountrc';
241
242 # index constants for preference arrays
243 use constant NAME  => 0; # the name on the rc file
244 use constant LABEL => 1; # the label on the GUI
245 use constant DESC  => 2; # the description for the hint/help
246 use constant TYPE  => 3; # data type: bool, int, float, string, color
247 use constant CMVER => 4; # lowest[,highest] Claws Mail version(s) the feature exists
248 use constant CMDEF => 5; # default value for the preference in Claws Mail
249
250 # constants for GUI spacing
251 use constant HBOX_SPC => 5;
252 use constant FRAME_SPC => 2;
253 use constant PAGE_SPC => 5;
254
255 # version functions
256
257 sub version_greater_or_equal {
258     my ($version, $refvers) = @_;
259     my @version = split (/\./, $version);
260     my @refvers = split (/\./, $refvers);
261     while ($#version < $#refvers) {
262         push (@version, '0');
263     }
264     my $idx = 0;
265     while (($idx <= $#refvers)
266             and (int ($version[$idx]) == int ($refvers[$idx]))) {
267         ++$idx;
268     }
269     return TRUE if (($idx > $#refvers)
270         or (int ($version[$idx]) >= int ($refvers[$idx])));
271     return FALSE;
272 }
273
274 sub get_claws_version {
275     $_ = qx/which claws-mail/;
276     chomp;
277     return "" unless ($_); # not installed
278     my $res = "";
279     $_ = qx/$_ -v/;
280     chomp;
281     my @fver = split (/ /);
282     die "Invalid version string" unless ($fver[2] eq "version");
283     my @ver = split (/\./, $fver[3]);
284     $res .= "$ver[0].";
285     $res .= "$ver[1].";
286     if ($ver[2] =~ /(\d+)git(\d+)/) {
287         $res .= "$1.$2";
288     }
289     else {
290         $res .= "$ver[2].0";
291     }
292     return $res;
293 }
294
295 # data handlers and auxiliar functions
296
297 sub handle_bool_value {
298     my ($widget, $event, $dataref) = @_;
299     $$dataref = ($widget->get_active ())? '1': '0';
300 }
301
302 sub handle_int_value {
303     my ($widget, $event, $dataref) = @_;
304     $_ = $widget->get_text ();
305     s/^\s+//;
306     s/\s+$//;
307     if (/^[0-9]+$/) {
308         $$dataref = $_;
309         $widget->set_text ($_);
310     }
311     else {
312         $widget->set_text ($$dataref);
313     }
314 }
315
316 sub handle_string_value {
317     my ($widget, $event, $dataref) = @_;
318     $$dataref = $widget->get_text ();
319 }
320
321 sub handle_nchar_value {
322     my ($widget, $event, $dataref, $minlen, $maxlen) = @_;
323     $_ = substr ($widget->get_text (), 0, $maxlen);
324     $widget->set_text ($_);
325     $$dataref = $_;
326 }
327
328 sub gdk_color_from_str {
329     my ($str) = @_;
330     my ($rr, $gg, $bb) = (0, 0 ,0);
331     $_ = uc ($str);
332     if (/\#([A-F0-9][A-F0-9])([A-F0-9][A-F0-9])([A-F0-9][A-F0-9])/) {
333         $rr = hex($1) * 256;
334         $gg = hex($2) * 256;
335         $bb = hex($3) * 256;
336     }
337     my $color = Gtk2::Gdk::Color->new ($rr, $gg, $bb);
338     return $color;
339 }
340
341 sub str_from_gdk_color {
342     my ($color) = @_;
343     my $rr = $color->red / 256;
344     my $gg = $color->green / 256;
345     my $bb = $color->blue / 256;
346     my $str = sprintf ("#%.2x%.2x%.2x", $rr, $gg, $bb);
347     return $str;
348 }
349
350 sub handle_color_value {
351     my ($widget, $event, $dataref) = @_;
352     my $newcol = $widget->get_color;
353     $$dataref = str_from_gdk_color ($newcol);
354 }
355
356 sub handle_selection_value {
357     my ($widget, $event, $dataref) = @_;
358     $$dataref = $widget->get_active;
359 }
360
361 sub get_rc_filename {
362     return $CONFIGDIR . $CONFIGRC;
363 }
364
365 sub get_ac_rc_filename {
366     return $CONFIGDIR . $ACCOUNTRC;
367 }
368
369 sub set_rc_filename {
370     my ($fullname) = @_;
371     my @parts = split ('/', $fullname);
372     $CONFIGRC = $parts[$#parts];
373     $parts[$#parts] = '';
374     $CONFIGDIR = join ('/', @parts);
375 }
376
377 sub log_message {
378     my ($mesg, $fatal) = @_;
379     if (defined($fatal) && $fatal eq 'die') {
380         die "$NAME: $mesg\n";
381     }
382     if ($VERBOSE) {
383         print "$NAME: $mesg\n";
384     }
385 }
386
387 sub error_dialog {
388     my ($emsg) = @_;
389     my $markup = "<span weight=\"bold\" size=\"large\">" . $emsg . "</span>";
390     my $errordlg = Gtk2::MessageDialog->new_with_markup ($main_window, 'modal', 'error', 'cancel', $markup);
391     $errordlg->set_title (_('Clawsker error'));
392     $errordlg->run;
393     $errordlg->destroy;
394 }
395
396 sub claws_is_running {
397     my $emsg = "$xl::s{e_error}$xl::s{e_running}";
398     log_message ($emsg);
399     error_dialog ($emsg);
400     return FALSE;
401 }
402
403 sub check_claws_not_running {
404     return TRUE if $READONLY;
405     my $tmpdir = (defined $ENV{TMPDIR})? $ENV{TMPDIR}: '/tmp';
406     $tmpdir = '/tmp' if ($tmpdir eq '');
407     my $lockdir = "$tmpdir/claws-mail-$<";
408     -d $lockdir and do {
409         $_ = $CONFIGDIR;
410         s/\/$//;
411         my $socket = "$lockdir/" . md5_hex ($_);
412         -S $socket and return claws_is_running ();
413     };
414     return TRUE;
415 }
416
417 sub check_rc_file {
418     my ($rcfile) = @_;
419     (defined($rcfile) && -f $rcfile) or do {
420         my $emsg = "$xl::s{e_error}$xl::s{e_noclawsrc}\n";
421         log_message ($emsg);
422         error_dialog ($emsg);
423         return FALSE;
424     };
425     return TRUE;
426 }
427
428 sub set_widget_hint {
429     if ($SHOWHINTS) {
430         my ($wdgt, $hint) = @_;
431         $wdgt->set_tooltip_text ($hint);
432         $wdgt->set_has_tooltip (TRUE);
433     }
434 }
435
436 sub set_widget_sens {
437     my ($wdgt, $versions) = @_;
438     my @ver = split(/,/, $versions);
439     if ($#ver == 1) {
440       $wdgt->set_sensitive (
441         version_greater_or_equal ($CLAWSV, $ver[0])
442         and version_greater_or_equal ($ver[1], $CLAWSV)
443       );
444     } else {
445         $wdgt->set_sensitive (version_greater_or_equal ($CLAWSV, $ver[0]));
446     }
447 }
448
449 # graphic element creation
450
451 sub new_check_button_for($$$) {
452     my ($hash, $key, $vhash) = @_;
453     my $name = $$hash{$key}[NAME];
454     my $label = $$hash{$key}[LABEL];
455     #
456     my $hbox = Gtk2::HBox->new (FALSE, 5);
457     my $cb = Gtk2::CheckButton->new ($label);
458     my $value = $$vhash{$name};
459     $value //= $$hash{$key}[CMDEF];
460     $cb->set_active ($value eq '1');
461     $cb->signal_connect (clicked => sub {
462             my ($w, $e) = @_;
463             handle_bool_value ($w, $e, \$$vhash{$name});
464         });
465     set_widget_hint ($cb, $$hash{$key}[DESC]);
466     set_widget_sens ($cb, $$hash{$key}[CMVER]);
467     $hbox->pack_start ($cb, FALSE, FALSE, HBOX_SPC);
468     #
469     return $hbox;
470 }
471
472 sub new_text_box_for_int($$$) {
473     my ($hash, $key, $vhash) = @_;
474     my $name = $$hash{$key}[NAME];
475     my $label = $$hash{$key}[LABEL];
476     my @type = split (/,/, $$hash{$key}[TYPE]);
477     push (@type, 0), push (@type, 10000) unless ($#type > 0);
478     #
479     my $hbox = Gtk2::HBox->new (FALSE, 5);
480     my $glabel = Gtk2::Label->new ($label);
481     my $pagei = int (($type[2] - $type[1]) / 10);
482     my $gentry = Gtk2::SpinButton->new_with_range ($type[1], $type[2], $pagei);
483     my $value = $$vhash{$name};
484     $value //= $$hash{$key}[CMDEF];
485     $gentry->set_numeric (TRUE);
486     $gentry->set_value ($value);
487     $gentry->signal_connect('value-changed' => sub {
488             my ($w, $e) = @_;
489             handle_int_value ($w, $e, \$$vhash{$name});
490         });
491     set_widget_hint ($gentry, $$hash{$key}[DESC]);
492     set_widget_sens ($gentry, $$hash{$key}[CMVER]);
493     $glabel->set_sensitive ($gentry->sensitive);
494     $hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
495     $hbox->pack_start ($gentry, FALSE, FALSE, HBOX_SPC);
496     #
497     return $hbox;
498 }
499
500 sub new_text_box_for_nchar($$$) {
501     my ($hash, $key, $vhash) = @_;
502     my $name = $$hash{$key}[NAME];
503     my $label = $$hash{$key}[LABEL];
504     my @type = split (/,/, $$hash{$key}[TYPE]); # char,minlen,maxlen,width
505     my $hbox = Gtk2::HBox->new (FALSE, 5);
506     my $glabel = Gtk2::Label->new ($label);
507     my $gentry = Gtk2::Entry->new ();
508     $gentry->set_max_length($type[2]) if defined ($type[2]);
509     my $width = $type[3];
510     $width //= $type[2];
511     $gentry->set_width_chars(int ($width) + 2) if defined ($width);
512     my $value = $$vhash{$name};
513     $value //= $$hash{$key}[CMDEF];
514     $gentry->set_text ($value);
515     $gentry->signal_connect('key-release-event' => sub {
516             my ($w, $e) = @_;
517             handle_nchar_value ($w, $e, \$$vhash{$name}, $type[1], $type[2]);
518         });
519     set_widget_hint ($gentry, $$hash{$key}[DESC]);
520     set_widget_sens ($gentry, $$hash{$key}[CMVER]);
521     $glabel->set_sensitive ($gentry->sensitive);
522     $hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
523     $hbox->pack_start ($gentry, FALSE, FALSE, HBOX_SPC);
524     #
525     return $hbox;
526 }
527
528 sub new_color_button_for($$$) {
529     my ($hash, $key, $vhash) = @_;
530     my $name = $$hash{$key}[NAME];
531     my $label = $$hash{$key}[LABEL];
532     #
533     my $value = $$vhash{$name};
534     $value //= $$hash{$key}[CMDEF];
535     my $col = gdk_color_from_str ($value);
536     my $hbox = Gtk2::HBox->new (FALSE, 5);
537     my $glabel = Gtk2::Label->new ($label);
538     my $button = Gtk2::ColorButton->new_with_color ($col);
539     $button->set_title ($label);
540     $button->set_relief ('none');
541     $button->signal_connect ('color-set' => sub {
542             my ($w, $e) = @_;
543             handle_color_value ($w, $e, \$$vhash{$name});
544         });
545     set_widget_hint ($button, $$hash{$key}[DESC]);
546     set_widget_sens ($button, $$hash{$key}[CMVER]);
547     $glabel->set_sensitive ($button->sensitive);
548     $hbox->pack_start ($button, FALSE, FALSE, HBOX_SPC);
549     $hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
550     #
551     return $hbox;
552 }
553
554 sub new_selection_box_for($$$) {
555     my ($hash, $key, $vhash) = @_;
556     my $name = $$hash{$key}[NAME];
557     my $label = $$hash{$key}[LABEL];
558     #
559     my $hbox = Gtk2::HBox->new (FALSE, 5);
560     my $glabel = Gtk2::Label->new ($label);
561     my $combo = Gtk2::ComboBox->new_text;
562     my @options = split (';', $$hash{$key}[TYPE]);
563     foreach my $opt (@options) {
564         my ($index, $textkey) = split ('=', $opt);
565         $combo->insert_text ($index, $xl::s{$textkey});
566     }
567     $combo->signal_connect ('changed' => sub {
568             my ($w, $e) = @_;
569             handle_selection_value ($w, $e, \$$vhash{$name});
570         });
571     my $value = $$vhash{$name};
572     $value //= $$hash{$key}[CMDEF];
573     $combo->set_active ($value);
574     set_widget_hint ($combo, $$hash{$key}[DESC]);
575     set_widget_sens ($combo, $$hash{$key}[CMVER]);
576     $glabel->set_sensitive ($combo->sensitive);
577     $hbox->pack_start ($glabel, FALSE, FALSE, HBOX_SPC);
578     $hbox->pack_start ($combo, FALSE, FALSE, HBOX_SPC);
579     #
580     return $hbox;
581 }
582
583 # more graphic helpers
584
585 sub new_hbox_pack {
586     my $hbox = Gtk2::HBox->new (FALSE, 5);
587     $hbox->set_border_width (PAGE_SPC);
588     foreach my $item (@_) {
589         $hbox->pack_start ($item, FALSE, FALSE, 0);
590     }
591     return $hbox;
592 }
593
594 sub new_vbox_pack {
595     my $vbox = Gtk2::VBox->new (FALSE, 5);
596     $vbox->set_border_width (PAGE_SPC);
597     foreach my $item (@_) {
598         $vbox->pack_start ($item, FALSE, FALSE, 0);
599     }
600     return $vbox;
601 }
602
603 sub new_vbox_pack_compact {
604     my $vbox = Gtk2::VBox->new (FALSE, 0);
605     $vbox->set_border_width (0);
606     foreach my $item (@_) {
607         $vbox->pack_start ($item, FALSE, FALSE, 0);
608     }
609     return $vbox;
610 }
611
612 sub new_subpage_frame {
613     my ($box, $title, $notpacked) = @_;
614     my $frame = Gtk2::Frame->new ($title);
615     $frame->add ($box);
616     return new_vbox_pack ($frame) unless defined ($notpacked);
617     return $frame;
618 }
619
620 # preference maps and corresponding page creation subs
621
622 %pr::oth = ( # other preferences
623     use_dlg => [
624         'addressbook_use_editaddress_dialog',
625         $xl::s{l_oth_use_dlg},
626         $xl::s{h_oth_use_dlg},
627         'bool',
628         '2.7.0',
629         '0',
630     ],
631     max_use => [
632         'cache_max_mem_usage',
633         $xl::s{l_oth_max_use},
634         $xl::s{h_oth_max_use},
635         'int,0,262144', # 0 Kb - 256 Mb
636         '0.0.0',
637         '4096',
638     ],
639     min_time => [
640         'cache_min_keep_time',
641         $xl::s{l_oth_min_time},
642         $xl::s{h_oth_min_time},
643         'int,0,120', # 0 minutes - 2 hours
644         '0.0.0',
645         '15',
646     ],
647     use_netm => [
648         'use_networkmanager',
649         $xl::s{l_oth_use_netm},
650         $xl::s{h_oth_use_netm},
651         'bool',
652         '3.3.1',
653         '1',
654     ],
655     mp_rounds => [
656         'master_passphrase_pbkdf2_rounds',
657         $xl::s{l_oth_mp_rounds},
658         $xl::s{h_oth_mp_rounds},
659         'int,50000,1000000',
660         '3.13.2.110',
661         '50000',
662     ],
663 );
664
665 sub new_other_page() {
666     return new_vbox_pack (
667                new_subpage_frame (
668                    new_vbox_pack (
669                        new_check_button_for(\%pr::oth, 'use_dlg', \%HPVALUE)),
670                    $xl::s{ab_frame}, 'not-packed'),
671                new_subpage_frame (
672                    new_vbox_pack (
673                        new_text_box_for_int(\%pr::oth, 'max_use', \%HPVALUE),
674                        new_text_box_for_int(\%pr::oth, 'min_time', \%HPVALUE)),
675                    $xl::s{mem_frame}, 'not-packed'),
676                new_subpage_frame (
677                    new_vbox_pack (
678                        new_check_button_for(\%pr::oth, 'use_netm', \%HPVALUE)),
679                    $xl::s{netm_frame}, 'not-packed'),
680                new_subpage_frame (
681                    new_vbox_pack (
682                        new_text_box_for_int(\%pr::oth, 'mp_rounds', \%HPVALUE)),
683                    $xl::s{mpass_frame}, 'not-packed')
684            );
685 }
686
687 %pr::gui = ( # gui bells and whistles
688     b_unread => [
689         'bold_unread',
690         $xl::s{l_gui_b_unread},
691         $xl::s{h_gui_b_unread},
692         'bool',
693         '0.0.0',
694         '1',
695     ],
696     no_markup => [
697         'compose_no_markup',
698         $xl::s{l_gui_no_markup},
699         $xl::s{h_gui_no_markup},
700         'bool',
701         '0.0.0',
702         '0',
703     ],
704     dot_lines => [
705         'enable_dotted_lines',
706         $xl::s{l_gui_dot_lines},
707         $xl::s{h_gui_dot_lines},
708         'bool',
709         '0.0.0,3.7.10.44',
710         '0',
711     ],
712     h_scroll => [
713         'enable_hscrollbar',
714         $xl::s{l_gui_h_scroll},
715         $xl::s{h_gui_h_scroll},
716         'bool',
717         '0.0.0',
718         '1',
719     ],
720     swp_from => [
721         'enable_swap_from',
722         $xl::s{l_gui_swp_from},
723         $xl::s{h_gui_swp_from},
724         'bool',
725         '0.0.0',
726         '0',
727     ],
728     v_scroll => [
729         'folderview_vscrollbar_policy',
730         $xl::s{l_gui_v_scroll},
731         $xl::s{h_gui_v_scroll},
732         '0=l_gui_v_scroll_show;1=l_gui_v_scroll_auto;2=l_gui_v_scroll_hide',
733         '0.0.0',
734         '0',
735     ],
736     from_show => [
737         'summary_from_show',
738         $xl::s{l_gui_from_show},
739         $xl::s{h_gui_from_show},
740         '0=l_gui_from_show_name;1=l_gui_from_show_addr;2=l_gui_from_show_both',
741         '3.7.10',
742         '0',
743     ],
744     strip_off => [
745         'stripes_color_offset',
746         $xl::s{l_gui_strip_off},
747         $xl::s{h_gui_strip_off},
748         'int,0,40000', # no idea what this number means
749         '0.0.0',
750         '4000',
751     ],
752     cursor_v => [
753         'textview_cursor_visible',
754         $xl::s{l_gui_cursor_v},
755         $xl::s{h_gui_cursor_v},
756         'bool',
757         '0.0.0',
758         '0',
759     ],
760     toolbar_d => [
761         'toolbar_detachable',
762         $xl::s{l_gui_toolbar_d},
763         $xl::s{h_gui_toolbar_d},
764         'bool',
765         '0.0.0',
766         '0',
767     ],
768     strip_all => [
769         'use_stripes_everywhere',
770         $xl::s{l_gui_strip_all},
771         $xl::s{h_gui_strip_all},
772         'bool',
773         '0.0.0',
774         '1',
775     ],
776     strip_sum => [
777         'use_stripes_in_summaries',
778         $xl::s{l_gui_strip_sum},
779         $xl::s{h_gui_strip_sum},
780         'bool',
781         '0.0.0',
782         '1',
783     ],
784     two_linev => [
785         'two_line_vertical',
786         $xl::s{l_gui_two_line_v},
787         $xl::s{h_gui_two_line_v},
788         'bool',
789         '3.4.0.7',
790         '0',
791     ],
792     margin_co => [
793         'show_compose_margin',
794         $xl::s{l_gui_margin_co},
795         $xl::s{h_gui_margin_co},
796         'bool',
797         '3.7.6.7',
798         '0',
799     ],
800     mview_date => [
801         'msgview_date_format',
802         $xl::s{l_gui_mview_date},
803         $xl::s{h_gui_mview_date},
804         'bool',
805         '3.7.8.42',
806         '0',
807     ],
808     zero_char => [
809         'zero_replacement_char',
810         $xl::s{l_gui_zero_char},
811         $xl::s{h_gui_zero_char},
812         'char,1,1',
813         '2.8.1.77',
814         '0',
815     ],
816     type_any => [
817         'type_any_header',
818         $xl::s{l_gui_type_any},
819         $xl::s{h_gui_type_any},
820         'bool',
821         '3.12.0.44',
822         '0',
823     ],
824     next_del => [
825         'next_on_delete',
826         $xl::s{l_gui_next_del},
827         $xl::s{h_gui_next_del},
828         'bool',
829         '3.13.0.5',
830         '0',
831     ],
832 );
833
834 sub new_gui_page() {
835     my $gf = Gtk2::VBox->new (FALSE, 5);
836     $gf->set_border_width (PAGE_SPC);
837
838     my $cb_dot_lines = new_check_button_for (\%pr::gui, 'dot_lines', \%HPVALUE);
839     my $cb_toolbar_d = new_check_button_for (\%pr::gui, 'toolbar_d', \%HPVALUE);
840     my $tb_zero_char = new_text_box_for_nchar (\%pr::gui, 'zero_char', \%HPVALUE);
841
842     $gf->pack_start (new_subpage_frame (
843                          new_vbox_pack (
844                              new_check_button_for (\%pr::gui, 'strip_all', \%HPVALUE),
845                              new_check_button_for (\%pr::gui, 'strip_sum', \%HPVALUE),
846                              new_text_box_for_int (\%pr::gui, 'strip_off', \%HPVALUE)),
847                          $xl::s{stripes_frame}, 'not-packed'),
848                      FALSE, FALSE, FRAME_SPC);
849     $gf->pack_start (new_subpage_frame (
850                          new_vbox_pack (
851                              new_check_button_for (\%pr::gui, 'b_unread', \%HPVALUE),
852                              new_check_button_for (\%pr::gui, 'swp_from', \%HPVALUE),
853                              new_check_button_for (\%pr::gui, 'two_linev', \%HPVALUE),
854                              new_check_button_for (\%pr::gui, 'next_del', \%HPVALUE),
855                              new_selection_box_for (\%pr::gui, 'from_show', \%HPVALUE)),
856                          $xl::s{mlist_frame}, 'not-packed'),
857                      FALSE, FALSE, FRAME_SPC);
858     $gf->pack_start (new_subpage_frame (
859                          new_hbox_pack (
860                              new_check_button_for (\%pr::gui, 'cursor_v', \%HPVALUE),
861                              new_check_button_for (\%pr::gui, 'mview_date', \%HPVALUE)),
862                          $xl::s{mview_frame}, 'not-packed'),
863                      FALSE, FALSE, FRAME_SPC);
864     $gf->pack_start (new_subpage_frame (
865                          new_hbox_pack (
866                              new_check_button_for (\%pr::gui, 'no_markup', \%HPVALUE),
867                              new_check_button_for (\%pr::gui, 'margin_co', \%HPVALUE),
868                              new_check_button_for (\%pr::gui, 'type_any', \%HPVALUE)),
869                          $xl::s{compo_frame}, 'not-packed'),
870                      FALSE, FALSE, FRAME_SPC);
871     $gf->pack_start ($cb_dot_lines, FALSE, FALSE, 0);
872     $gf->pack_start ($cb_toolbar_d, FALSE, FALSE, 0);
873     $gf->pack_start (new_subpage_frame (
874                          new_vbox_pack (
875                              new_check_button_for (\%pr::gui, 'h_scroll', \%HPVALUE),
876                              new_selection_box_for (\%pr::gui, 'v_scroll', \%HPVALUE)),
877                          $xl::s{sbar_frame}, 'not-packed'),
878                      FALSE, FALSE, FRAME_SPC);
879     $gf->pack_start ($tb_zero_char, FALSE, FALSE, 0);
880
881     return $gf;
882 }
883
884 %pr::beh = ( # tweak some behaviour
885     hover_t => [
886         'hover_timeout',
887         $xl::s{l_beh_hover_t},
888         $xl::s{h_beh_hover_t},
889         'int,100,3000', # 0.1 seconds - 3 seconds
890         '0.0.0',
891         '500',
892     ],
893     dangerous => [
894         'live_dangerously',
895         $xl::s{l_beh_dangerous},
896         $xl::s{h_beh_dangerous},
897         'bool',
898         '0.0.0',
899         '0',
900     ],
901     flowed => [
902         'respect_flowed_format',
903         $xl::s{l_beh_flowed},
904         $xl::s{h_beh_flowed},
905         'bool',
906         '0.0.0',
907         '0',
908     ],
909     parts_rw => [
910         'save_parts_readwrite',
911         $xl::s{l_beh_parts_rw},
912         $xl::s{h_beh_parts_rw},
913         'bool',
914         '0.0.0',
915         '0',
916     ],
917     skip_ssl => [
918         'skip_ssl_cert_check',
919         $xl::s{l_beh_skip_ssl},
920         $xl::s{h_beh_skip_ssl},
921         'bool',
922         '0.0.0',
923         '0',
924     ],
925     up_step => [
926         'statusbar_update_step',
927         $xl::s{l_beh_up_step},
928         $xl::s{h_beh_up_step},
929         'int,1,200', # 1 item - 200 items
930         '0.0.0',
931         '10',
932     ],
933     thread_a => [
934         'thread_by_subject_max_age',
935         $xl::s{l_beh_thread_a},
936         $xl::s{h_beh_thread_a},
937         'int,1,30', # 1 day - 30 days
938         '0.0.0',
939         '10',
940     ],
941     unsafe_ssl => [
942         'unsafe_ssl_certs',
943         $xl::s{l_beh_unsafe_ssl},
944         $xl::s{h_beh_unsafe_ssl},
945         'bool',
946         '0.0.0',
947         '0',
948     ],
949     use_utf8 => [
950         'utf8_instead_of_locale_for_broken_mail',
951         $xl::s{l_beh_use_utf8},
952         $xl::s{h_beh_use_utf8},
953         'bool',
954         '0.0.0',
955         '0',
956     ],
957     warn_dnd => [
958         'warn_dnd',
959         $xl::s{l_beh_warn_dnd},
960         $xl::s{h_beh_warn_dnd},
961         'bool',
962         '0.0.0',
963         '1',
964     ],
965     out_ascii => [
966         'outgoing_fallback_to_ascii',
967         $xl::s{l_beh_out_ascii},
968         $xl::s{h_beh_out_ascii},
969         'bool',
970         '3.4.0.37',
971         '1',
972     ],
973     pp_unsel => [
974         'primary_paste_unselects',
975         $xl::s{l_beh_pp_unsel},
976         $xl::s{h_beh_pp_unsel},
977         'bool',
978         '3.6.1.35',
979         '0',
980     ],
981     inline_at => [
982         'show_inline_attachments',
983         $xl::s{l_beh_inline_at},
984         $xl::s{h_beh_inline_at},
985         'bool',
986         '3.7.8.48',
987         '1',
988     ],
989     addr_swc => [
990         'address_search_wildcard',
991         $xl::s{l_beh_addr_swc},
992         $xl::s{h_beh_addr_swc},
993         'bool',
994         '3.9.3.18',
995         '0',
996     ],
997     fold_swc => [
998         'folder_search_wildcard',
999         $xl::s{l_beh_fold_swc},
1000         $xl::s{h_beh_fold_swc},
1001         'bool',
1002         '3.9.3.18',
1003         '0',
1004     ],
1005 );
1006
1007 sub new_behaviour_page() {
1008     my $bf = Gtk2::VBox->new (FALSE, 5);
1009     $bf->set_border_width (PAGE_SPC);
1010
1011     my $tb_up_step = new_text_box_for_int (\%pr::beh, 'up_step', \%HPVALUE);
1012     my $tb_thread_a = new_text_box_for_int (\%pr::beh, 'thread_a', \%HPVALUE);
1013
1014     $bf->pack_start (new_subpage_frame (
1015                          new_vbox_pack (
1016                              new_text_box_for_int (\%pr::beh, 'hover_t', \%HPVALUE),
1017                              new_check_button_for (\%pr::beh, 'warn_dnd', \%HPVALUE)),
1018                          $xl::s{dnd_frame}, 'not-packed'),
1019                      FALSE, FALSE, FRAME_SPC);
1020     $bf->pack_start (new_subpage_frame (
1021                          new_hbox_pack (
1022                              new_check_button_for (\%pr::beh, 'skip_ssl', \%HPVALUE),
1023                              new_check_button_for (\%pr::beh, 'unsafe_ssl', \%HPVALUE)),
1024                          $xl::s{ssl_frame}, 'not-packed'),
1025                      FALSE, FALSE, FRAME_SPC);
1026     $bf->pack_start ($tb_up_step, FALSE, FALSE, 0);
1027     $bf->pack_start ($tb_thread_a, FALSE, FALSE, 0);
1028     $bf->pack_start (new_subpage_frame (
1029                          new_vbox_pack (
1030                              new_check_button_for (\%pr::beh, 'flowed', \%HPVALUE),
1031                              new_check_button_for (\%pr::beh, 'parts_rw', \%HPVALUE),
1032                              new_check_button_for (\%pr::beh, 'use_utf8', \%HPVALUE),
1033                              new_check_button_for (\%pr::beh, 'dangerous', \%HPVALUE),
1034                              new_check_button_for (\%pr::beh, 'out_ascii', \%HPVALUE),
1035                              new_check_button_for (\%pr::beh, 'pp_unsel', \%HPVALUE),
1036                              new_check_button_for (\%pr::beh, 'inline_at', \%HPVALUE)),
1037                          $xl::s{msgs_frame}, 'not-packed'),
1038                      FALSE, FALSE, FRAME_SPC);
1039     $bf->pack_start (new_subpage_frame (
1040                          new_vbox_pack (
1041                              new_check_button_for (\%pr::beh, 'addr_swc', \%HPVALUE),
1042                              new_check_button_for (\%pr::beh, 'fold_swc', \%HPVALUE)),
1043                          $xl::s{swc_frame}, 'not-packed'),
1044                      FALSE, FALSE, FRAME_SPC);
1045     return $bf;
1046 }
1047
1048 %pr::col = ( # a variety of colours
1049     emphasis => [
1050         'emphasis_color',
1051         $xl::s{l_col_emphasis},
1052         $xl::s{h_col_emphasis},
1053         'color',
1054         '0.0.0',
1055         '#0000cf',
1056     ],
1057     log_err => [
1058         'log_error_color',
1059         $xl::s{l_col_log_err},
1060         $xl::s{h_col_log_err},
1061         'color',
1062         '0.0.0',
1063         '#af0000',
1064     ],
1065     log_in => [
1066         'log_in_color',
1067         $xl::s{l_col_log_in},
1068         $xl::s{h_col_log_in},
1069         'color',
1070         '0.0.0',
1071         '#000000',
1072     ],
1073     log_msg => [
1074         'log_msg_color',
1075         $xl::s{l_col_log_msg},
1076         $xl::s{h_col_log_msg},
1077         'color',
1078         '0.0.0',
1079         '#00af00',
1080     ],
1081     log_out => [
1082         'log_out_color',
1083         $xl::s{l_col_log_out},
1084         $xl::s{h_col_log_out},
1085         'color',
1086         '0.0.0',
1087         '#0000ef',
1088     ],
1089     log_warn => [
1090         'log_warn_color',
1091         $xl::s{l_col_log_warn},
1092         $xl::s{h_col_log_warn},
1093         'color',
1094         '0.0.0',
1095         '#af0000',
1096     ],
1097     diff_add => [
1098         'diff_added_color',
1099         $xl::s{l_col_diff_add},
1100         $xl::s{h_col_diff_add},
1101         'color',
1102         '3.8.0.54',
1103         '#008b8b',
1104     ],
1105     diff_del => [
1106         'diff_deleted_color',
1107         $xl::s{l_col_diff_del},
1108         $xl::s{h_col_diff_del},
1109         'color',
1110         '3.8.0.54',
1111         '#6a5acd',
1112     ],
1113     diff_hunk => [
1114         'diff_hunk_color',
1115         $xl::s{l_col_diff_hunk},
1116         $xl::s{h_col_diff_hunk},
1117         'color',
1118         '3.8.0.54',
1119         '#a52a2a',
1120     ],
1121 );
1122
1123 sub new_colours_page() {
1124     return new_vbox_pack (
1125                new_subpage_frame (
1126                    new_vbox_pack (
1127                        new_color_button_for (\%pr::col, 'emphasis', \%HPVALUE)),
1128                    $xl::s{msgview_frame}, 'not-packed'),
1129                new_subpage_frame (
1130                    new_vbox_pack (
1131                        new_color_button_for (\%pr::col, 'log_err', \%HPVALUE),
1132                        new_color_button_for (\%pr::col, 'log_in', \%HPVALUE),
1133                        new_color_button_for (\%pr::col, 'log_msg', \%HPVALUE),
1134                        new_color_button_for (\%pr::col, 'log_out', \%HPVALUE),
1135                        new_color_button_for (\%pr::col, 'log_warn', \%HPVALUE)),
1136                    $xl::s{log_frame}, 'not-packed'),
1137                new_subpage_frame (
1138                    new_vbox_pack (
1139                        new_color_button_for (\%pr::col, 'diff_add', \%HPVALUE),
1140                        new_color_button_for (\%pr::col, 'diff_del', \%HPVALUE),
1141                        new_color_button_for (\%pr::col, 'diff_hunk', \%HPVALUE)),
1142                    $xl::s{diff_frame}, 'not-packed')
1143            );
1144 }
1145
1146 %pr::win = ( # tweak window positions and/or sizes
1147     main_x => [
1148         'mainwin_x',
1149         $xl::s{l_win_x},
1150         $xl::s{h_win_x},
1151         'int,0,3000', # 0 pixels - 3000 pixels
1152         '0.0.0',
1153         '16',
1154     ],
1155     main_y => [
1156         'mainwin_y',
1157         $xl::s{l_win_y},
1158         $xl::s{h_win_y},
1159         'int,0,3000', # 0 pixels - 3000 pixels
1160         '0.0.0',
1161         '16',
1162     ],
1163     main_w => [
1164         'mainwin_width',
1165         $xl::s{l_win_w},
1166         $xl::s{h_win_w},
1167         'int,0,3000', # 0 pixels - 3000 pixels
1168         '0.0.0',
1169         '779',
1170     ],
1171     main_h => [
1172         'mainwin_height',
1173         $xl::s{l_win_h},
1174         $xl::s{h_win_h},
1175         'int,0,3000', # 0 pixels - 3000 pixels
1176         '0.0.0',
1177         '568',
1178     ],
1179     main_mx => [
1180         'mainwin_maximised',
1181         $xl::s{l_win_main_mx},
1182         $xl::s{h_win_main_mx},
1183         'bool',
1184         '0.0.0',
1185         '0',
1186     ],
1187     main_fs => [
1188         'mainwin_fullscreen',
1189         $xl::s{l_win_main_fs},
1190         $xl::s{h_win_main_fs},
1191         'bool',
1192         '0.0.0',
1193         '0',
1194     ],
1195     msgs_x => [
1196         'main_messagewin_x',
1197         $xl::s{l_win_x},
1198         $xl::s{h_win_x},
1199         'int,0,3000', # 0 pixels - 3000 pixels
1200         '0.0.0',
1201         '256',
1202     ],
1203     msgs_y => [
1204         'main_messagewin_y',
1205         $xl::s{l_win_y},
1206         $xl::s{h_win_y},
1207         'int,0,3000', # 0 pixels - 3000 pixels
1208         '0.0.0',
1209         '210',
1210     ],
1211     msgs_w => [
1212         'messagewin_width',
1213         $xl::s{l_win_w},
1214         $xl::s{h_win_w},
1215         'int,0,3000', # 0 pixels - 3000 pixels
1216         '0.0.0',
1217         '600',
1218     ],
1219     msgs_h => [
1220         'messagewin_height',
1221         $xl::s{l_win_h},
1222         $xl::s{h_win_h},
1223         'int,0,3000', # 0 pixels - 3000 pixels
1224         '0.0.0',
1225         '540',
1226     ],
1227     send_w => [
1228         'sendwin_width',
1229         $xl::s{l_win_w},
1230         $xl::s{h_win_w},
1231         'int,0,3000', # 0 pixels - 3000 pixels
1232         '0.0.0',
1233         '460',
1234     ],
1235     send_h => [
1236         'sendwin_height',
1237         $xl::s{l_win_h},
1238         $xl::s{h_win_h},
1239         'int,0,3000', # 0 pixels - 3000 pixels
1240         '0.0.0',
1241         '-1',
1242     ],
1243     recv_w => [
1244         'receivewin_width',
1245         $xl::s{l_win_w},
1246         $xl::s{h_win_w},
1247         'int,0,3000', # 0 pixels - 3000 pixels
1248         '0.0.0',
1249         '460',
1250     ],
1251     recv_h => [
1252         'receivewin_height',
1253         $xl::s{l_win_h},
1254         $xl::s{h_win_h},
1255         'int,0,3000', # 0 pixels - 3000 pixels
1256         '0.0.0',
1257         '-1',
1258     ],
1259     fold_x => [
1260         'folderwin_x',
1261         $xl::s{l_win_x},
1262         $xl::s{h_win_x},
1263         'int,0,3000', # 0 pixels - 3000 pixels
1264         '0.0.0',
1265         '16',
1266     ],
1267     fold_y => [
1268         'folderwin_y',
1269         $xl::s{l_win_y},
1270         $xl::s{h_win_y},
1271         'int,0,3000', # 0 pixels - 3000 pixels
1272         '0.0.0',
1273         '16',
1274     ],
1275     fold_w => [
1276         'folderitemwin_width',
1277         $xl::s{l_win_w},
1278         $xl::s{h_win_w},
1279         'int,0,3000', # 0 pixels - 3000 pixels
1280         '0.0.0',
1281         '500',
1282     ],
1283     fold_h => [
1284         'folderitemwin_height',
1285         $xl::s{l_win_h},
1286         $xl::s{h_win_h},
1287         'int,0,3000', # 0 pixels - 3000 pixels
1288         '0.0.0',
1289         '-1',
1290     ],
1291     fsel_w => [
1292         'folderselwin_width',
1293         $xl::s{l_win_w},
1294         $xl::s{h_win_w},
1295         'int,0,3000', # 0 pixels - 3000 pixels
1296         '0.0.0',
1297         '300',
1298     ],
1299     fsel_h => [
1300         'folderselwin_height',
1301         $xl::s{l_win_h},
1302         $xl::s{h_win_h},
1303         'int,0,3000', # 0 pixels - 3000 pixels
1304         '0.0.0',
1305         '-1',
1306     ],
1307     sour_w => [
1308         'sourcewin_width',
1309         $xl::s{l_win_w},
1310         $xl::s{h_win_w},
1311         'int,0,3000', # 0 pixels - 3000 pixels
1312         '0.0.0',
1313         '600',
1314     ],
1315     sour_h => [
1316         'sourcewin_height',
1317         $xl::s{l_win_h},
1318         $xl::s{h_win_h},
1319         'int,0,3000', # 0 pixels - 3000 pixels
1320         '0.0.0',
1321         '500',
1322     ],
1323     addr_w => [
1324         'addressbookwin_width',
1325         $xl::s{l_win_w},
1326         $xl::s{h_win_w},
1327         'int,0,3000', # 0 pixels - 3000 pixels
1328         '0.0.0',
1329         '520',
1330     ],
1331     addr_h => [
1332         'addressbookwin_height',
1333         $xl::s{l_win_h},
1334         $xl::s{h_win_h},
1335         'int,0,3000', # 0 pixels - 3000 pixels
1336         '0.0.0',
1337         '-1',
1338     ],
1339     adep_w => [
1340         'addressbookeditpersonwin_width',
1341         $xl::s{l_win_w},
1342         $xl::s{h_win_w},
1343         'int,0,3000', # 0 pixels - 3000 pixels
1344         '0.0.0',
1345         '640',
1346     ],
1347     adep_h => [
1348         'addressbookeditpersonwin_height',
1349         $xl::s{l_win_h},
1350         $xl::s{h_win_h},
1351         'int,0,3000', # 0 pixels - 3000 pixels
1352         '0.0.0',
1353         '320',
1354     ],
1355     adeg_w => [
1356         'addressbookeditgroupwin_width',
1357         $xl::s{l_win_w},
1358         $xl::s{h_win_w},
1359         'int,0,3000', # 0 pixels - 3000 pixels
1360         '0.0.0',
1361         '580',
1362     ],
1363     adeg_h => [
1364         'addressbookeditgroupwin_height',
1365         $xl::s{l_win_h},
1366         $xl::s{h_win_h},
1367         'int,0,3000', # 0 pixels - 3000 pixels
1368         '0.0.0',
1369         '340',
1370     ],
1371     adda_w => [
1372         'addressaddwin_width',
1373         $xl::s{l_win_w},
1374         $xl::s{h_win_w},
1375         'int,0,3000', # 0 pixels - 3000 pixels
1376         '0.0.0',
1377         '300',
1378     ],
1379     adda_h => [
1380         'addressaddwin_height',
1381         $xl::s{l_win_h},
1382         $xl::s{h_win_h},
1383         'int,0,3000', # 0 pixels - 3000 pixels
1384         '0.0.0',
1385         '-1',
1386     ],
1387     addf_w => [
1388         'addressbook_folderselwin_width',
1389         $xl::s{l_win_w},
1390         $xl::s{h_win_w},
1391         'int,0,3000', # 0 pixels - 3000 pixels
1392         '0.0.0',
1393         '300',
1394     ],
1395     addf_h => [
1396         'addressbook_folderselwin_height',
1397         $xl::s{l_win_h},
1398         $xl::s{h_win_h},
1399         'int,0,3000', # 0 pixels - 3000 pixels
1400         '0.0.0',
1401         '-1',
1402     ],
1403     acce_w => [
1404         'editaccountwin_width',
1405         $xl::s{l_win_w},
1406         $xl::s{h_win_w},
1407         'int,0,3000', # 0 pixels - 3000 pixels
1408         '0.0.0',
1409         '500',
1410     ],
1411     acce_h => [
1412         'editaccountwin_height',
1413         $xl::s{l_win_h},
1414         $xl::s{h_win_h},
1415         'int,0,3000', # 0 pixels - 3000 pixels
1416         '0.0.0',
1417         '-1',
1418     ],
1419     acco_w => [
1420         'accountswin_width',
1421         $xl::s{l_win_w},
1422         $xl::s{h_win_w},
1423         'int,0,3000', # 0 pixels - 3000 pixels
1424         '0.0.0',
1425         '500',
1426     ],
1427     acco_h => [
1428         'accountswin_height',
1429         $xl::s{l_win_h},
1430         $xl::s{h_win_h},
1431         'int,0,3000', # 0 pixels - 3000 pixels
1432         '0.0.0',
1433         '-1',
1434     ],
1435     filt_w => [
1436         'filteringwin_width',
1437         $xl::s{l_win_w},
1438         $xl::s{h_win_w},
1439         'int,0,3000', # 0 pixels - 3000 pixels
1440         '0.0.0',
1441         '500',
1442     ],
1443     filt_h => [
1444         'filteringwin_height',
1445         $xl::s{l_win_h},
1446         $xl::s{h_win_h},
1447         'int,0,3000', # 0 pixels - 3000 pixels
1448         '0.0.0',
1449         '-1',
1450     ],
1451     fila_w => [
1452         'filteringactionwin_width',
1453         $xl::s{l_win_w},
1454         $xl::s{h_win_w},
1455         'int,0,3000', # 0 pixels - 3000 pixels
1456         '0.0.0',
1457         '490',
1458     ],
1459     fila_h => [
1460         'filteringactionwin_height',
1461         $xl::s{l_win_h},
1462         $xl::s{h_win_h},
1463         'int,0,3000', # 0 pixels - 3000 pixels
1464         '0.0.0',
1465         '-1',
1466     ],
1467     fild_w => [
1468         'filtering_debugwin_width',
1469         $xl::s{l_win_w},
1470         $xl::s{h_win_w},
1471         'int,0,3000', # 0 pixels - 3000 pixels
1472         '0.0.0',
1473         '600',
1474     ],
1475     fild_h => [
1476         'filtering_debugwin_height',
1477         $xl::s{l_win_h},
1478         $xl::s{h_win_h},
1479         'int,0,3000', # 0 pixels - 3000 pixels
1480         '0.0.0',
1481         '-1',
1482     ],
1483     matc_w => [
1484         'matcherwin_width',
1485         $xl::s{l_win_w},
1486         $xl::s{h_win_w},
1487         'int,0,3000', # 0 pixels - 3000 pixels
1488         '0.0.0',
1489         '520',
1490     ],
1491     matc_h => [
1492         'matcherwin_height',
1493         $xl::s{l_win_h},
1494         $xl::s{h_win_h},
1495         'int,0,3000', # 0 pixels - 3000 pixels
1496         '0.0.0',
1497         '-1',
1498     ],
1499     pref_w => [
1500         'prefswin_width',
1501         $xl::s{l_win_w},
1502         $xl::s{h_win_w},
1503         'int,0,3000', # 0 pixels - 3000 pixels
1504         '0.0.0',
1505         '600',
1506     ],
1507     pref_h => [
1508         'prefswin_height',
1509         $xl::s{l_win_h},
1510         $xl::s{h_win_h},
1511         'int,0,3000', # 0 pixels - 3000 pixels
1512         '0.0.0',
1513         '-1',
1514     ],
1515     temp_w => [
1516         'templateswin_width',
1517         $xl::s{l_win_w},
1518         $xl::s{h_win_w},
1519         'int,0,3000', # 0 pixels - 3000 pixels
1520         '0.0.0',
1521         '480',
1522     ],
1523     temp_h => [
1524         'templateswin_height',
1525         $xl::s{l_win_h},
1526         $xl::s{h_win_h},
1527         'int,0,3000', # 0 pixels - 3000 pixels
1528         '0.0.0',
1529         '-1',
1530     ],
1531     acti_w => [
1532         'actionswin_width',
1533         $xl::s{l_win_w},
1534         $xl::s{h_win_w},
1535         'int,0,3000', # 0 pixels - 3000 pixels
1536         '0.0.0',
1537         '486',
1538     ],
1539     acti_h => [
1540         'actionswin_height',
1541         $xl::s{l_win_h},
1542         $xl::s{h_win_h},
1543         'int,0,3000', # 0 pixels - 3000 pixels
1544         '0.0.0',
1545         '-1',
1546     ],
1547     tags_w => [
1548         'tagswin_width',
1549         $xl::s{l_win_w},
1550         $xl::s{h_win_w},
1551         'int,0,3000', # 0 pixels - 3000 pixels
1552         '0.0.0',
1553         '486',
1554     ],
1555     tags_h => [
1556         'tagswin_height',
1557         $xl::s{l_win_h},
1558         $xl::s{h_win_h},
1559         'int,0,3000', # 0 pixels - 3000 pixels
1560         '0.0.0',
1561         '-1',
1562     ],
1563     plug_w => [
1564         'pluginswin_width',
1565         $xl::s{l_win_w},
1566         $xl::s{h_win_w},
1567         'int,0,3000', # 0 pixels - 3000 pixels
1568         '0.0.0',
1569         '-1',
1570     ],
1571     plug_h => [
1572         'pluginswin_height',
1573         $xl::s{l_win_h},
1574         $xl::s{h_win_h},
1575         'int,0,3000', # 0 pixels - 3000 pixels
1576         '0.0.0',
1577         '-1',
1578     ],
1579     logw_w => [
1580         'logwin_width',
1581         $xl::s{l_win_w},
1582         $xl::s{h_win_w},
1583         'int,0,3000', # 0 pixels - 3000 pixels
1584         '0.0.0',
1585         '520',
1586     ],
1587     logw_h => [
1588         'logwin_height',
1589         $xl::s{l_win_h},
1590         $xl::s{h_win_h},
1591         'int,0,3000', # 0 pixels - 3000 pixels
1592         '0.0.0',
1593         '-1',
1594     ],
1595     prin_w => [
1596         'print_previewwin_width',
1597         $xl::s{l_win_w},
1598         $xl::s{h_win_w},
1599         'int,0,3000', # 0 pixels - 3000 pixels
1600         '0.0.0',
1601         '600',
1602     ],
1603     prin_h => [
1604         'print_previewwin_height',
1605         $xl::s{l_win_h},
1606         $xl::s{h_win_h},
1607         'int,0,3000', # 0 pixels - 3000 pixels
1608         '0.0.0',
1609         '-1',
1610     ],
1611 );
1612
1613 sub new_winpos_subpage_main() {
1614     return new_subpage_frame (
1615                new_vbox_pack_compact (
1616                    new_vbox_pack (
1617                        new_text_box_for_int (\%pr::win, 'main_x', \%HPVALUE),
1618                        new_text_box_for_int (\%pr::win, 'main_y', \%HPVALUE)),
1619                    new_hbox_pack (
1620                        new_text_box_for_int (\%pr::win, 'main_w', \%HPVALUE),
1621                        new_text_box_for_int (\%pr::win, 'main_h', \%HPVALUE)),
1622                    new_vbox_pack (
1623                        new_check_button_for (\%pr::win, 'main_fs', \%HPVALUE),
1624                        new_check_button_for (\%pr::win, 'main_mx', \%HPVALUE))),
1625                _('Main window')
1626            );
1627 }
1628
1629 sub new_winpos_subpage_msgs() {
1630     return new_subpage_frame (
1631                new_vbox_pack_compact (
1632                    new_vbox_pack (
1633                        new_text_box_for_int (\%pr::win, 'msgs_x', \%HPVALUE),
1634                        new_text_box_for_int (\%pr::win, 'msgs_y', \%HPVALUE)),
1635                    new_hbox_pack (
1636                        new_text_box_for_int (\%pr::win, 'msgs_w', \%HPVALUE),
1637                        new_text_box_for_int (\%pr::win, 'msgs_h', \%HPVALUE))),
1638                _('Message window')
1639            );
1640 }
1641
1642 sub new_winpos_subpage_sendrecv() {
1643     return new_vbox_pack (
1644                new_subpage_frame (
1645                    new_hbox_pack (
1646                        new_text_box_for_int (\%pr::win, 'send_w', \%HPVALUE),
1647                        new_text_box_for_int (\%pr::win, 'send_h', \%HPVALUE)),
1648                    _('Send window'), 'not-packed'),
1649                new_subpage_frame (
1650                    new_hbox_pack (
1651                        new_text_box_for_int (\%pr::win, 'recv_w', \%HPVALUE),
1652                        new_text_box_for_int (\%pr::win, 'recv_h', \%HPVALUE)),
1653                    _('Receive window'), 'not-packed')
1654            );
1655 }
1656
1657 sub new_winpos_subpage_fold() {
1658     return new_vbox_pack (
1659                new_subpage_frame (
1660                    new_vbox_pack_compact (
1661                        new_vbox_pack (
1662                             new_text_box_for_int (\%pr::win, 'fold_x', \%HPVALUE),
1663                             new_text_box_for_int (\%pr::win, 'fold_y', \%HPVALUE)),
1664                        new_hbox_pack (
1665                            new_text_box_for_int (\%pr::win, 'fold_w', \%HPVALUE),
1666                            new_text_box_for_int (\%pr::win, 'fold_h', \%HPVALUE))),
1667                    _('Folder window'), 'not-packed'),
1668                new_subpage_frame (
1669                    new_hbox_pack (
1670                        new_text_box_for_int (\%pr::win, 'fsel_w', \%HPVALUE),
1671                        new_text_box_for_int (\%pr::win, 'fsel_h', \%HPVALUE)),
1672                    _('Folder selection window'), 'not-packed')
1673            );
1674 }
1675
1676 sub new_winpos_subpage_addrbook() {
1677     return new_vbox_pack (
1678                 new_subpage_frame (
1679                      new_hbox_pack (
1680                           new_text_box_for_int (\%pr::win, 'addr_w', \%HPVALUE),
1681                           new_text_box_for_int (\%pr::win, 'addr_h', \%HPVALUE)),
1682                      _('Addressbook main window'), 'not-packed'),
1683                 new_subpage_frame (
1684                      new_hbox_pack (
1685                           new_text_box_for_int (\%pr::win, 'adep_w', \%HPVALUE),
1686                           new_text_box_for_int (\%pr::win, 'adep_h', \%HPVALUE)),
1687                      _('Edit person window'), 'not-packed'),
1688                 new_subpage_frame (
1689                      new_hbox_pack (
1690                           new_text_box_for_int (\%pr::win, 'adeg_w', \%HPVALUE),
1691                           new_text_box_for_int (\%pr::win, 'adeg_h', \%HPVALUE)),
1692                      _('Edit group window'), 'not-packed'),
1693                 new_subpage_frame (
1694                      new_hbox_pack (
1695                           new_text_box_for_int (\%pr::win, 'adda_w', \%HPVALUE),
1696                           new_text_box_for_int (\%pr::win, 'adda_h', \%HPVALUE)),
1697                      _('Add address window'), 'not-packed'),
1698                 new_subpage_frame (
1699                      new_hbox_pack (
1700                           new_text_box_for_int (\%pr::win, 'addf_w', \%HPVALUE),
1701                           new_text_box_for_int (\%pr::win, 'addf_h', \%HPVALUE)),
1702                      _('Folder select window'), 'not-packed')
1703            );
1704 }
1705
1706 sub new_winpos_subpage_accounts() {
1707     return new_vbox_pack (
1708                 new_subpage_frame (
1709                      new_hbox_pack (
1710                           new_text_box_for_int (\%pr::win, 'acco_w', \%HPVALUE),
1711                           new_text_box_for_int (\%pr::win, 'acco_h', \%HPVALUE)),
1712                      _('Accounts window'), 'not-packed'),
1713                 new_subpage_frame (
1714                      new_hbox_pack (
1715                           new_text_box_for_int (\%pr::win, 'acce_w', \%HPVALUE),
1716                           new_text_box_for_int (\%pr::win, 'acce_h', \%HPVALUE)),
1717                      _('Edit account window'), 'not-packed')
1718            );
1719 }
1720
1721 sub new_winpos_subpage_filtering() {
1722     return new_vbox_pack (
1723                 new_subpage_frame (
1724                      new_hbox_pack (
1725                           new_text_box_for_int (\%pr::win, 'filt_w', \%HPVALUE),
1726                           new_text_box_for_int (\%pr::win, 'filt_h', \%HPVALUE)),
1727                      _('Filtering window'), 'not-packed'),
1728                 new_subpage_frame (
1729                      new_hbox_pack (
1730                           new_text_box_for_int (\%pr::win, 'fila_w', \%HPVALUE),
1731                           new_text_box_for_int (\%pr::win, 'fila_h', \%HPVALUE)),
1732                      _('Filtering actions window'), 'not-packed'),
1733                 new_subpage_frame (
1734                      new_hbox_pack (
1735                           new_text_box_for_int (\%pr::win, 'fild_w', \%HPVALUE),
1736                           new_text_box_for_int (\%pr::win, 'fild_h', \%HPVALUE)),
1737                      _('Filtering debug window'), 'not-packed'),
1738                 new_subpage_frame (
1739                      new_hbox_pack (
1740                           new_text_box_for_int (\%pr::win, 'matc_w', \%HPVALUE),
1741                           new_text_box_for_int (\%pr::win, 'matc_h', \%HPVALUE)),
1742                      _('Matcher window'), 'not-packed')
1743            );
1744 }
1745
1746 sub new_winpos_subpage_prefs() {
1747     return new_vbox_pack (
1748                 new_subpage_frame (
1749                      new_hbox_pack (
1750                           new_text_box_for_int (\%pr::win, 'pref_w', \%HPVALUE),
1751                           new_text_box_for_int (\%pr::win, 'pref_h', \%HPVALUE)),
1752                      _('Preferences window'), 'not-packed'),
1753                 new_subpage_frame (
1754                      new_hbox_pack (
1755                           new_text_box_for_int (\%pr::win, 'temp_w', \%HPVALUE),
1756                           new_text_box_for_int (\%pr::win, 'temp_h', \%HPVALUE)),
1757                      _('Templates window'), 'not-packed'),
1758                 new_subpage_frame (
1759                      new_hbox_pack (
1760                           new_text_box_for_int (\%pr::win, 'acti_w', \%HPVALUE),
1761                           new_text_box_for_int (\%pr::win, 'acti_h', \%HPVALUE)),
1762                      _('Actions window'), 'not-packed'),
1763                 new_subpage_frame (
1764                      new_hbox_pack (
1765                           new_text_box_for_int (\%pr::win, 'tags_w', \%HPVALUE),
1766                           new_text_box_for_int (\%pr::win, 'tags_h', \%HPVALUE)),
1767                      _('Tags window'), 'not-packed'),
1768                 new_subpage_frame (
1769                      new_hbox_pack (
1770                           new_text_box_for_int (\%pr::win, 'plug_w', \%HPVALUE),
1771                           new_text_box_for_int (\%pr::win, 'plug_h', \%HPVALUE)),
1772                      _('Plugins window'), 'not-packed')
1773            );
1774 }
1775
1776 sub new_winpos_subpage_misc() {
1777     return new_vbox_pack (
1778                 new_subpage_frame (
1779                      new_hbox_pack (
1780                           new_text_box_for_int (\%pr::win, 'logw_w', \%HPVALUE),
1781                           new_text_box_for_int (\%pr::win, 'logw_h', \%HPVALUE)),
1782                      _('Log window'), 'not-packed'),
1783                 new_subpage_frame (
1784                      new_hbox_pack (
1785                           new_text_box_for_int (\%pr::win, 'prin_w', \%HPVALUE),
1786                           new_text_box_for_int (\%pr::win, 'prin_h', \%HPVALUE)),
1787                      _('Print preview window'), 'not-packed'),
1788                 new_subpage_frame (
1789                      new_hbox_pack (
1790                           new_text_box_for_int (\%pr::win, 'sour_w', \%HPVALUE),
1791                           new_text_box_for_int (\%pr::win, 'sour_h', \%HPVALUE)),
1792                      _('View source window'), 'not-packed')
1793            );
1794 }
1795
1796 sub new_winpos_page() {
1797     my $winbook = Gtk2::Notebook->new;
1798     $winbook->set_tab_pos ('right');
1799     $winbook->append_page (new_winpos_subpage_main, _('Main'));
1800     $winbook->append_page (new_winpos_subpage_msgs, _('Message'));
1801     $winbook->append_page (new_winpos_subpage_sendrecv, _('Send/Receive'));
1802     $winbook->append_page (new_winpos_subpage_fold, _('Folder'));
1803     $winbook->append_page (new_winpos_subpage_addrbook, _('Addressbook'));
1804     $winbook->append_page (new_winpos_subpage_accounts, _('Accounts'));
1805     $winbook->append_page (new_winpos_subpage_filtering, _('Filtering'));
1806     $winbook->append_page (new_winpos_subpage_prefs, _('Preferences'));
1807     $winbook->append_page (new_winpos_subpage_misc, _('Other'));
1808     return $winbook;
1809 }
1810
1811 %pr::acc = ( # per account hidden preferences
1812     tls_set => [
1813         'gnutls_set_priority',
1814         $xl::s{l_acc_gtls_set},
1815         $xl::s{h_acc_gtls_set},
1816         'bool',
1817         '3.9.0.181',
1818         '0',
1819     ],
1820     tls_pri => [
1821         'gnutls_priority',
1822         $xl::s{l_acc_gtls_pri},
1823         $xl::s{h_acc_gtls_pri},
1824         'char,0,256,32',
1825         '3.9.0.181',
1826         '0',
1827     ],
1828 );
1829
1830 sub new_account_subpage($) {
1831     my ($akey) = @_;
1832     return new_vbox_pack (
1833                 new_subpage_frame (
1834                     new_vbox_pack (
1835                         new_check_button_for (\%pr::acc, 'tls_set', $ACHPVALUE{$akey}),
1836                         new_text_box_for_nchar (\%pr::acc, 'tls_pri', $ACHPVALUE{$akey})),
1837                     _('GnuTLS priority'), 'not-packed')
1838            );
1839 }
1840
1841 sub new_accounts_page() {
1842     my $accbook = Gtk2::Notebook->new;
1843     $accbook->set_tab_pos ('right');
1844     foreach (keys %ACPREFS) {
1845         my $name = $ACPREFS{$_}{'account_name'};
1846         $accbook->append_page (new_account_subpage ($_), $name);
1847     }
1848     return $accbook;
1849 }
1850
1851 %pr::plu = ( # plugins hidden preferences
1852     # att_remover
1853     arm_winw => [
1854         'win_width',
1855         $xl::s{l_win_w},
1856         $xl::s{h_win_w},
1857         'int,0,3000', # 0 pixels - 3000 pixels
1858         '3.9.0.74',
1859         '-1',
1860     ],
1861     arm_winh => [
1862         'win_height',
1863         $xl::s{l_win_h},
1864         $xl::s{h_win_h},
1865         'int,0,3000', # 0 pixels - 3000 pixels
1866         '3.9.0.74',
1867         '-1',
1868     ],
1869     # libravatar
1870     lav_burl => [
1871         'base_url',
1872         $xl::s{l_plu_lav_burl},
1873         $xl::s{h_plu_lav_burl},
1874         'char,0,1024,32',
1875         '3.9.3.32',
1876         'http://cdn.libravatar.org/avatar',
1877     ],
1878     # perl
1879     prl_flvb => [
1880         'filter_log_verbosity',
1881         $xl::s{l_plu_prl_flvb},
1882         $xl::s{h_plu_prl_flvb},
1883         '0=l_plu_prl_none;1=l_plu_prl_manual;2=l_plu_prl_action;3=l_plu_prl_match',
1884         '3.9.0.75',
1885         '2',
1886     ],
1887 );
1888
1889 sub new_plugins_page() {
1890     return new_vbox_pack (
1891                 new_subpage_frame (
1892                      new_hbox_pack (
1893                           new_text_box_for_int (\%pr::plu, 'arm_winw', \%HPVALUE),
1894                           new_text_box_for_int (\%pr::plu, 'arm_winh', \%HPVALUE)),
1895                      _('Attachment remover'), 'not-packed'),
1896                 new_subpage_frame (
1897                      new_hbox_pack (
1898                           new_text_box_for_nchar (\%pr::plu, 'lav_burl', \%HPVALUE)),
1899                      _('Libravatar'), 'not-packed'),
1900                 new_subpage_frame (
1901                      new_hbox_pack (
1902                           new_selection_box_for (\%pr::plu, 'prl_flvb', \%HPVALUE)),
1903                      _('Perl'), 'not-packed')
1904            );
1905 }
1906
1907 # version info
1908 sub print_version() {
1909     print $xl::s{about_title} . "\n";
1910     print $xl::s{about_version} . " $VERSION\n";
1911     print "Perl-GLib " . $Glib::VERSION;
1912     # version info stuff appeared in 1.040
1913     if ($Glib::VERSION >= 1.040) {
1914         print _(", built for ") . join(".", Glib->GET_VERSION_INFO)
1915               . _(", running with ") . join(".", &Glib::major_version,
1916               &Glib::minor_version, &Glib::micro_version);
1917     }
1918     print "\n";
1919     print "Perl-GTK2 " . $Gtk2::VERSION;
1920     if ($Gtk2::VERSION >= 1.040) {
1921         print _(", built for ") . join(".", Gtk2->GET_VERSION_INFO)
1922               . _(", running with ") . join(".", &Gtk2::major_version,
1923               &Gtk2::minor_version, &Gtk2::micro_version);
1924     }
1925     print "\n";
1926     my $clawsver = ($CLAWSV eq "") ?
1927                 _("was not found!") :
1928                 (_("returned version ") . $CLAWSV);
1929     print "Claws Mail " . $clawsver . "\n";
1930 }
1931
1932 # the command line help
1933 sub print_help() {
1934     my $line = '-' x length ($xl::s{about_title}) . "\n";
1935     print $line;
1936     print $xl::s{about_title} . "\n";
1937     print $line;
1938     print _("Syntax:\n");
1939     print _("  clawsker [options]\n");
1940     print _("Options:\n");
1941     print _("  -h|--help                        Prints this help screen.\n");
1942     print _("  -v|--version                     Prints version infos.\n");
1943     print _("  -b|--verbose                     More messages on standard output.\n");
1944     print _("  -a|--alternate-config-dir <dir>  Uses <dir> as Claws Mail config dir.\n");
1945     print _("  -c|--clawsrc <file>              Uses <file> as full resource name.\n");
1946 }
1947
1948 sub parse_command_line {
1949     my $cont = TRUE;
1950     $CLAWSV = get_claws_version ();
1951     eval {
1952         GetOptions('h|help' => sub { print_help (); $cont = FALSE },
1953             'v|version' => sub { print_version (); $cont = FALSE },
1954             'b|verbose' => sub { $VERBOSE = TRUE },
1955             'r|read-only' => sub { $READONLY = TRUE },
1956             'u|use-claws-version=s' => \&opt_use_claws_version,
1957             'a|alternate-config-dir=s' => \&opt_alternate_config_dir,
1958             'c|clawsrc=s' => \&opt_clawsrc)
1959         or die _("try -h or --help for syntax.\n");
1960     };
1961     if ($@) {
1962         my $msg = _("Error in options: {msg}\n", msg => $@);
1963         if (defined $ENV{'DISPLAY'} and $ENV{'DISPLAY'} ne '') {
1964             eval { Gtk2->init };
1965             error_dialog ($msg) unless $@;
1966         }
1967         die $msg;
1968     }
1969     return $cont;
1970 }
1971
1972 sub opt_use_claws_version {
1973     my ($name, $value) = @_;
1974     die _("Error: {opt} requires a dotted numeric value argument\n", opt => $name)
1975         unless ($value =~ /^[\d\.]+$/);
1976     $CLAWSV = $value;
1977 }
1978
1979 sub opt_alternate_config_dir {
1980     my ($name, $value) = @_;
1981     die _("Error: '{dir}' is not a directory or does not exist\n", dir => $value)
1982         unless -d $value;
1983     $CONFIGDIR = $value;
1984     $CONFIGDIR .= "/" unless ($CONFIGDIR =~ /.*\/$/);
1985     $ALTCONFIGDIR = TRUE;
1986 }
1987
1988 sub opt_clawsrc {
1989     my ($name, $value) = @_;
1990     die _("Error: '{value}' is not a file or does not exist\n", value => $value)
1991         unless -f $value;
1992     set_rc_filename ($value);
1993 }
1994
1995 # update the hidden preferences status from loaded values
1996 sub init_hidden_preferences {
1997     foreach my $hash (\%pr::beh, \%pr::col, \%pr::gui, \%pr::oth, \%pr::win) {
1998         foreach my $key (keys %$hash) {
1999             $HPVALUE{${$hash}{$key}[NAME]} = $PREFS{${$hash}{$key}[NAME]};
2000         }
2001     }
2002     return TRUE;
2003 }
2004
2005 sub init_ac_hidden_preferences {
2006     foreach my $akey (keys %ACPREFS) {
2007         foreach my $key (keys %pr::acc) {
2008             my $pname = $pr::acc{$key}[NAME];
2009             $ACHPVALUE{$akey}{$pname} = $ACPREFS{$akey}{$pname};
2010         }
2011     }
2012     return TRUE;
2013 }
2014
2015 # generic load/save resource files
2016 sub load_resource {
2017     my $rc = shift;
2018     my %data = ();
2019     my %meta = ();
2020     my $line = 0;
2021     open (RCF, '<:encoding(utf8)', $rc)
2022         or die _("Error: opening '{file}' for reading", file => $rc) . ": $!";
2023     my $section = '_'; # default unnamed section
2024     while (<RCF>) {
2025         chomp;
2026         ++$line;
2027         next if (/^\s*$/);
2028         if (/^\[([^\]]+)\]$/) { # new section
2029             $section = $1;
2030             die _("Error: duplicate section '{sect}' in resource file '{file}'\n",
2031                 sect => $section, file => $rc) if ($data{$section});
2032             $data{$section} = {};
2033             $meta{$section}{'#'} = $line;
2034         }
2035         elsif (/^([0-9a-z_]+)=(.*)$/) { # key=value
2036             $data{$section}{$1} = $2;
2037             $meta{$section}{$1} = $line;
2038         }
2039         elsif (/^(.*)$/) { # lone value
2040             push (@{$data{$section}{'_'}}, $1);
2041         }
2042     }
2043     close (RCF);
2044     return (\%data, \%meta);
2045 }
2046
2047 sub save_resource {
2048     my ($rc, $data, $meta) = @_;
2049     open (RCF, '>:utf8', $rc)
2050         or die _("Error: opening '{file}' for writing", file => $rc) . ": $!";
2051     my @sections = keys %$data;
2052     if (defined $meta) {
2053         @sections = sort {
2054             $meta->{$a}{'#'} <=> $meta->{$b}{'#'}
2055         } @sections
2056     }
2057     foreach my $section (@sections) {
2058         say RCF "[$section]";
2059         if (ref ($data->{$section}{'_'}) eq 'ARRAY') {
2060             foreach my $val (@{$data->{$section}{'_'}}) {
2061                 say RCF $val;
2062             }
2063         } else {
2064             my @keys = keys %{$data->{$section}};
2065             if (defined $meta) {
2066                 @keys = sort {
2067                     $meta->{$section}{$a} <=> $meta->{$section}{$b}
2068                 } @keys
2069             }
2070             foreach my $key (@keys) {
2071                 my $val = $data->{$section}{$key};
2072                 say RCF "$key=$val";
2073             }
2074         }
2075         say RCF "";
2076     }
2077     close (RCF);
2078 }
2079
2080 # load current status from disc
2081 sub load_preferences {
2082     my $rc = get_rc_filename ();
2083     log_message ("Loading preferences from $rc\n");
2084     return FALSE unless check_rc_file ($rc);
2085     return FALSE unless check_claws_not_running ();
2086     open (RCF, "<$rc");
2087     while (<RCF>) {
2088         chomp;
2089         if (/^([8a-z_]+)=(.*)$/) {
2090             $PREFS{$1} = decode('UTF-8', $2);
2091         }
2092     }
2093     close (RCF);
2094     return TRUE;
2095 }
2096
2097 sub load_ac_preferences {
2098     my $rc = get_ac_rc_filename ();
2099     log_message ("Loading account preferences from $rc\n");
2100     return FALSE unless check_rc_file ($rc);
2101     return FALSE unless check_claws_not_running ();
2102     open (RCF, "<$rc");
2103     my $akey;
2104     while (<RCF>) {
2105         chomp;
2106         if (/^\[Account: (\d+)\]$/) {
2107           $akey = $1;
2108           next;
2109         }
2110         if (/^([8a-z_]+)=(.*)$/) {
2111             $ACPREFS{$akey}{$1} = decode('UTF-8', $2);
2112         }
2113     }
2114     close (RCF);
2115     return TRUE;
2116 }
2117
2118 # save current preferences to disc
2119 sub save_preferences {
2120     my $rc = get_rc_filename ();
2121     log_message ("Saving preferences to $rc\n");
2122     return FALSE unless check_rc_file ($rc);
2123     return FALSE unless check_claws_not_running ();
2124     my $rcbak = "$rc.backup";
2125     rename ($rc, $rcbak);
2126     open (RCF, ">$rc");
2127     open (RCB, "<$rcbak");
2128     while (<RCB>) {
2129         chomp;
2130         if (/^([8a-z_]+)=(.*)$/) {
2131             if (defined($HPVALUE{$1})) {
2132                 print RCF $1 . "=" . $HPVALUE{$1} . "\n";
2133             }
2134             else {
2135                 print RCF $_ . "\n";
2136             }
2137         }
2138         else {
2139             print RCF $_ . "\n";
2140         }
2141     }
2142     close (RCB);
2143     close (RCF);
2144     return TRUE;
2145 }
2146
2147 sub save_ac_preferences {
2148     my $rc = get_ac_rc_filename ();
2149     log_message ("Saving account preferences to $rc\n");
2150     return FALSE unless check_rc_file ($rc);
2151     return FALSE unless check_claws_not_running ();
2152     my $rcbak = "$rc.backup";
2153     rename ($rc, $rcbak);
2154     open (RCF, ">$rc");
2155     open (RCB, "<$rcbak");
2156     my $akey;
2157     while (<RCB>) {
2158         chomp;
2159         if (/^\[Account: (\d+)\]$/) {
2160           $akey = $1;
2161           print RCF $_ . "\n";
2162           next;
2163         }
2164         if (/^([8a-z_]+)=(.*)$/) {
2165             if (defined($ACHPVALUE{$akey}{$1})) {
2166                 print RCF $1 . "=" . $ACHPVALUE{$akey}{$1} . "\n";
2167             }
2168             else {
2169                 print RCF $_ . "\n";
2170             }
2171         }
2172         else {
2173             print RCF $_ . "\n";
2174         }
2175     }
2176     close (RCB);
2177     close (RCF);
2178     return TRUE;
2179 }
2180
2181 # create notebook
2182 sub new_notebook {
2183     my $nb = Gtk2::Notebook->new;
2184     #
2185     $nb->append_page (new_behaviour_page (), $xl::s{tab_behaviour});
2186     $nb->append_page (new_colours_page (), $xl::s{tab_colours});
2187     $nb->append_page (new_gui_page (), $xl::s{tab_gui});
2188     $nb->append_page (new_other_page (), $xl::s{tab_other});
2189     $nb->append_page (new_winpos_page (), $xl::s{tab_winpos});
2190     $nb->append_page (new_accounts_page (), $xl::s{tab_accounts});
2191     $nb->append_page (new_plugins_page (), $xl::s{tab_plugins});
2192
2193     return $nb;
2194 }
2195
2196 # create an about dialog
2197 sub new_about_dialog {
2198     my ($parent) = @_;
2199     my $title = $xl::s{about_title};
2200     my $lic = $xl::s{about_license};
2201     my $vers = $xl::s{about_version} . " $VERSION";
2202     my $license =
2203 "This program is free software: you can redistribute it and/or modify
2204 it under the terms of the GNU General Public License as published by
2205 the Free Software Foundation, either version 3 of the License, or
2206 (at your option) any later version.
2207
2208 This program is distributed in the hope that it will be useful,
2209 but WITHOUT ANY WARRANTY; without even the implied warranty of
2210 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
2211 GNU General Public License for more details.
2212
2213 You should have received a copy of the GNU General Public License
2214 along with this program.  If not, see &lt;http://www.gnu.org/licenses/&gt;.";
2215     my $year = "2007-2016";
2216     my $holder = "Ricardo Mones &lt;ricardo\@mones.org&gt;";
2217     my $url = "http://www.claws-mail.org/clawsker.php";
2218
2219     my $dialog = Gtk2::MessageDialog->new_with_markup ($parent,
2220                     [qw/modal destroy-with-parent/],
2221                     'info', 'close',
2222                     "<span size=\"x-large\" weight=\"bold\">$title</span>\n"
2223                     . "<span size=\"large\">$vers</span>\n\n"
2224                     . "<span color=\"blue\" size=\"large\">$url</span>\n\n"
2225                     . "<span>Copyright $year by $holder</span>\n\n"
2226                     . "<span size=\"large\">$lic</span>\n\n"
2227                     . "<span size=\"small\">$license</span>");
2228     $dialog->set_title ($xl::s{about});
2229     #
2230     return $dialog;
2231 }
2232
2233 # create buttons box
2234 sub new_button_box {
2235     my ($parent, $adlg) = @_;
2236     my $b_about = Gtk2::Button->new_from_stock ('gtk-about');
2237     my $b_exit = Gtk2::Button->new_from_stock ('gtk-quit');
2238     my $b_apply = Gtk2::Button->new_from_stock ('gtk-apply');
2239     # disable button until is really implemented
2240     # my $b_undo = Gtk2::Button->new_from_stock ('gtk-undo');
2241     my $hbox = Gtk2::HBox->new (FALSE, 5);
2242     # signal handlers
2243     $b_exit->signal_connect (clicked => sub { Gtk2->main_quit });
2244     $b_apply->set_sensitive (not $READONLY);
2245     $b_apply->signal_connect (clicked => sub {
2246         save_preferences ($parent);
2247         save_ac_preferences ($parent);
2248     });
2249     # $b_undo->signal_connect (clicked => sub { undo_current_changes });
2250     $b_about->signal_connect (clicked => sub { $adlg->run; $adlg->hide });
2251     # package them
2252     $hbox->pack_end ($b_apply, FALSE, FALSE, 0);
2253     $hbox->pack_end ($b_exit, FALSE, FALSE, 0);
2254     # $hbox->pack_end ($b_undo, FALSE, FALSE, 0);
2255     $hbox->pack_start ($b_about, FALSE, FALSE, 0);
2256     #
2257     return $hbox;
2258 }
2259
2260 sub get_app_icons {
2261     my $dir = $DATADIR . '/icons/hicolor';
2262     my @names = map {
2263       join ('/', ($dir, , $_ . 'x' . $_, 'apps', $NAME . '.png'))
2264     } (64, 128);
2265     my @icons = ();
2266     foreach (@names) {
2267         my $icon = undef;
2268         $icon = Gtk2::Gdk::Pixbuf->new_from_file($_) if (-f $_);
2269         push @icons, $icon if ($icon);
2270     }
2271     return @icons;
2272 }
2273
2274 # initialise
2275 exit unless parse_command_line ();
2276 Gtk2->init;
2277 $main_window = Gtk2::Window->new ('toplevel');
2278 exit unless load_preferences ();
2279 exit unless load_ac_preferences ();
2280 exit unless init_hidden_preferences ();
2281 exit unless init_ac_hidden_preferences ();
2282 # create main GUI
2283 my $box = Gtk2::VBox->new (FALSE, 5);
2284 $box->set_border_width(3);
2285 my $about = new_about_dialog ();
2286 $box->pack_start (new_notebook (), FALSE, FALSE, 0);
2287 $box->pack_end (new_button_box ($main_window, $about), FALSE, FALSE, 0);
2288 $main_window->signal_connect (delete_event => sub { Gtk2->main_quit });
2289 $main_window->set_title ($xl::s{win_title});
2290 $main_window->set_icon_list (get_app_icons ());
2291 $main_window->add ($box);
2292 $main_window->show_all;
2293 Gtk2->main;
2294