22d2fa7e3625e70464c2bc55074566c23e4975ae
[clawsker.git] / clawsker
1 #!/usr/bin/perl -w
2 #
3 # Clawsker :: A Claws Mail Tweaker
4 # Copyright 2007-2018 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 version 0.77;
21 use Glib qw(TRUE FALSE);
22 use Gtk3;
23 use File::Which;
24 use File::Spec::Functions;
25 use POSIX qw(setlocale);
26 use Locale::gettext;
27 use Encode;
28 use Digest::MD5 qw(md5_hex);
29 use Getopt::Long;
30
31 my $NAME = 'clawsker';
32 my $PREFIX = '@PREFIX@';
33 my $LIBDIR = '@LIBDIR@';
34 my $DATADIR = '@DATADIR@';
35 my $VERSION = '@VERSION@';
36 my $VERBOSE = FALSE;
37 my $READONLY = FALSE;
38 my $CLAWSV = undef;
39 my $main_window = undef;
40
41 my $locale = (defined($ENV{LC_MESSAGES}) ? $ENV{LC_MESSAGES} : $ENV{LANG});
42 $locale = "C" unless defined($locale);
43 setlocale (LC_ALL, $locale);
44 bindtextdomain ($NAME, catdir ($PREFIX, 'share', 'locale'));
45 textdomain ($NAME);
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     about_title => _('Clawsker :: A Claws Mail Tweaker'),
62
63     l_oth_use_dlg => _('Use detached address book edit dialogue'),
64     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.'),
65     l_oth_max_use => _('Maximum memory for message cache'),
66     l_oth_max_use_units => _('kilobytes'),
67     h_oth_max_use => _('The maximum amount of memory to use to cache messages, in kilobytes.'),
68     l_oth_min_time => _('Minimun time for cache elements'),
69     l_oth_min_time_units => _('minutes'),
70     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.'),
71     l_oth_use_netm => _('Use NetworkManager'),
72     h_oth_use_netm => _('Use NetworkManager to switch offline automatically.'),
73     l_oth_mp_rounds => _('Rounds for PBKDF2 function'),
74     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.'),
75
76     l_gui_b_unread => _('Show unread messages with bold font'),
77     h_gui_b_unread => _('Show unread messages in the Message List using a bold font.'),
78     l_gui_no_markup => _('Don\'t use markup'),
79     h_gui_no_markup => _('Don\'t use bold and italic text in Compose dialogue\'s account selector.'),
80     l_gui_dot_lines => _('Use dotted lines in tree view components'),
81     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.'),
82     l_gui_h_scroll => _('Enable horizontal scrollbar'),
83     h_gui_h_scroll => _('Enable the horizontal scrollbar in the Message List.'),
84     l_gui_swp_from => _('Display To column instead From column in Sent folder'),
85     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.'),
86     l_gui_v_scroll => _('Folder List scrollbar behaviour'),
87     h_gui_v_scroll => _('Specify the policy of vertical scrollbar of Folder List: show always, automatic or hide always.'),
88     l_gui_v_scroll_show => _('Show always'),
89     l_gui_v_scroll_auto => _('Automatic'),
90     l_gui_v_scroll_hide => _('Hide always'),
91     l_gui_from_show => _('From column displays'),
92     h_gui_from_show => _('Selects the data displayed in the From column of the Message List: name, address or both.'),
93     l_gui_from_show_name => _('Name only'),
94     l_gui_from_show_addr => _('Address only'),
95     l_gui_from_show_both => _('Both name and address'),
96     l_gui_strip_off => _('Coloured lines contrast'),
97     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.'),
98     l_gui_cursor_v => _('Show cursor'),
99     h_gui_cursor_v => _('Display the cursor in the Message View.'),
100     l_gui_toolbar_d => _('Detachable toolbars'),
101     h_gui_toolbar_d => _('Show handles in the toolbars.'),
102     l_gui_strip_all => _('Use stripes in all tree view components'),
103     h_gui_strip_all => _('Enable alternately coloured lines in all tree view components.'),
104     l_gui_strip_sum => _('Use stripes in Folder List and Message List'),
105     h_gui_strip_sum => _('Enable alternately coloured lines in Message List and Folder List.'),
106     l_gui_two_line_v => _('2 lines per Message List item in 3-column layout'),
107     h_gui_two_line_v => _('Spread Message List information over two lines when using the three column mode.'),
108     l_gui_margin_co => _('Show margin'),
109     h_gui_margin_co => _('Shows a small margin in the Compose View.'),
110     l_gui_mview_date => _('Don\'t display localized date'),
111     h_gui_mview_date => _('Toggles localization of date format in Message View.'),
112     l_gui_zero_char => _('Zero replacement character'),
113     h_gui_zero_char => _('Replaces \'0\' with the given character in Folder List.'),
114     l_gui_type_any => _('Editable headers'),
115     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.'),
116     l_gui_warn_send_multi => _('Warn when sending to more than'),
117     l_gui_warn_send_multi_units => _('recipients'),
118     h_gui_warn_send_multi => _('Show a warning dialogue when sending to more recipients than specified. Use 0 to disable this check.'),
119     l_gui_next_del => _('Select next message on delete'),
120     h_gui_next_del => _('When deleting a message, toggles between selecting the next one (newer message) or the previous one (older message).'),
121
122     l_beh_hover_t => _('Drag \'n\' drop hover timeout'),
123     l_beh_hover_t_units => _('milliseconds'),
124     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.'),
125     l_beh_dangerous => _('Don\'t confirm deletions (dangerous!)'),
126     h_beh_dangerous => _('Don\'t ask for confirmation before definitive deletion of emails.'),
127     l_beh_flowed => _('Respect format=flowed in messages'),
128     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.'),
129     l_beh_parts_rw => _('Allow writable temporary files'),
130     h_beh_parts_rw => _('Saves temporary files when opening attachment with write bit set.'),
131     l_beh_skip_ssl => _('Don\'t check SSL certificates'),
132     h_beh_skip_ssl => _('Disables the verification of SSL certificates.'),
133     l_beh_up_step => _('Progress bar update step every'),
134     l_beh_up_step_units => _('items'),
135     h_beh_up_step => _('Update stepping in progress bars.'),
136     l_beh_thread_a => _('Maximum age when threading by subject'),
137     l_beh_thread_a_units => _('days'),
138     h_beh_thread_a => _('Number of days to include a message in a thread when using "Thread using subject in addition to standard headers".'),
139     l_beh_unsafe_ssl => _('Allow unsafe SSL certificates'),
140     h_beh_unsafe_ssl => _('Allows Claws Mail to remember multiple SSL certificates for a given server/port.'),
141     l_beh_use_utf8 => _('Force UTF-8 for broken mails'),
142     h_beh_use_utf8 => _('Use UTF-8 encoding for broken mails instead of current locale.'),
143     l_beh_warn_dnd => _('Warn on drag \'n\' drop'),
144     h_beh_warn_dnd => _('Display a confirmation dialogue on drag \'n\' drop of folders.'),
145     l_beh_out_ascii => _('Outgoing messages fallback to ASCII'),
146     h_beh_out_ascii => _('If allowed by content, ASCII will be used to encode outgoing messages, otherwise the user-defined encoding is always enforced.'),
147     l_beh_pp_unsel => _('Primary paste unselects selection'),
148     h_beh_pp_unsel => _('Controls how pasting using middle-click changes the selected text and insertion point.'),
149     l_beh_inline_at => _('Show inline attachments'),
150     h_beh_inline_at => _('Allows to hide inline attachments already shown in mail structure view.'),
151     l_beh_addr_swc => _('Address search in compose window matches any'),
152     h_beh_addr_swc => _('On Tab-key completion, address text will match any part of the string or only from the start.'),
153     l_beh_fold_swc => _('Folder search in folder selector matches any'),
154     h_beh_fold_swc => _('On folder name completion text will match any part of the string or only from the start.'),
155     l_beh_rewrite_ff => _('Rewrite first \'From\' using QP encoding'),
156     h_beh_rewrite_ff => _('Workaround some servers which convert first \'From\' to \'>From\' by using Quoted-Printable transfer encoding instead of 7bit/8bit encoding.'),
157
158     l_col_emphasis => _('X-Mailer header'),
159     h_col_emphasis => _('The colour used for the X-Mailer line when its value is Claws Mail.'),
160     l_col_log_err => _('Error messages'),
161     h_col_log_err => _('Colour for error messages in log window.'),
162     l_col_log_in => _('Server messages'),
163     h_col_log_in => _('Colour for messages received from servers in log window.'),
164     l_col_log_msg => _('Standard messages'),
165     h_col_log_msg => _('Colour for messages in log window.'),
166     l_col_log_out => _('Client messages'),
167     h_col_log_out => _('Colour for messages sent to servers in log window.'),
168     l_col_log_warn => _('Warning messages'),
169     h_col_log_warn => _('Colour for warning messages in log window.'),
170
171     l_col_tags_bg => _('Tags background'),
172     h_col_tags_bg => _('Background colour for tags in message view.'),
173     l_col_tags_text => _('Tags text'),
174     h_col_tags_text => _('Text colour for tags in message view.'),
175
176     l_col_default_header_bg => _('Default headers background'),
177     h_col_default_header_bg => _('Background colour for default headers in compose window.'),
178     l_col_default_header_text => _('Default headers text'),
179     h_col_default_header_text => _('Text colour for default headers in compose window.'),
180
181     l_col_qs_active_bg => _('Active quick search background'),
182     h_col_qs_active_bg => _('Background colour for active quick search.'),
183     l_col_qs_active_text => _('Active quick search text'),
184     h_col_qs_active_text => _('Text colour for active quick search.'),
185     l_col_qs_error_bg => _('Quick search error background'),
186     h_col_qs_error_bg => _('Background colour for quick search error.'),
187     l_col_qs_error_text => _('Quick search error text'),
188     h_col_qs_error_text => _('Text colour for quick search error.'),
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 => _('Colour 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_gpg_alimit => _('Autocompletion limit'),
217     h_plu_gpg_alimit => _('Limits the number of addresses obtained from keyring through autocompletion. Use 0 to get all matches.'),
218     l_plu_lav_burl => _('Base URL'),
219     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.'),
220     l_plu_prl_flvb => _('Log level'),
221     h_plu_prl_flvb => _('Verbosity level of log, accumulative.'),
222     l_plu_prl_none => _('None'),
223     l_plu_prl_manual => _('Manual'),
224     l_plu_prl_action => _('Actions'),
225     l_plu_prl_match => _('Matches'),
226 );
227
228 # data and metadata of resource files
229 my $CONFIGDATA;
230 my $CONFIGMETA;
231 my $ACCOUNTDATA;
232 my $ACCOUNTMETA;
233 # all preferences read by load_preferences
234 my %PREFS = ();
235 my %ACPREFS = ();
236 my %PLPREFS = ();
237 # values of all preferences handled by clawsker
238 my %HPVALUE = ();
239 my %ACHPVALUE = ();
240 my %PLHPVALUE = ();
241 # default config dir and file name
242 my $ALTCONFIGDIR = FALSE;
243 my $CONFIGDIR = catdir ($ENV{HOME}, '.claws-mail');
244 my $CONFIGRC = 'clawsrc';
245 my $ACCOUNTRC = 'accountrc';
246 # supported and available plugins lists
247 my @PLUGINS = qw(AttRemover GPG ManageSieve Libravatar PerlPlugin);
248 my @AVPLUGINS = ();
249 # loaded hotkeys from load_menurc
250 my $HOTKEYS;
251 # current tree selection
252 my $SELHOTKEY;
253 # loaded icons
254 my @APPICONS = ();
255 # modification flag
256 my $MODIFIED = 0;
257
258 use constant {
259     # index constants for preference arrays
260     NAME  => 0, # the name on the rc file
261     LABEL => 1, # the label on the GUI
262     DESC  => 2, # the description for the hint/help
263     TYPE  => 3, # data type: bool, int, float, string, color
264     CMVER => 4, # lowest[,highest] Claws Mail version(s) the feature exists
265     CMDEF => 5, # default value for the preference in Claws Mail
266     PLUGIN => 6, # plugin section (only in plugin preferences)
267     # constants for GUI spacing
268     HBOX_PAD => 5,
269     GRID_SPC => 9,
270     # for data references indexing
271     VALUE => 0,
272     IVALUE => 1,
273     # hotkey list store columns
274     C_LABEL => 0,
275     C_HOTKEY => 1,
276     C_GROUP => 2,
277     C_ACCEL => 3,
278     C_ODDITY => 4,
279 };
280
281 # version functions
282
283 sub version_greater_or_equal {
284     my ($version, $refvers) = @_;
285     return TRUE if (length($version) == 0 and length($refvers) >= 0);
286     return FALSE if (length($version) >= 0 and length($refvers) == 0);
287     return TRUE if (version->parse($version) >= version->parse($refvers));
288     return FALSE;
289 }
290
291 sub get_claws_version {
292     $_ = which ('claws-mail');
293     return "" unless defined $_; # not installed
294     my $res = "";
295     $_ = qx/$_ -v/;
296     chomp;
297     my @fver = split (/ /);
298     die "Invalid version string" unless ($fver[2] eq "version");
299     my @ver = split (/\./, $fver[3]);
300     $res .= "$ver[0].";
301     $res .= "$ver[1].";
302     if ($ver[2] =~ /(\d+)git(\d+)/) {
303         $res .= "$1.$2";
304     }
305     else {
306         $res .= "$ver[2].0";
307     }
308     return $res;
309 }
310
311 # data handlers and auxiliar functions
312
313 sub handle_bool_value {
314     my ($widget, $event, $dataref) = @_;
315     $$dataref->[VALUE] = ($widget->get_active ())? '1': '0';
316     $MODIFIED += $$dataref->[VALUE] != $$dataref->[IVALUE]? 1: -1
317         if defined $$dataref->[IVALUE];
318 }
319
320 sub handle_int_value {
321     my ($widget, $event, $dataref) = @_;
322     $_ = $widget->get_text ();
323     s/^\s+//;
324     s/\s+$//;
325     if (/^[0-9]+$/) {
326         $$dataref->[VALUE] = $_;
327         $widget->set_text ($_);
328     }
329     else {
330         $widget->set_text ($$dataref->[VALUE]);
331     }
332     $MODIFIED += $$dataref->[VALUE] != $$dataref->[IVALUE]? 1: -1
333         if defined $$dataref->[IVALUE];
334 }
335
336 sub handle_nchar_value {
337     my ($widget, $event, $dataref, $minlen, $maxlen) = @_;
338     $_ = substr ($widget->get_text (), 0, $maxlen);
339     $widget->set_text ($_);
340     $$dataref->[VALUE] = $_;
341     $MODIFIED += $$dataref->[VALUE] ne $$dataref->[IVALUE]? 1: -1
342         if defined $$dataref->[IVALUE];
343 }
344
345 sub gdk_rgba_from_str {
346     my ($str) = @_;
347     my ($rr, $gg, $bb) = (0, 0 ,0);
348     $_ = uc ($str);
349     if (/\#([A-F0-9][A-F0-9])([A-F0-9][A-F0-9])([A-F0-9][A-F0-9])/) {
350         $rr = hex($1) / 256;
351         $gg = hex($2) / 256;
352         $bb = hex($3) / 256;
353     }
354     my $color = Gtk3::Gdk::RGBA->new ($rr, $gg, $bb, 1.0);
355     return $color;
356 }
357
358 sub str_from_gdk_rgba {
359     my ($color) = @_;
360     my $rr = $color->red * 256;
361     my $gg = $color->green * 256;
362     my $bb = $color->blue * 256;
363     my $str = sprintf ("#%.2x%.2x%.2x", $rr, $gg, $bb);
364     return $str;
365 }
366
367 sub handle_color_value {
368     my ($widget, $event, $dataref) = @_;
369     my $newcol = $widget->get_rgba;
370     $$dataref->[VALUE] = str_from_gdk_rgba ($newcol);
371     $MODIFIED += $$dataref->[VALUE] ne $$dataref->[IVALUE]? 1: -1
372         if defined $$dataref->[IVALUE];
373 }
374
375 sub handle_selection_value {
376     my ($widget, $event, $dataref) = @_;
377     $$dataref->[VALUE] = $widget->get_active;
378     $MODIFIED += $$dataref->[VALUE] ne $$dataref->[IVALUE]? 1: -1
379         if defined $$dataref->[IVALUE];
380 }
381
382 sub get_rc_filename {
383     return catfile ($CONFIGDIR, $CONFIGRC);
384 }
385
386 sub get_ac_rc_filename {
387     return catfile ($CONFIGDIR, $ACCOUNTRC);
388 }
389
390 sub get_menurc_filename {
391     return catfile ($CONFIGDIR, "menurc");
392 }
393
394 sub set_rc_filename {
395     my ($fullname) = @_;
396     my @parts = splitpath ($fullname);
397     $CONFIGRC = $parts[$#parts];
398     $parts[$#parts] = '';
399     $CONFIGDIR = catpath (@parts);
400 }
401
402 sub log_message {
403     my ($mesg, $fatal) = @_;
404     if (defined($fatal) && $fatal eq 'die') {
405         die "$NAME: $mesg\n";
406     }
407     if ($VERBOSE) {
408         print "$NAME: $mesg\n";
409     }
410 }
411
412 sub message_dialog {
413     my ($parent, $title, $markup, $type, $buttons) = @_;
414     my $flags = [qw/modal destroy-with-parent/];
415     my $dialog = Gtk3::Dialog->new_with_buttons (
416         $title, $parent, $flags, @$buttons
417     );
418     my $label = Gtk3::Label->new;
419     $label->set_markup ($markup);
420     my $icon = undef;
421     if ($type eq 'error') {
422       $icon = Gtk3::Image->new_from_icon_name('dialog-error', 'GTK_ICON_SIZE_DIALOG');
423     } elsif ($type eq 'warning') {
424       $icon = Gtk3::Image->new_from_icon_name('dialog-warning', 'GTK_ICON_SIZE_DIALOG');
425     } elsif ($type eq 'question') {
426       $icon = Gtk3::Image->new_from_icon_name('dialog-question', 'GTK_ICON_SIZE_DIALOG');
427     }
428     my $hbox = Gtk3::Box->new ('horizontal', 5);
429     $hbox->pack_start ($icon, FALSE, FALSE, 5) if defined $icon;
430     $hbox->pack_start ($label, FALSE, FALSE, 5);
431     my $dialogbox = $dialog->get_content_area;
432     $dialogbox->add ($hbox);
433     $dialogbox->show_all;
434     return $dialog;
435 }
436
437 sub error_dialog {
438     my ($emsg) = @_;
439     my $markup = "<span weight=\"bold\" size=\"large\">" . $emsg . "</span>";
440     my $errordlg = message_dialog (
441         $main_window, _('Clawsker error'), $markup, 'error', [ 'gtk-cancel', 0 ]
442     );
443     $errordlg->run;
444     $errordlg->destroy;
445 }
446
447 sub claws_is_running {
448     my $emsg = _('Error: seems Claws Mail is currently running, close it first.');
449     log_message ($emsg);
450     error_dialog ($emsg);
451     return FALSE;
452 }
453
454 sub check_claws_not_running {
455     return TRUE if $READONLY;
456     my $tmpdir = File::Spec->tmpdir ();
457     my $lockdir = catfile ($tmpdir, "claws-mail-$<");
458     -d $lockdir and do {
459         $_ = $CONFIGDIR;
460         s/\/$//;
461         my $socket = catfile ($lockdir, md5_hex ($_));
462         -S $socket and return claws_is_running ();
463     };
464     return TRUE;
465 }
466
467 sub check_rc_file {
468     my ($rcfile) = @_;
469     (defined($rcfile) && -f $rcfile) or do {
470         my $emsg = _('Error: resource file for Claws Mail was not found.');
471         log_message ($emsg);
472         error_dialog ($emsg);
473         return FALSE;
474     };
475     return TRUE;
476 }
477
478 sub set_widget_hint {
479     my ($wdgt, $hint) = @_;
480     $wdgt->set_tooltip_text ($hint);
481     $wdgt->set_has_tooltip (TRUE);
482 }
483
484 sub set_widget_sens {
485     my ($wdgt, $versions) = @_;
486     my @ver = split(/,/, $versions);
487     if ($#ver == 1) {
488       $wdgt->set_sensitive (
489         version_greater_or_equal ($CLAWSV, $ver[0])
490         and version_greater_or_equal ($ver[1], $CLAWSV)
491       );
492     } else {
493         $wdgt->set_sensitive (version_greater_or_equal ($CLAWSV, $ver[0]));
494     }
495 }
496
497 # graphic element creation
498
499 sub new_hbox_spaced_pack {
500     my $hbox = Gtk3::HBox->new (FALSE);
501     foreach (@_) {
502         $hbox->pack_start ($_, FALSE, FALSE, HBOX_PAD);
503     }
504     return $hbox;
505 }
506
507 sub new_check_button_for($$$) {
508     my ($hash, $key, $vhash) = @_;
509     my $name = $$hash{$key}[NAME];
510     my $label = $$hash{$key}[LABEL];
511     #
512     my $cb = Gtk3::CheckButton->new ($label);
513     my $value = $$vhash{$name}[VALUE];
514     $value //= $$hash{$key}[CMDEF];
515     $cb->set_active ($value eq '1');
516     $cb->signal_connect (clicked => sub {
517             my ($w, $e) = @_;
518             handle_bool_value ($w, $e, \$$vhash{$name});
519         });
520     set_widget_hint ($cb, $$hash{$key}[DESC]);
521     set_widget_sens ($cb, $$hash{$key}[CMVER]);
522     #
523     return new_hbox_spaced_pack ($cb);
524 }
525
526 sub new_text_box_for_int($$$) {
527     my ($hash, $key, $vhash) = @_;
528     my $name = $$hash{$key}[NAME];
529     my $label = $$hash{$key}[LABEL];
530     my @type = split (/,/, $$hash{$key}[TYPE]);
531     push (@type, 0), push (@type, 10000) unless ($#type > 0);
532     #
533     my $gunits = undef;
534     if (ref $label eq 'ARRAY') {
535         $gunits = Gtk3::Label->new ($label->[1]);
536         $label = $label->[0];
537     }
538     my $glabel = Gtk3::Label->new ($label);
539     my $pagei = int (($type[2] - $type[1]) / 10);
540     my $gentry = Gtk3::SpinButton->new_with_range ($type[1], $type[2], $pagei);
541     my $value = $$vhash{$name}[VALUE];
542     $value //= $$hash{$key}[CMDEF];
543     $gentry->set_numeric (TRUE);
544     $gentry->set_value ($value);
545     $gentry->signal_connect('value-changed' => sub {
546             my ($w, $e) = @_;
547             handle_int_value ($w, $e, \$$vhash{$name});
548         });
549     set_widget_hint ($gentry, $$hash{$key}[DESC]);
550     set_widget_sens ($gentry, $$hash{$key}[CMVER]);
551     $glabel->set_sensitive ($gentry->get_sensitive);
552     $gunits->set_sensitive ($gentry->get_sensitive) if ($gunits);
553     #
554     return new_hbox_spaced_pack ($glabel, $gentry, $gunits) if ($gunits);
555     return new_hbox_spaced_pack ($glabel, $gentry);
556 }
557
558 sub new_text_box_for_nchar($$$) {
559     my ($hash, $key, $vhash) = @_;
560     my $name = $$hash{$key}[NAME];
561     my $label = $$hash{$key}[LABEL];
562     my @type = split (/,/, $$hash{$key}[TYPE]); # char,minlen,maxlen,width
563     my $glabel = Gtk3::Label->new ($label);
564     my $gentry = Gtk3::Entry->new;
565     $gentry->set_max_length($type[2]) if defined ($type[2]);
566     my $width = $type[3];
567     $width //= $type[2];
568     $gentry->set_width_chars(int ($width) + 2) if defined ($width);
569     my $value = $$vhash{$name}[VALUE];
570     $value //= $$hash{$key}[CMDEF];
571     $gentry->set_text ($value);
572     $gentry->signal_connect('key-release-event' => sub {
573             my ($w, $e) = @_;
574             handle_nchar_value ($w, $e, \$$vhash{$name}, $type[1], $type[2]);
575         });
576     set_widget_hint ($gentry, $$hash{$key}[DESC]);
577     set_widget_sens ($gentry, $$hash{$key}[CMVER]);
578     $glabel->set_sensitive ($gentry->get_sensitive);
579     #
580     return new_hbox_spaced_pack ($glabel, $gentry);
581 }
582
583 sub new_color_button_for($$$) {
584     my ($hash, $key, $vhash) = @_;
585     my $name = $$hash{$key}[NAME];
586     my $label = $$hash{$key}[LABEL];
587     #
588     my $value = $$vhash{$name}[VALUE];
589     $value //= $$hash{$key}[CMDEF];
590     my $col = gdk_rgba_from_str ($value);
591     my $glabel = Gtk3::Label->new ($label);
592     my $button = Gtk3::ColorButton->new_with_rgba ($col);
593     $button->set_title ($label);
594     $button->set_relief ('none');
595     $button->signal_connect ('color-set' => sub {
596             my ($w, $e) = @_;
597             handle_color_value ($w, $e, \$$vhash{$name});
598         });
599     set_widget_hint ($button, $$hash{$key}[DESC]);
600     set_widget_sens ($button, $$hash{$key}[CMVER]);
601     $glabel->set_sensitive ($button->get_sensitive);
602     #
603     return new_hbox_spaced_pack ($button, $glabel);
604 }
605
606 sub new_selection_box_for($$$) {
607     my ($hash, $key, $vhash) = @_;
608     my $name = $$hash{$key}[NAME];
609     my $label = $$hash{$key}[LABEL];
610     #
611     my $glabel = Gtk3::Label->new ($label);
612     my $combo = Gtk3::ComboBoxText->new;
613     my @options = split (';', $$hash{$key}[TYPE]);
614     foreach my $opt (@options) {
615         my ($index, $textkey) = split ('=', $opt);
616         $combo->insert (-1, $index, $xl::s{$textkey});
617     }
618     $combo->signal_connect ('changed' => sub {
619             my ($w, $e) = @_;
620             handle_selection_value ($w, $e, \$$vhash{$name});
621         });
622     my $value = $$vhash{$name}[VALUE];
623     $value //= $$hash{$key}[CMDEF];
624     $combo->set_active ($value);
625     set_widget_hint ($combo, $$hash{$key}[DESC]);
626     set_widget_sens ($combo, $$hash{$key}[CMVER]);
627     $glabel->set_sensitive ($combo->get_sensitive);
628     #
629     return new_hbox_spaced_pack ($glabel, $combo);
630 }
631
632 # more graphic helpers
633
634 sub new_grid {
635     my ($border_w, $row_s, $col_s) = @_;
636     $border_w //= GRID_SPC;
637     $row_s //= GRID_SPC;
638     $col_s //= GRID_SPC;
639     my $grid = Gtk3::Grid->new;
640     $grid->set_border_width ($border_w);
641     $grid->set_row_spacing ($row_s);
642     $grid->set_column_spacing ($col_s);
643     return $grid;
644 }
645
646 sub new_label {
647     my $text = shift;
648     $text //= '';
649     my $label = Gtk3::Label->new ($text);
650     $label->set_alignment (0, 0.5);
651     return $label;
652 }
653
654 sub new_title {
655     my $text = shift;
656     $text //= '';
657     my $label = Gtk3::Label->new ('<b>' . $text . '</b>');
658     $label->set_use_markup (TRUE);
659     $label->set_alignment (0, 0.5);
660     return $label;
661 }
662
663 sub new_grid_pack {
664     my ($width, $height, $widget) = @_;
665     my $grid = new_grid ();
666     $grid->set_column_homogeneous (TRUE);
667     for (my $i = 0; $i < $width; ++$i) {
668         for (my $j = 0; $j < $height; ++$j) {
669             my $wid = $widget->[$j]->[$i];
670             next unless defined $wid;
671             my $ww = (($i + 1 < $width) and (defined $widget->[$j]->[$i + 1]))
672                 ? 1
673                 : $width - $i;
674             if (ref $wid) {
675                 $grid->attach ($wid, $i, $j, $ww, 1);
676             } else { # not a widget
677                 if ('--' eq $wid) { # a separator
678                     $grid->attach (Gtk3::Separator->new ('horizontal'),
679                         $i, $j, $ww, 1);
680                 } else { # or a title
681                     $grid->attach (new_title ($wid),
682                         $i, $j, $ww, 1);
683                 }
684             }
685         }
686     }
687     return $grid;
688 }
689
690 # preference maps and corresponding page creation subs
691
692 %pr::oth = ( # other preferences
693     use_dlg => [
694         'addressbook_use_editaddress_dialog',
695         $xl::s{l_oth_use_dlg},
696         $xl::s{h_oth_use_dlg},
697         'bool',
698         '2.7.0',
699         '0',
700     ],
701     max_use => [
702         'cache_max_mem_usage',
703         [ $xl::s{l_oth_max_use}, $xl::s{l_oth_max_use_units} ],
704         $xl::s{h_oth_max_use},
705         'int,0,524288', # 0 Kb - 512 Mb
706         '0.7.8.36',
707         '4096',
708     ],
709     min_time => [
710         'cache_min_keep_time',
711         [ $xl::s{l_oth_min_time}, $xl::s{l_oth_min_time_units} ],
712         $xl::s{h_oth_min_time},
713         'int,0,120', # 0 minutes - 2 hours
714         '0.7.8.36',
715         '15',
716     ],
717     use_netm => [
718         'use_networkmanager',
719         $xl::s{l_oth_use_netm},
720         $xl::s{h_oth_use_netm},
721         'bool',
722         '3.3.1',
723         '1',
724     ],
725     mp_rounds => [
726         'master_passphrase_pbkdf2_rounds',
727         $xl::s{l_oth_mp_rounds},
728         $xl::s{h_oth_mp_rounds},
729         'int,50000,1000000',
730         '3.13.2.110',
731         '50000',
732     ],
733 );
734
735 sub new_other_page() {
736     return new_grid_pack (1, 12, [
737         [ _('Addressbook') ],
738         [ new_check_button_for(\%pr::oth, 'use_dlg', \%HPVALUE) ],
739         [ '--' ],
740         [ _('Memory') ],
741         [ new_text_box_for_int(\%pr::oth, 'max_use', \%HPVALUE) ],
742         [ new_text_box_for_int(\%pr::oth, 'min_time', \%HPVALUE) ],
743         [ '--' ],
744         [ _('NetworkManager') ],
745         [ new_check_button_for(\%pr::oth, 'use_netm', \%HPVALUE) ],
746         [ '--' ],
747         [ _('Master passphrase') ],
748         [ new_text_box_for_int(\%pr::oth, 'mp_rounds', \%HPVALUE) ]
749     ]);
750 }
751
752 %pr::gui = ( # gui bells and whistles
753     b_unread => [
754         'bold_unread',
755         $xl::s{l_gui_b_unread},
756         $xl::s{h_gui_b_unread},
757         'bool',
758         '0.5.3',
759         '1',
760     ],
761     no_markup => [
762         'compose_no_markup',
763         $xl::s{l_gui_no_markup},
764         $xl::s{h_gui_no_markup},
765         'bool',
766         '2.1.0.16',
767         '0',
768     ],
769     dot_lines => [
770         'enable_dotted_lines',
771         $xl::s{l_gui_dot_lines},
772         $xl::s{h_gui_dot_lines},
773         'bool',
774         '2.4.0.115,3.7.10.44',
775         '0',
776     ],
777     h_scroll => [
778         'enable_hscrollbar',
779         $xl::s{l_gui_h_scroll},
780         $xl::s{h_gui_h_scroll},
781         'bool',
782         '0.8.6.18',
783         '1',
784     ],
785     swp_from => [
786         'enable_swap_from',
787         $xl::s{l_gui_swp_from},
788         $xl::s{h_gui_swp_from},
789         'bool',
790         '1.9.13.40',
791         '0',
792     ],
793     v_scroll => [
794         'folderview_vscrollbar_policy',
795         $xl::s{l_gui_v_scroll},
796         $xl::s{h_gui_v_scroll},
797         '0=l_gui_v_scroll_show;1=l_gui_v_scroll_auto;2=l_gui_v_scroll_hide',
798         '0.7.8.14',
799         '0',
800     ],
801     from_show => [
802         'summary_from_show',
803         $xl::s{l_gui_from_show},
804         $xl::s{h_gui_from_show},
805         '0=l_gui_from_show_name;1=l_gui_from_show_addr;2=l_gui_from_show_both',
806         '3.7.10',
807         '0',
808     ],
809     strip_off => [
810         'stripes_color_offset',
811         $xl::s{l_gui_strip_off},
812         $xl::s{h_gui_strip_off},
813         'int,0,40000', # no idea what this number means
814         '2.4.0.186',
815         '4000',
816     ],
817     cursor_v => [
818         'textview_cursor_visible',
819         $xl::s{l_gui_cursor_v},
820         $xl::s{h_gui_cursor_v},
821         'bool',
822         '0.0.0',
823         '0',
824     ],
825     toolbar_d => [
826         'toolbar_detachable',
827         $xl::s{l_gui_toolbar_d},
828         $xl::s{h_gui_toolbar_d},
829         'bool',
830         '0.0.0',
831         '0',
832     ],
833     strip_all => [
834         'use_stripes_everywhere',
835         $xl::s{l_gui_strip_all},
836         $xl::s{h_gui_strip_all},
837         'bool',
838         '0.0.0',
839         '1',
840     ],
841     strip_sum => [
842         'use_stripes_in_summaries',
843         $xl::s{l_gui_strip_sum},
844         $xl::s{h_gui_strip_sum},
845         'bool',
846         '0.0.0',
847         '1',
848     ],
849     two_linev => [
850         'two_line_vertical',
851         $xl::s{l_gui_two_line_v},
852         $xl::s{h_gui_two_line_v},
853         'bool',
854         '3.4.0.7',
855         '0',
856     ],
857     margin_co => [
858         'show_compose_margin',
859         $xl::s{l_gui_margin_co},
860         $xl::s{h_gui_margin_co},
861         'bool',
862         '3.7.6.7',
863         '0',
864     ],
865     mview_date => [
866         'msgview_date_format',
867         $xl::s{l_gui_mview_date},
868         $xl::s{h_gui_mview_date},
869         'bool',
870         '3.7.8.42',
871         '0',
872     ],
873     zero_char => [
874         'zero_replacement_char',
875         $xl::s{l_gui_zero_char},
876         $xl::s{h_gui_zero_char},
877         'char,1,1',
878         '2.8.1.77',
879         '0',
880     ],
881     type_any => [
882         'type_any_header',
883         $xl::s{l_gui_type_any},
884         $xl::s{h_gui_type_any},
885         'bool',
886         '3.12.0.44',
887         '0',
888     ],
889     warn_send_multi => [
890         'warn_sending_many_recipients_num',
891         [ $xl::s{l_gui_warn_send_multi}, $xl::s{l_gui_warn_send_multi_units} ],
892         $xl::s{h_gui_warn_send_multi},
893         'int,0,1000',
894         '3.14.1.125',
895         '3.15.0.28',
896     ],
897     next_del => [
898         'next_on_delete',
899         $xl::s{l_gui_next_del},
900         $xl::s{h_gui_next_del},
901         'bool',
902         '3.13.0.5',
903         '0',
904     ],
905 );
906
907 sub new_gui_page() {
908     return new_grid_pack (2, 24, [
909         [ _('Coloured stripes') ],
910         [ new_check_button_for (\%pr::gui, 'strip_all', \%HPVALUE),
911             new_check_button_for (\%pr::gui, 'strip_sum', \%HPVALUE) ],
912         [ new_text_box_for_int (\%pr::gui, 'strip_off', \%HPVALUE) ],
913         [ '--' ],
914         [ _('Message List') ],
915         [ new_check_button_for (\%pr::gui, 'b_unread', \%HPVALUE),
916             new_check_button_for (\%pr::gui, 'swp_from', \%HPVALUE) ],
917         [ new_check_button_for (\%pr::gui, 'two_linev', \%HPVALUE),
918             new_check_button_for (\%pr::gui, 'next_del', \%HPVALUE) ],
919         [ new_selection_box_for (\%pr::gui, 'from_show', \%HPVALUE) ],
920         [ '--' ],
921         [ _('Message View') ],
922         [ new_check_button_for (\%pr::gui, 'cursor_v', \%HPVALUE),
923             new_check_button_for (\%pr::gui, 'mview_date', \%HPVALUE) ],
924         [ '--' ],
925         [ _('Compose window') ],
926         [ new_check_button_for (\%pr::gui, 'no_markup', \%HPVALUE),
927             new_check_button_for (\%pr::gui, 'margin_co', \%HPVALUE) ],
928         [ new_check_button_for (\%pr::gui, 'type_any', \%HPVALUE) ],
929         [ new_text_box_for_int (\%pr::gui, 'warn_send_multi', \%HPVALUE) ],
930         [ '--' ],
931         [ _('Scroll bars') ],
932         [ new_check_button_for (\%pr::gui, 'h_scroll', \%HPVALUE),
933             new_selection_box_for (\%pr::gui, 'v_scroll', \%HPVALUE) ],
934         [ '--' ],
935         [ _('Other') ],
936         [ new_check_button_for (\%pr::gui, 'dot_lines', \%HPVALUE),
937             new_check_button_for (\%pr::gui, 'toolbar_d', \%HPVALUE) ],
938         [ new_text_box_for_nchar (\%pr::gui, 'zero_char', \%HPVALUE) ]
939     ]);
940 }
941
942 %pr::beh = ( # tweak some behaviour
943     hover_t => [
944         'hover_timeout',
945         [ $xl::s{l_beh_hover_t}, $xl::s{l_beh_hover_t_units} ],
946         $xl::s{h_beh_hover_t},
947         'int,100,3000', # 0.1 seconds - 3 seconds
948         '0.0.0',
949         '500',
950     ],
951     dangerous => [
952         'live_dangerously',
953         $xl::s{l_beh_dangerous},
954         $xl::s{h_beh_dangerous},
955         'bool',
956         '0.0.0',
957         '0',
958     ],
959     flowed => [
960         'respect_flowed_format',
961         $xl::s{l_beh_flowed},
962         $xl::s{h_beh_flowed},
963         'bool',
964         '0.0.0',
965         '0',
966     ],
967     parts_rw => [
968         'save_parts_readwrite',
969         $xl::s{l_beh_parts_rw},
970         $xl::s{h_beh_parts_rw},
971         'bool',
972         '0.0.0',
973         '0',
974     ],
975     skip_ssl => [
976         'skip_ssl_cert_check',
977         $xl::s{l_beh_skip_ssl},
978         $xl::s{h_beh_skip_ssl},
979         'bool',
980         '0.0.0',
981         '0',
982     ],
983     up_step => [
984         'statusbar_update_step',
985         [ $xl::s{l_beh_up_step}, $xl::s{l_beh_up_step_units} ],
986         $xl::s{h_beh_up_step},
987         'int,1,200', # 1 item - 200 items
988         '0.0.0',
989         '10',
990     ],
991     thread_a => [
992         'thread_by_subject_max_age',
993         [ $xl::s{l_beh_thread_a}, $xl::s{l_beh_thread_a_units} ],
994         $xl::s{h_beh_thread_a},
995         'int,1,30', # 1 day - 30 days
996         '0.0.0',
997         '10',
998     ],
999     unsafe_ssl => [
1000         'unsafe_ssl_certs',
1001         $xl::s{l_beh_unsafe_ssl},
1002         $xl::s{h_beh_unsafe_ssl},
1003         'bool',
1004         '0.0.0',
1005         '0',
1006     ],
1007     use_utf8 => [
1008         'utf8_instead_of_locale_for_broken_mail',
1009         $xl::s{l_beh_use_utf8},
1010         $xl::s{h_beh_use_utf8},
1011         'bool',
1012         '1.9.14.49',
1013         '0',
1014     ],
1015     warn_dnd => [
1016         'warn_dnd',
1017         $xl::s{l_beh_warn_dnd},
1018         $xl::s{h_beh_warn_dnd},
1019         'bool',
1020         '0.0.0',
1021         '1',
1022     ],
1023     out_ascii => [
1024         'outgoing_fallback_to_ascii',
1025         $xl::s{l_beh_out_ascii},
1026         $xl::s{h_beh_out_ascii},
1027         'bool',
1028         '3.4.0.37',
1029         '1',
1030     ],
1031     pp_unsel => [
1032         'primary_paste_unselects',
1033         $xl::s{l_beh_pp_unsel},
1034         $xl::s{h_beh_pp_unsel},
1035         'bool',
1036         '3.6.1.35',
1037         '0',
1038     ],
1039     inline_at => [
1040         'show_inline_attachments',
1041         $xl::s{l_beh_inline_at},
1042         $xl::s{h_beh_inline_at},
1043         'bool',
1044         '3.7.8.48',
1045         '1',
1046     ],
1047     addr_swc => [
1048         'address_search_wildcard',
1049         $xl::s{l_beh_addr_swc},
1050         $xl::s{h_beh_addr_swc},
1051         'bool',
1052         '3.9.3.18',
1053         '0',
1054     ],
1055     fold_swc => [
1056         'folder_search_wildcard',
1057         $xl::s{l_beh_fold_swc},
1058         $xl::s{h_beh_fold_swc},
1059         'bool',
1060         '3.9.3.18',
1061         '0',
1062     ],
1063     rewrite_ff => [
1064         'rewrite_first_from',
1065         $xl::s{l_beh_rewrite_ff},
1066         $xl::s{h_beh_rewrite_ff},
1067         'bool',
1068         '3.14.0.94',
1069         '0',
1070     ],
1071 );
1072
1073 sub new_behaviour_page() {
1074     return new_grid_pack (2, 20, [
1075         [ _('Drag \'n\' drop') ],
1076         [ new_text_box_for_int (\%pr::beh, 'hover_t', \%HPVALUE) ],
1077         [ new_check_button_for (\%pr::beh, 'warn_dnd', \%HPVALUE) ],
1078         [ '--' ],
1079         [ _('Secure Sockets Layer') ],
1080         [ new_check_button_for (\%pr::beh, 'skip_ssl', \%HPVALUE),
1081             new_check_button_for (\%pr::beh, 'unsafe_ssl', \%HPVALUE) ],
1082         [ '--' ],
1083         [ _('Messages') ],
1084         [ new_check_button_for (\%pr::beh, 'flowed', \%HPVALUE),
1085             new_check_button_for (\%pr::beh, 'out_ascii', \%HPVALUE) ],
1086         [ new_check_button_for (\%pr::beh, 'parts_rw', \%HPVALUE),
1087             new_check_button_for (\%pr::beh, 'pp_unsel', \%HPVALUE) ],
1088         [ new_check_button_for (\%pr::beh, 'use_utf8', \%HPVALUE),
1089             new_check_button_for (\%pr::beh, 'inline_at', \%HPVALUE) ],
1090         [ new_check_button_for (\%pr::beh, 'dangerous', \%HPVALUE),
1091             new_check_button_for (\%pr::beh, 'rewrite_ff', \%HPVALUE) ],
1092         [ '--' ],
1093         [ _('Completion') ],
1094         [ new_check_button_for (\%pr::beh, 'addr_swc', \%HPVALUE) ],
1095         [ new_check_button_for (\%pr::beh, 'fold_swc', \%HPVALUE) ],
1096         [ '--' ],
1097         [ _('Other') ],
1098         [ new_text_box_for_int (\%pr::beh, 'up_step', \%HPVALUE) ],
1099         [ new_text_box_for_int (\%pr::beh, 'thread_a', \%HPVALUE) ]
1100     ]);
1101 }
1102
1103 %pr::col = ( # a variety of colours
1104     emphasis => [
1105         'emphasis_color',
1106         $xl::s{l_col_emphasis},
1107         $xl::s{h_col_emphasis},
1108         'color',
1109         '0.0.0',
1110         '#0000cf',
1111     ],
1112     log_err => [
1113         'log_error_color',
1114         $xl::s{l_col_log_err},
1115         $xl::s{h_col_log_err},
1116         'color',
1117         '0.0.0',
1118         '#af0000',
1119     ],
1120     log_in => [
1121         'log_in_color',
1122         $xl::s{l_col_log_in},
1123         $xl::s{h_col_log_in},
1124         'color',
1125         '0.0.0',
1126         '#000000',
1127     ],
1128     log_msg => [
1129         'log_msg_color',
1130         $xl::s{l_col_log_msg},
1131         $xl::s{h_col_log_msg},
1132         'color',
1133         '0.0.0',
1134         '#00af00',
1135     ],
1136     log_out => [
1137         'log_out_color',
1138         $xl::s{l_col_log_out},
1139         $xl::s{h_col_log_out},
1140         'color',
1141         '0.0.0',
1142         '#0000ef',
1143     ],
1144     log_warn => [
1145         'log_warn_color',
1146         $xl::s{l_col_log_warn},
1147         $xl::s{h_col_log_warn},
1148         'color',
1149         '0.0.0',
1150         '#af0000',
1151     ],
1152     diff_add => [
1153         'diff_added_color',
1154         $xl::s{l_col_diff_add},
1155         $xl::s{h_col_diff_add},
1156         'color',
1157         '3.8.0.54',
1158         '#008b8b',
1159     ],
1160     diff_del => [
1161         'diff_deleted_color',
1162         $xl::s{l_col_diff_del},
1163         $xl::s{h_col_diff_del},
1164         'color',
1165         '3.8.0.54',
1166         '#6a5acd',
1167     ],
1168     diff_hunk => [
1169         'diff_hunk_color',
1170         $xl::s{l_col_diff_hunk},
1171         $xl::s{h_col_diff_hunk},
1172         'color',
1173         '3.8.0.54',
1174         '#a52a2a',
1175     ],
1176     tags_bg => [
1177         'tags_bgcolor',
1178         $xl::s{l_col_tags_bg},
1179         $xl::s{h_col_tags_bg},
1180         'color',
1181         '3.14.1.31',
1182         '#f5f6be',
1183     ],
1184     tags_text => [
1185         'tags_color',
1186         $xl::s{l_col_tags_text},
1187         $xl::s{h_col_tags_text},
1188         'color',
1189         '3.14.1.31',
1190         '#000000',
1191     ],
1192     default_header_bg => [
1193         'default_header_bgcolor',
1194         $xl::s{l_col_default_header_bg},
1195         $xl::s{h_col_default_header_bg},
1196         'color',
1197         '3.14.1.31',
1198         '#f5f6be',
1199     ],
1200     default_header_text => [
1201         'default_header_color',
1202         $xl::s{l_col_default_header_text},
1203         $xl::s{h_col_default_header_text},
1204         'color',
1205         '3.14.1.31',
1206         '#000000',
1207     ],
1208     qs_active_bg => [
1209         'qs_active_bgcolor',
1210         $xl::s{l_col_qs_active_bg},
1211         $xl::s{h_col_qs_active_bg},
1212         'color',
1213         '3.14.1.31',
1214         '#f5f6be',
1215     ],
1216     qs_active_text => [
1217         'qs_active_color',
1218         $xl::s{l_col_qs_active_text},
1219         $xl::s{h_col_qs_active_text},
1220         'color',
1221         '3.14.1.31',
1222         '#000000',
1223     ],
1224     qs_error_bg => [
1225         'qs_error_bgcolor',
1226         $xl::s{l_col_qs_error_bg},
1227         $xl::s{h_col_qs_error_bg},
1228         'color',
1229         '3.14.1.31',
1230         '#ff7070',
1231     ],
1232     qs_error_text => [
1233         'qs_error_color',
1234         $xl::s{l_col_qs_error_text},
1235         $xl::s{h_col_qs_error_text},
1236         'color',
1237         '3.14.1.31',
1238         '#000000',
1239     ],
1240 );
1241
1242 sub new_colours_page() {
1243     return new_grid_pack (3, 18, [
1244         [ _('Message View') ],
1245         [ new_color_button_for (\%pr::col, 'emphasis', \%HPVALUE) ],
1246         [ new_color_button_for (\%pr::col, 'tags_text', \%HPVALUE) ,
1247             new_color_button_for (\%pr::col, 'tags_bg', \%HPVALUE) ],
1248         [ '--' ],
1249         [ _('Log window') ],
1250         [ new_color_button_for (\%pr::col, 'log_err', \%HPVALUE) ,
1251             new_color_button_for (\%pr::col, 'log_in', \%HPVALUE) ],
1252         [ new_color_button_for (\%pr::col, 'log_warn', \%HPVALUE) ,
1253             new_color_button_for (\%pr::col, 'log_out', \%HPVALUE) ],
1254         [ new_color_button_for (\%pr::col, 'log_msg', \%HPVALUE) ],
1255         [ '--' ],
1256         [ _('Viewing patches') ],
1257         [ new_color_button_for (\%pr::col, 'diff_add', \%HPVALUE) ,
1258             new_color_button_for (\%pr::col, 'diff_del', \%HPVALUE) ,
1259             new_color_button_for (\%pr::col, 'diff_hunk', \%HPVALUE) ],
1260         [ '--' ],
1261         [ _('Compose window') ],
1262         [ new_color_button_for (\%pr::col, 'default_header_text', \%HPVALUE) ,
1263             new_color_button_for (\%pr::col, 'default_header_bg', \%HPVALUE) ],
1264         [ '--' ],
1265         [ _('Quick search') ],
1266         [ new_color_button_for (\%pr::col, 'qs_active_text', \%HPVALUE) ,
1267             new_color_button_for (\%pr::col, 'qs_active_bg', \%HPVALUE) ],
1268         [ new_color_button_for (\%pr::col, 'qs_error_text', \%HPVALUE) ,
1269             new_color_button_for (\%pr::col, 'qs_error_bg', \%HPVALUE) ]
1270     ]);
1271 }
1272
1273 %pr::win = ( # tweak window positions and/or sizes
1274     main_x => [
1275         'mainwin_x',
1276         $xl::s{l_win_x},
1277         $xl::s{h_win_x},
1278         'int,0,3000', # 0 pixels - 3000 pixels
1279         '0.0.0',
1280         '16',
1281     ],
1282     main_y => [
1283         'mainwin_y',
1284         $xl::s{l_win_y},
1285         $xl::s{h_win_y},
1286         'int,0,3000', # 0 pixels - 3000 pixels
1287         '0.0.0',
1288         '16',
1289     ],
1290     main_w => [
1291         'mainwin_width',
1292         $xl::s{l_win_w},
1293         $xl::s{h_win_w},
1294         'int,0,3000', # 0 pixels - 3000 pixels
1295         '0.0.0',
1296         '779',
1297     ],
1298     main_h => [
1299         'mainwin_height',
1300         $xl::s{l_win_h},
1301         $xl::s{h_win_h},
1302         'int,0,3000', # 0 pixels - 3000 pixels
1303         '0.0.0',
1304         '568',
1305     ],
1306     main_mx => [
1307         'mainwin_maximised',
1308         $xl::s{l_win_main_mx},
1309         $xl::s{h_win_main_mx},
1310         'bool',
1311         '0.0.0',
1312         '0',
1313     ],
1314     main_fs => [
1315         'mainwin_fullscreen',
1316         $xl::s{l_win_main_fs},
1317         $xl::s{h_win_main_fs},
1318         'bool',
1319         '0.0.0',
1320         '0',
1321     ],
1322     msgs_x => [
1323         'main_messagewin_x',
1324         $xl::s{l_win_x},
1325         $xl::s{h_win_x},
1326         'int,0,3000', # 0 pixels - 3000 pixels
1327         '0.0.0',
1328         '256',
1329     ],
1330     msgs_y => [
1331         'main_messagewin_y',
1332         $xl::s{l_win_y},
1333         $xl::s{h_win_y},
1334         'int,0,3000', # 0 pixels - 3000 pixels
1335         '0.0.0',
1336         '210',
1337     ],
1338     msgs_w => [
1339         'messagewin_width',
1340         $xl::s{l_win_w},
1341         $xl::s{h_win_w},
1342         'int,0,3000', # 0 pixels - 3000 pixels
1343         '0.0.0',
1344         '600',
1345     ],
1346     msgs_h => [
1347         'messagewin_height',
1348         $xl::s{l_win_h},
1349         $xl::s{h_win_h},
1350         'int,0,3000', # 0 pixels - 3000 pixels
1351         '0.0.0',
1352         '540',
1353     ],
1354     send_w => [
1355         'sendwin_width',
1356         $xl::s{l_win_w},
1357         $xl::s{h_win_w},
1358         'int,0,3000', # 0 pixels - 3000 pixels
1359         '0.0.0',
1360         '460',
1361     ],
1362     send_h => [
1363         'sendwin_height',
1364         $xl::s{l_win_h},
1365         $xl::s{h_win_h},
1366         'int,0,3000', # 0 pixels - 3000 pixels
1367         '0.0.0',
1368         '-1',
1369     ],
1370     recv_w => [
1371         'receivewin_width',
1372         $xl::s{l_win_w},
1373         $xl::s{h_win_w},
1374         'int,0,3000', # 0 pixels - 3000 pixels
1375         '0.0.0',
1376         '460',
1377     ],
1378     recv_h => [
1379         'receivewin_height',
1380         $xl::s{l_win_h},
1381         $xl::s{h_win_h},
1382         'int,0,3000', # 0 pixels - 3000 pixels
1383         '0.0.0',
1384         '-1',
1385     ],
1386     fold_x => [
1387         'folderwin_x',
1388         $xl::s{l_win_x},
1389         $xl::s{h_win_x},
1390         'int,0,3000', # 0 pixels - 3000 pixels
1391         '0.0.0',
1392         '16',
1393     ],
1394     fold_y => [
1395         'folderwin_y',
1396         $xl::s{l_win_y},
1397         $xl::s{h_win_y},
1398         'int,0,3000', # 0 pixels - 3000 pixels
1399         '0.0.0',
1400         '16',
1401     ],
1402     fold_w => [
1403         'folderitemwin_width',
1404         $xl::s{l_win_w},
1405         $xl::s{h_win_w},
1406         'int,0,3000', # 0 pixels - 3000 pixels
1407         '0.0.0',
1408         '500',
1409     ],
1410     fold_h => [
1411         'folderitemwin_height',
1412         $xl::s{l_win_h},
1413         $xl::s{h_win_h},
1414         'int,0,3000', # 0 pixels - 3000 pixels
1415         '0.0.0',
1416         '-1',
1417     ],
1418     fsel_w => [
1419         'folderselwin_width',
1420         $xl::s{l_win_w},
1421         $xl::s{h_win_w},
1422         'int,0,3000', # 0 pixels - 3000 pixels
1423         '0.0.0',
1424         '300',
1425     ],
1426     fsel_h => [
1427         'folderselwin_height',
1428         $xl::s{l_win_h},
1429         $xl::s{h_win_h},
1430         'int,0,3000', # 0 pixels - 3000 pixels
1431         '0.0.0',
1432         '-1',
1433     ],
1434     sour_w => [
1435         'sourcewin_width',
1436         $xl::s{l_win_w},
1437         $xl::s{h_win_w},
1438         'int,0,3000', # 0 pixels - 3000 pixels
1439         '0.0.0',
1440         '600',
1441     ],
1442     sour_h => [
1443         'sourcewin_height',
1444         $xl::s{l_win_h},
1445         $xl::s{h_win_h},
1446         'int,0,3000', # 0 pixels - 3000 pixels
1447         '0.0.0',
1448         '500',
1449     ],
1450     addr_w => [
1451         'addressbookwin_width',
1452         $xl::s{l_win_w},
1453         $xl::s{h_win_w},
1454         'int,0,3000', # 0 pixels - 3000 pixels
1455         '0.0.0',
1456         '520',
1457     ],
1458     addr_h => [
1459         'addressbookwin_height',
1460         $xl::s{l_win_h},
1461         $xl::s{h_win_h},
1462         'int,0,3000', # 0 pixels - 3000 pixels
1463         '0.0.0',
1464         '-1',
1465     ],
1466     adep_w => [
1467         'addressbookeditpersonwin_width',
1468         $xl::s{l_win_w},
1469         $xl::s{h_win_w},
1470         'int,0,3000', # 0 pixels - 3000 pixels
1471         '0.0.0',
1472         '640',
1473     ],
1474     adep_h => [
1475         'addressbookeditpersonwin_height',
1476         $xl::s{l_win_h},
1477         $xl::s{h_win_h},
1478         'int,0,3000', # 0 pixels - 3000 pixels
1479         '0.0.0',
1480         '320',
1481     ],
1482     adeg_w => [
1483         'addressbookeditgroupwin_width',
1484         $xl::s{l_win_w},
1485         $xl::s{h_win_w},
1486         'int,0,3000', # 0 pixels - 3000 pixels
1487         '0.0.0',
1488         '580',
1489     ],
1490     adeg_h => [
1491         'addressbookeditgroupwin_height',
1492         $xl::s{l_win_h},
1493         $xl::s{h_win_h},
1494         'int,0,3000', # 0 pixels - 3000 pixels
1495         '0.0.0',
1496         '340',
1497     ],
1498     adda_w => [
1499         'addressaddwin_width',
1500         $xl::s{l_win_w},
1501         $xl::s{h_win_w},
1502         'int,0,3000', # 0 pixels - 3000 pixels
1503         '0.0.0',
1504         '300',
1505     ],
1506     adda_h => [
1507         'addressaddwin_height',
1508         $xl::s{l_win_h},
1509         $xl::s{h_win_h},
1510         'int,0,3000', # 0 pixels - 3000 pixels
1511         '0.0.0',
1512         '-1',
1513     ],
1514     addf_w => [
1515         'addressbook_folderselwin_width',
1516         $xl::s{l_win_w},
1517         $xl::s{h_win_w},
1518         'int,0,3000', # 0 pixels - 3000 pixels
1519         '0.0.0',
1520         '300',
1521     ],
1522     addf_h => [
1523         'addressbook_folderselwin_height',
1524         $xl::s{l_win_h},
1525         $xl::s{h_win_h},
1526         'int,0,3000', # 0 pixels - 3000 pixels
1527         '0.0.0',
1528         '-1',
1529     ],
1530     acce_w => [
1531         'editaccountwin_width',
1532         $xl::s{l_win_w},
1533         $xl::s{h_win_w},
1534         'int,0,3000', # 0 pixels - 3000 pixels
1535         '0.0.0',
1536         '500',
1537     ],
1538     acce_h => [
1539         'editaccountwin_height',
1540         $xl::s{l_win_h},
1541         $xl::s{h_win_h},
1542         'int,0,3000', # 0 pixels - 3000 pixels
1543         '0.0.0',
1544         '-1',
1545     ],
1546     acco_w => [
1547         'accountswin_width',
1548         $xl::s{l_win_w},
1549         $xl::s{h_win_w},
1550         'int,0,3000', # 0 pixels - 3000 pixels
1551         '0.0.0',
1552         '500',
1553     ],
1554     acco_h => [
1555         'accountswin_height',
1556         $xl::s{l_win_h},
1557         $xl::s{h_win_h},
1558         'int,0,3000', # 0 pixels - 3000 pixels
1559         '0.0.0',
1560         '-1',
1561     ],
1562     filt_w => [
1563         'filteringwin_width',
1564         $xl::s{l_win_w},
1565         $xl::s{h_win_w},
1566         'int,0,3000', # 0 pixels - 3000 pixels
1567         '0.0.0',
1568         '500',
1569     ],
1570     filt_h => [
1571         'filteringwin_height',
1572         $xl::s{l_win_h},
1573         $xl::s{h_win_h},
1574         'int,0,3000', # 0 pixels - 3000 pixels
1575         '0.0.0',
1576         '-1',
1577     ],
1578     fila_w => [
1579         'filteringactionwin_width',
1580         $xl::s{l_win_w},
1581         $xl::s{h_win_w},
1582         'int,0,3000', # 0 pixels - 3000 pixels
1583         '0.0.0',
1584         '490',
1585     ],
1586     fila_h => [
1587         'filteringactionwin_height',
1588         $xl::s{l_win_h},
1589         $xl::s{h_win_h},
1590         'int,0,3000', # 0 pixels - 3000 pixels
1591         '0.0.0',
1592         '-1',
1593     ],
1594     fild_w => [
1595         'filtering_debugwin_width',
1596         $xl::s{l_win_w},
1597         $xl::s{h_win_w},
1598         'int,0,3000', # 0 pixels - 3000 pixels
1599         '0.0.0',
1600         '600',
1601     ],
1602     fild_h => [
1603         'filtering_debugwin_height',
1604         $xl::s{l_win_h},
1605         $xl::s{h_win_h},
1606         'int,0,3000', # 0 pixels - 3000 pixels
1607         '0.0.0',
1608         '-1',
1609     ],
1610     matc_w => [
1611         'matcherwin_width',
1612         $xl::s{l_win_w},
1613         $xl::s{h_win_w},
1614         'int,0,3000', # 0 pixels - 3000 pixels
1615         '0.0.0',
1616         '520',
1617     ],
1618     matc_h => [
1619         'matcherwin_height',
1620         $xl::s{l_win_h},
1621         $xl::s{h_win_h},
1622         'int,0,3000', # 0 pixels - 3000 pixels
1623         '0.0.0',
1624         '-1',
1625     ],
1626     pref_w => [
1627         'prefswin_width',
1628         $xl::s{l_win_w},
1629         $xl::s{h_win_w},
1630         'int,0,3000', # 0 pixels - 3000 pixels
1631         '0.0.0',
1632         '600',
1633     ],
1634     pref_h => [
1635         'prefswin_height',
1636         $xl::s{l_win_h},
1637         $xl::s{h_win_h},
1638         'int,0,3000', # 0 pixels - 3000 pixels
1639         '0.0.0',
1640         '-1',
1641     ],
1642     temp_w => [
1643         'templateswin_width',
1644         $xl::s{l_win_w},
1645         $xl::s{h_win_w},
1646         'int,0,3000', # 0 pixels - 3000 pixels
1647         '0.0.0',
1648         '480',
1649     ],
1650     temp_h => [
1651         'templateswin_height',
1652         $xl::s{l_win_h},
1653         $xl::s{h_win_h},
1654         'int,0,3000', # 0 pixels - 3000 pixels
1655         '0.0.0',
1656         '-1',
1657     ],
1658     acti_w => [
1659         'actionswin_width',
1660         $xl::s{l_win_w},
1661         $xl::s{h_win_w},
1662         'int,0,3000', # 0 pixels - 3000 pixels
1663         '0.0.0',
1664         '486',
1665     ],
1666     acti_h => [
1667         'actionswin_height',
1668         $xl::s{l_win_h},
1669         $xl::s{h_win_h},
1670         'int,0,3000', # 0 pixels - 3000 pixels
1671         '0.0.0',
1672         '-1',
1673     ],
1674     acio_w => [
1675         'actionsiodialog_width',
1676         $xl::s{l_win_w},
1677         $xl::s{h_win_w},
1678         'int,0,3000', # 0 pixels - 3000 pixels
1679         '0.0.0',
1680         '582',
1681     ],
1682     acio_h => [
1683         'actionsiodialog_height',
1684         $xl::s{l_win_h},
1685         $xl::s{h_win_h},
1686         'int,0,3000', # 0 pixels - 3000 pixels
1687         '0.0.0',
1688         '310',
1689     ],
1690     tags_w => [
1691         'tagswin_width',
1692         $xl::s{l_win_w},
1693         $xl::s{h_win_w},
1694         'int,0,3000', # 0 pixels - 3000 pixels
1695         '0.0.0',
1696         '486',
1697     ],
1698     tags_h => [
1699         'tagswin_height',
1700         $xl::s{l_win_h},
1701         $xl::s{h_win_h},
1702         'int,0,3000', # 0 pixels - 3000 pixels
1703         '0.0.0',
1704         '-1',
1705     ],
1706     sslman_w => [
1707         'sslmanwin_width',
1708         $xl::s{l_win_w},
1709         $xl::s{h_win_w},
1710         'int,0,3000', # 0 pixels - 3000 pixels
1711         '0.0.0',
1712         '486',
1713     ],
1714     sslman_h => [
1715         'sslmanwin_height',
1716         $xl::s{l_win_h},
1717         $xl::s{h_win_h},
1718         'int,0,3000', # 0 pixels - 3000 pixels
1719         '0.0.0',
1720         '-1',
1721     ],
1722     plug_w => [
1723         'pluginswin_width',
1724         $xl::s{l_win_w},
1725         $xl::s{h_win_w},
1726         'int,0,3000', # 0 pixels - 3000 pixels
1727         '0.0.0',
1728         '-1',
1729     ],
1730     plug_h => [
1731         'pluginswin_height',
1732         $xl::s{l_win_h},
1733         $xl::s{h_win_h},
1734         'int,0,3000', # 0 pixels - 3000 pixels
1735         '0.0.0',
1736         '-1',
1737     ],
1738     logw_w => [
1739         'logwin_width',
1740         $xl::s{l_win_w},
1741         $xl::s{h_win_w},
1742         'int,0,3000', # 0 pixels - 3000 pixels
1743         '0.0.0',
1744         '520',
1745     ],
1746     logw_h => [
1747         'logwin_height',
1748         $xl::s{l_win_h},
1749         $xl::s{h_win_h},
1750         'int,0,3000', # 0 pixels - 3000 pixels
1751         '0.0.0',
1752         '-1',
1753     ],
1754     prin_w => [
1755         'print_previewwin_width',
1756         $xl::s{l_win_w},
1757         $xl::s{h_win_w},
1758         'int,0,3000', # 0 pixels - 3000 pixels
1759         '0.0.0',
1760         '600',
1761     ],
1762     prin_h => [
1763         'print_previewwin_height',
1764         $xl::s{l_win_h},
1765         $xl::s{h_win_h},
1766         'int,0,3000', # 0 pixels - 3000 pixels
1767         '0.0.0',
1768         '-1',
1769     ],
1770 );
1771
1772 sub new_winpos_subpage_main() {
1773     return new_grid_pack (3, 7, [
1774         [ _('Main window'), undef ],
1775         [ new_text_box_for_int (\%pr::win, 'main_x', \%HPVALUE), undef ],
1776         [ new_text_box_for_int (\%pr::win, 'main_y', \%HPVALUE), undef ],
1777         [ new_text_box_for_int (\%pr::win, 'main_w', \%HPVALUE),
1778             new_text_box_for_int (\%pr::win, 'main_h', \%HPVALUE) ],
1779         [ new_check_button_for (\%pr::win, 'main_fs', \%HPVALUE), undef ],
1780         [ new_check_button_for (\%pr::win, 'main_mx', \%HPVALUE), undef ]
1781     ]);
1782 }
1783
1784 sub new_winpos_subpage_msgs() {
1785     return new_grid_pack (3, 4, [
1786         [ _('Message window') ],
1787         [ new_text_box_for_int (\%pr::win, 'msgs_x', \%HPVALUE) ],
1788         [ new_text_box_for_int (\%pr::win, 'msgs_y', \%HPVALUE) ],
1789         [ new_text_box_for_int (\%pr::win, 'msgs_w', \%HPVALUE),
1790             new_text_box_for_int (\%pr::win, 'msgs_h', \%HPVALUE) ]
1791     ]);
1792 }
1793
1794 sub new_winpos_subpage_sendrecv() {
1795     return new_grid_pack (3, 5, [
1796         [ _('Send window') ],
1797         [ new_text_box_for_int (\%pr::win, 'send_w', \%HPVALUE),
1798             new_text_box_for_int (\%pr::win, 'send_h', \%HPVALUE) ],
1799         [ '--' ],
1800         [ _('Receive window') ],
1801         [ new_text_box_for_int (\%pr::win, 'recv_w', \%HPVALUE),
1802             new_text_box_for_int (\%pr::win, 'recv_h', \%HPVALUE) ]
1803     ]);
1804 }
1805
1806 sub new_winpos_subpage_fold() {
1807     return new_grid_pack (3, 7, [
1808         [ _('Folder window') ],
1809         [ new_text_box_for_int (\%pr::win, 'fold_x', \%HPVALUE) ],
1810         [ new_text_box_for_int (\%pr::win, 'fold_y', \%HPVALUE) ],
1811         [ new_text_box_for_int (\%pr::win, 'fold_w', \%HPVALUE),
1812             new_text_box_for_int (\%pr::win, 'fold_h', \%HPVALUE) ],
1813         [ '--' ],
1814         [ _('Folder selection window') ],
1815         [ new_text_box_for_int (\%pr::win, 'fsel_w', \%HPVALUE),
1816             new_text_box_for_int (\%pr::win, 'fsel_h', \%HPVALUE) ]
1817     ]);
1818 }
1819
1820 sub new_winpos_subpage_addrbook() {
1821     return new_grid_pack (3, 14, [
1822         [ _('Addressbook main window') ],
1823         [ new_text_box_for_int (\%pr::win, 'addr_w', \%HPVALUE),
1824             new_text_box_for_int (\%pr::win, 'addr_h', \%HPVALUE) ],
1825         [ '--' ],
1826         [ _('Edit person window') ],
1827         [ new_text_box_for_int (\%pr::win, 'adep_w', \%HPVALUE),
1828             new_text_box_for_int (\%pr::win, 'adep_h', \%HPVALUE) ],
1829         [ '--' ],
1830         [ _('Edit group window') ],
1831         [ new_text_box_for_int (\%pr::win, 'adeg_w', \%HPVALUE),
1832             new_text_box_for_int (\%pr::win, 'adeg_h', \%HPVALUE) ],
1833         [ '--' ],
1834         [ _('Add address window') ],
1835         [ new_text_box_for_int (\%pr::win, 'adda_w', \%HPVALUE),
1836             new_text_box_for_int (\%pr::win, 'adda_h', \%HPVALUE) ],
1837         [ '--' ],
1838         [ _('Folder select window') ],
1839         [ new_text_box_for_int (\%pr::win, 'addf_w', \%HPVALUE),
1840             new_text_box_for_int (\%pr::win, 'addf_h', \%HPVALUE) ]
1841     ]);
1842 }
1843
1844 sub new_winpos_subpage_accounts() {
1845     return new_grid_pack (3, 5, [
1846         [ _('Accounts window') ],
1847         [ new_text_box_for_int (\%pr::win, 'acco_w', \%HPVALUE),
1848             new_text_box_for_int (\%pr::win, 'acco_h', \%HPVALUE) ],
1849         [ '--' ],
1850         [ _('Edit account window') ],
1851         [ new_text_box_for_int (\%pr::win, 'acce_w', \%HPVALUE),
1852             new_text_box_for_int (\%pr::win, 'acce_h', \%HPVALUE) ]
1853     ]);
1854 }
1855
1856 sub new_winpos_subpage_filtering() {
1857     return new_grid_pack (3, 11, [
1858         [ _('Filtering window') ],
1859         [ new_text_box_for_int (\%pr::win, 'filt_w', \%HPVALUE),
1860             new_text_box_for_int (\%pr::win, 'filt_h', \%HPVALUE) ],
1861         [ '--' ],
1862         [ _('Filtering actions window') ],
1863         [ new_text_box_for_int (\%pr::win, 'fila_w', \%HPVALUE),
1864             new_text_box_for_int (\%pr::win, 'fila_h', \%HPVALUE) ],
1865         [ '--' ],
1866         [ _('Filtering debug window') ],
1867         [ new_text_box_for_int (\%pr::win, 'fild_w', \%HPVALUE),
1868             new_text_box_for_int (\%pr::win, 'fild_h', \%HPVALUE) ],
1869         [ '--' ],
1870         [ ('Matcher window') ],
1871         [ new_text_box_for_int (\%pr::win, 'matc_w', \%HPVALUE),
1872             new_text_box_for_int (\%pr::win, 'matc_h', \%HPVALUE) ]
1873
1874     ]);
1875 }
1876
1877 sub new_winpos_subpage_useractions() {
1878     return new_grid_pack (3, 5, [
1879         [ _('User Actions prefs window') ],
1880         [ new_text_box_for_int (\%pr::win, 'acti_w', \%HPVALUE),
1881             new_text_box_for_int (\%pr::win, 'acti_h', \%HPVALUE) ],
1882         [ '--' ],
1883         [ _('User Actions I/O window') ],
1884         [ new_text_box_for_int (\%pr::win, 'acio_w', \%HPVALUE),
1885             new_text_box_for_int (\%pr::win, 'acio_h', \%HPVALUE) ]
1886     ]);
1887 }
1888
1889 sub new_winpos_subpage_prefs() {
1890     return new_grid_pack (3, 11, [
1891         [ _('Preferences window') ],
1892         [ new_text_box_for_int (\%pr::win, 'pref_w', \%HPVALUE),
1893             new_text_box_for_int (\%pr::win, 'pref_h', \%HPVALUE) ],
1894         [ '--' ],
1895         [ _('Templates window') ],
1896         [ new_text_box_for_int (\%pr::win, 'temp_w', \%HPVALUE),
1897             new_text_box_for_int (\%pr::win, 'temp_h', \%HPVALUE) ],
1898         [ '--' ],
1899         [ _('Tags window') ],
1900         [ new_text_box_for_int (\%pr::win, 'tags_w', \%HPVALUE),
1901             new_text_box_for_int (\%pr::win, 'tags_h', \%HPVALUE) ],
1902         [ '--' ],
1903         [ _('Plugins window') ],
1904         [ new_text_box_for_int (\%pr::win, 'plug_w', \%HPVALUE),
1905             new_text_box_for_int (\%pr::win, 'plug_h', \%HPVALUE) ]
1906     ]);
1907 }
1908
1909 sub new_winpos_subpage_misc() {
1910     return new_grid_pack (4, 11, [
1911         [ _('Log window') ],
1912         [ new_text_box_for_int (\%pr::win, 'logw_w', \%HPVALUE),
1913             new_text_box_for_int (\%pr::win, 'logw_h', \%HPVALUE) ],
1914         [ '--' ],
1915         [ _('SSL manager') ],
1916         [ new_text_box_for_int (\%pr::win, 'sslman_w', \%HPVALUE),
1917             new_text_box_for_int (\%pr::win, 'sslman_h', \%HPVALUE) ],
1918         [ '--' ],
1919         [ _('Print preview window') ],
1920         [ new_text_box_for_int (\%pr::win, 'prin_w', \%HPVALUE),
1921             new_text_box_for_int (\%pr::win, 'prin_h', \%HPVALUE) ],
1922         [ '--' ],
1923         [ _('View source window') ],
1924         [ new_text_box_for_int (\%pr::win, 'sour_w', \%HPVALUE),
1925             new_text_box_for_int (\%pr::win, 'sour_h', \%HPVALUE) ]
1926     ]);
1927 }
1928
1929 sub new_winpos_page() {
1930     my $winbook = Gtk3::Notebook->new;
1931     $winbook->set_tab_pos ('right');
1932     $winbook->append_page (&new_winpos_subpage_main, new_label (_('Main')));
1933     $winbook->append_page (&new_winpos_subpage_msgs, new_label (_('Message')));
1934     $winbook->append_page (&new_winpos_subpage_sendrecv, new_label (_('Send/Receive')));
1935     $winbook->append_page (&new_winpos_subpage_fold, new_label (_('Folder')));
1936     $winbook->append_page (&new_winpos_subpage_addrbook, new_label (_('Addressbook')));
1937     $winbook->append_page (&new_winpos_subpage_accounts, new_label (_('Accounts')));
1938     $winbook->append_page (&new_winpos_subpage_filtering, new_label (_('Filtering')));
1939     $winbook->append_page (&new_winpos_subpage_useractions, new_label (_('User Actions')));
1940     $winbook->append_page (&new_winpos_subpage_prefs, new_label (_('Preferences')));
1941     $winbook->append_page (&new_winpos_subpage_misc, new_label (_('Other')));
1942     return $winbook;
1943 }
1944
1945 %pr::acc = ( # per account hidden preferences
1946     tls_set => [
1947         'gnutls_set_priority',
1948         $xl::s{l_acc_gtls_set},
1949         $xl::s{h_acc_gtls_set},
1950         'bool',
1951         '3.9.0.181',
1952         '0',
1953     ],
1954     tls_pri => [
1955         'gnutls_priority',
1956         $xl::s{l_acc_gtls_pri},
1957         $xl::s{h_acc_gtls_pri},
1958         'char,0,256,32',
1959         '3.9.0.181',
1960         '0',
1961     ],
1962 );
1963
1964 sub new_account_subpage($) {
1965     my ($akey) = @_;
1966     return new_grid_pack (1, 3, [
1967         [ _('GnuTLS priority') ],
1968         [ new_check_button_for (\%pr::acc, 'tls_set', $ACHPVALUE{$akey}) ],
1969         [ new_text_box_for_nchar (\%pr::acc, 'tls_pri', $ACHPVALUE{$akey}) ]
1970     ]);
1971 }
1972
1973 sub new_accounts_page() {
1974     my $accbook = Gtk3::Notebook->new;
1975     $accbook->set_tab_pos ('right');
1976     my @akeys = sort {
1977         $ACPREFS{$a}{'account_name'} cmp $ACPREFS{$b}{'account_name'}
1978     } keys %ACPREFS;
1979     foreach (@akeys) {
1980         my $name = $ACPREFS{$_}{'account_name'};
1981         my $isdef = ($ACPREFS{$_}{'is_default'} eq '1');
1982         my $page = new_account_subpage ($_);
1983         my $label = new_label ($isdef? '<u>' . $name . '</u>': $name);
1984         $label->set_use_markup (TRUE);
1985         $accbook->append_page ($page, $label);
1986     }
1987     $accbook->set_scrollable (TRUE);
1988     return $accbook;
1989 }
1990
1991 %pr::plu = ( # plugins hidden preferences
1992     # att_remover
1993     arm_winw => [
1994         'win_width',
1995         $xl::s{l_win_w},
1996         $xl::s{h_win_w},
1997         'int,0,3000', # 0 pixels - 3000 pixels
1998         '3.9.0.74',
1999         '-1',
2000         'AttRemover',
2001     ],
2002     arm_winh => [
2003         'win_height',
2004         $xl::s{l_win_h},
2005         $xl::s{h_win_h},
2006         'int,0,3000', # 0 pixels - 3000 pixels
2007         '3.9.0.74',
2008         '-1',
2009         'AttRemover',
2010     ],
2011     # GPG
2012     gpg_alimit => [
2013         'autocompletion_limit',
2014         $xl::s{l_plu_gpg_alimit},
2015         $xl::s{h_plu_gpg_alimit},
2016         'int,0,100',
2017         '3.12.0.75',
2018         '0',
2019         'GPG',
2020     ],
2021     # managesieve
2022     msv_winw => [
2023         'manager_win_width',
2024         $xl::s{l_win_w},
2025         $xl::s{h_win_w},
2026         'int,0,3000', # 0 pixels - 3000 pixels
2027         '3.11.1.210',
2028         '-1',
2029         'ManageSieve',
2030     ],
2031     msv_winh => [
2032         'manager_win_height',
2033         $xl::s{l_win_h},
2034         $xl::s{h_win_h},
2035         'int,0,3000', # 0 pixels - 3000 pixels
2036         '3.11.1.210',
2037         '-1',
2038         'ManageSieve',
2039     ],
2040     # libravatar
2041     lav_burl => [
2042         'base_url',
2043         $xl::s{l_plu_lav_burl},
2044         $xl::s{h_plu_lav_burl},
2045         'char,0,1024,32',
2046         '3.9.3.32',
2047         'http://cdn.libravatar.org/avatar',
2048         'Libravatar',
2049     ],
2050     # perl
2051     prl_flvb => [
2052         'filter_log_verbosity',
2053         $xl::s{l_plu_prl_flvb},
2054         $xl::s{h_plu_prl_flvb},
2055         '0=l_plu_prl_none;1=l_plu_prl_manual;2=l_plu_prl_action;3=l_plu_prl_match',
2056         '3.9.0.75',
2057         '2',
2058         'PerlPlugin',
2059     ],
2060 );
2061
2062 sub new_plugins_page() {
2063     my %widget = (
2064         'AttRemover' => [
2065             new_text_box_for_int (\%pr::plu, 'arm_winw', $PLHPVALUE{'AttRemover'}),
2066             new_text_box_for_int (\%pr::plu, 'arm_winh', $PLHPVALUE{'AttRemover'})
2067         ],
2068         'GPG' => [
2069             new_text_box_for_int (\%pr::plu, 'gpg_alimit', $PLHPVALUE{'GPG'})
2070         ],
2071         'ManageSieve' => [
2072             new_text_box_for_int (\%pr::plu, 'msv_winw', $PLHPVALUE{'ManageSieve'}),
2073             new_text_box_for_int (\%pr::plu, 'msv_winh', $PLHPVALUE{'ManageSieve'})
2074         ],
2075         'Libravatar' => [
2076             new_text_box_for_nchar (\%pr::plu, 'lav_burl', $PLHPVALUE{'Libravatar'})
2077         ],
2078         'PerlPlugin' => [
2079             new_selection_box_for (\%pr::plu, 'prl_flvb', $PLHPVALUE{'PerlPlugin'})
2080         ]
2081     );
2082     foreach my $pk (@PLUGINS) {
2083         foreach my $wg (@{$widget{$pk}}) {
2084             $wg->set_sensitive (defined $PLHPVALUE{$pk});
2085         }
2086     }
2087     return new_grid_pack (3, 14, [
2088         [ _('Attachment remover') ], $widget{'AttRemover'}, [ '--' ],
2089         [ _('GPG') ], $widget{'GPG'}, [ '--' ],
2090         [ _('Sieve manager') ], $widget{'ManageSieve'}, [ '--' ],
2091         [ _('Libravatar') ], $widget{'Libravatar'}, [ '--' ],
2092         [ _('Perl') ], $widget{'PerlPlugin'}
2093     ]);
2094 }
2095
2096 sub new_hotkeys_list_label {
2097     my $renderer = Gtk3::CellRendererText->new;
2098     $renderer->set_property('alignment' => 'left');
2099     $renderer->set_property('editable' => FALSE);
2100     return $renderer;
2101 }
2102
2103 sub new_hotkeys_list_hotkey {
2104     my $renderer = Gtk3::CellRendererAccel->new;
2105     $renderer->set_property ('accel-mode' => 'gtk');
2106     $renderer->set_property ('editable' => TRUE);
2107     $renderer->signal_connect ('accel-edited' => sub {
2108         my ($w, $path, $key, $mods, $keycode) = @_;
2109         my $accel = Gtk3::accelerator_name ($key, $mods);
2110         my ($model, $iter) = $SELHOTKEY->get_selected ();
2111         $model->set($iter, C_HOTKEY, "\"$accel\"");
2112         my $gkey = $model->get_value ($iter, C_GROUP);
2113         my $akey = $model->get_value ($iter, C_ACCEL);
2114         my $data = $HOTKEYS->{$gkey}->{$akey};
2115         $data->{'key'} = "\"$accel\"";
2116         $data->{'enabled'} = TRUE;
2117     });
2118     $renderer->signal_connect ('accel-cleared' => sub {
2119         my ($w, $path) = @_;
2120         my ($model, $iter) = $SELHOTKEY->get_selected ();
2121         $model->set($iter, C_HOTKEY, "\"\"");
2122         my $gkey = $model->get_value ($iter, C_GROUP);
2123         my $akey = $model->get_value ($iter, C_ACCEL);
2124         my $data = $HOTKEYS->{$gkey}->{$akey};
2125         $data->{'key'} = "\"\"";
2126         $data->{'enabled'} = FALSE;
2127     });
2128     return $renderer;
2129 }
2130
2131 sub row_background_color {
2132     my ($column, $isodd) = @_;
2133     my $treeview = $column->get_tree_view;
2134     my $stylectx = $treeview->get_style_context;
2135     return $isodd
2136         ? $stylectx->get_background_color ('normal')
2137         : $stylectx->get_background_color ('insensitive');
2138 }
2139
2140 sub new_hotkeys_list {
2141     my ($gkey, $group) = @_;
2142     my $store = Gtk3::ListStore->new(
2143         qw/Glib::String Glib::String Glib::String Glib::String Glib::Boolean/);
2144     my $even = TRUE;
2145     foreach my $akey (sort keys %$group) {
2146         my $iter = $store->append ();
2147         my $hotkey = $group->{$akey}->{'key'};
2148         my $label = $akey;
2149         $label =~ s/[<>]//g; # <rrsyl> and <IMAPFolder> !?
2150         $store->set ($iter, C_LABEL, $label, C_HOTKEY, $hotkey,
2151             C_GROUP, $gkey, C_ACCEL, $akey, C_ODDITY, $even);
2152         $even = not $even;
2153     }
2154     my $treeview = Gtk3::TreeView->new_with_model ($store);
2155     # labels column
2156     $treeview->insert_column_with_data_func (
2157         0, _("Menu path"), new_hotkeys_list_label (),
2158         sub {
2159             my ($col, $renderer, $model, $iter, $data) = @_;
2160             $renderer->set_property (
2161                 'markup' => '<span size="smaller">'
2162                             . $model->get_value ($iter, C_LABEL)
2163                             . '</span>');
2164             my $bgcol = row_background_color (
2165                 $col, $model->get_value ($iter, C_ODDITY));
2166             $renderer->set_property ('cell-background-rgba' => $bgcol);
2167         }
2168     );
2169     # hotkeys column
2170     $treeview->insert_column_with_data_func (
2171         1, _('Hotkey'), new_hotkeys_list_hotkey (),
2172         sub {
2173             my ($col, $renderer, $model, $iter, $data) = @_;
2174             my $hkey = $model->get_value ($iter, C_HOTKEY);
2175             $hkey =~ s/\"//g;
2176             my ($acckey, $accmod) = Gtk3::accelerator_parse ($hkey);
2177             $renderer->set_property ('accel-key' => $acckey);
2178             $renderer->set_property ('accel-mods' => $accmod);
2179             my $bgcol = row_background_color (
2180                 $col, $model->get_value ($iter, C_ODDITY));
2181             $renderer->set_property ('cell-background-rgba' => $bgcol);
2182         }
2183     );
2184     # callback for saving current selection
2185     my $selection = $treeview->get_selection ();
2186     $selection->signal_connect ('changed' => sub { $SELHOTKEY = shift });
2187     return $treeview;
2188 }
2189
2190 sub new_hotkeys_page() {
2191     my $hkbook = Gtk3::Notebook->new;
2192     $hkbook->set_tab_pos ('right');
2193     foreach my $gkey (sort keys %$HOTKEYS) {
2194         my $group = $HOTKEYS->{$gkey};
2195         my $keylist = new_hotkeys_list ($gkey, $group);
2196         # prepare scrolled window
2197         my $swin = Gtk3::ScrolledWindow->new;
2198         $swin->set_border_width (5);
2199         $swin->set_shadow_type ('none');
2200         $swin->set_policy ('automatic', 'automatic');
2201         # add list of keys
2202         $swin->add ($keylist);
2203         $hkbook->append_page ($swin, new_label ($gkey));
2204     }
2205     return $hkbook;
2206 }
2207
2208 sub new_info_page() {
2209     my $v = get_toolkit_versions ();
2210     my $cfgv = $CONFIGDATA->{'Common'}{'config_version'};
2211     $cfgv //= '';
2212     return new_grid_pack (4, 11, [
2213         [ _('Library versions') ],
2214         [ new_label ('Perl-GLib'), new_title ($v->{'glib'}) ],
2215         [ new_label (_('GLib runtime')), new_title ($v->{'glib-r'}) ],
2216         [ new_label (_('GLib built')), new_title ($v->{'glib-b'}) ],
2217         [ new_label ('Perl-GTK3'), new_title ($v->{'gtk'}) ],
2218         [ new_label (_('GTK3 runtime')), new_title ($v->{'gtk-r'}) ],
2219         [ new_label (_('GTK3 built')), new_title ($v->{'gtk-b'}) ],
2220         [ '--' ],
2221         [ _('Claws Mail versions') ],
2222         [ new_label (_('Binary')), new_title ($CLAWSV) ],
2223         [ new_label (_('Configuration')), new_title ($cfgv) ]
2224     ]);
2225 }
2226
2227 # version info
2228 sub get_toolkit_versions {
2229     my %versions = ();
2230     $versions{'glib'} = $Glib::VERSION;
2231     # version info stuff appeared in 1.040
2232     if ($Glib::VERSION >= 1.040) {
2233         $versions{'glib-b'} = join('.', Glib->GET_VERSION_INFO);
2234         $versions{'glib-r'} = join('.',
2235             &Glib::major_version, &Glib::minor_version, &Glib::micro_version);
2236     }
2237     $versions{'gtk'} = $Gtk3::VERSION;
2238     if ($Gtk3::VERSION >= 0.034) {
2239         $versions{'gtk-b'} = &Gtk3::GET_VERSION_INFO
2240     } else {
2241         $versions{'gtk-b'} = _('Not available')
2242     }
2243     $versions{'gtk-r'} = join('.',
2244         &Gtk3::get_major_version, &Gtk3::get_minor_version, &Gtk3::get_micro_version);
2245     return \%versions;
2246 }
2247
2248 sub print_version() {
2249     print $xl::s{about_title} . "\n";
2250     print $xl::s{about_version} . " $VERSION\n";
2251     my $v = get_toolkit_versions ();
2252     if ($v->{'glib-b'}) {
2253         print _("Perl-GLib version {glibv}, built for {glibb}, running with {glibr}.",
2254                 glibv => $v->{'glib'},
2255                 glibb => $v->{'glib-b'},
2256                 glibr => $v->{'glib-r'});
2257     } else {
2258         print _("Perl-GLib version {glibv}.", glibv => $v->{'glib'});
2259     }
2260     print "\n";
2261     if ($v->{'gtk-b'}) {
2262         print _("Perl-GTK3 version {gtkv}, built for {gtkb}, running with {gtkr}.",
2263                 gtkv => $v->{'gtk'},
2264                 gtkb => $v->{'gtk-b'},
2265                 gtkr => $v->{'gtk-r'});
2266     } else {
2267         print _("Perl-GTK3 version {gtkv}.", gtkv => $v->{'gtk'});
2268     }
2269     print "\n";
2270     my $clawsver = ($CLAWSV eq "") ?
2271                 _("Claws Mail was not found!") :
2272                 _("Claws Mail returned version {cmv}.", cmv => $CLAWSV);
2273     print $clawsver . "\n";
2274 }
2275
2276 # the command line help
2277 sub print_help() {
2278     my $line = '-' x length ($xl::s{about_title});
2279     say $line;
2280     say $xl::s{about_title};
2281     say $line;
2282     my @help = (
2283         _("Syntax:"),
2284         _("  clawsker [options]"),
2285         _("Options:"),
2286         _("  -a|--alternate-config-dir <dir>  Uses <dir> as Claws Mail configuration."),
2287         _("  -b|--verbose                     More messages on standard output."),
2288         _("  -c|--clawsrc <file>              Uses <file> as full resource name."),
2289         _("  -h|--help                        Prints this help screen and exits."),
2290         _("  -r|--read-only                   Disables writing changes to disk."),
2291         _("  -v|--version                     Prints version information and exits.")
2292     );
2293     foreach (@help) { say $_ }
2294 }
2295
2296 sub parse_command_line {
2297     my $cont = TRUE;
2298     $CLAWSV = get_claws_version ();
2299     eval {
2300         GetOptions('h|help' => sub { print_help (); $cont = FALSE },
2301             'v|version' => sub { print_version (); $cont = FALSE },
2302             'b|verbose' => sub { $VERBOSE = TRUE },
2303             'r|read-only' => sub { $READONLY = TRUE },
2304             'u|use-claws-version=s' => \&opt_use_claws_version,
2305             'a|alternate-config-dir=s' => \&opt_alternate_config_dir,
2306             'c|clawsrc=s' => \&opt_clawsrc)
2307         or die _("try -h or --help for syntax.\n");
2308     };
2309     if ($@) {
2310         my $msg = _("Error in options: {msg}\n", msg => $@);
2311         if (defined $ENV{'DISPLAY'} and $ENV{'DISPLAY'} ne '') {
2312             eval { Gtk3->init };
2313             error_dialog ($msg) unless $@;
2314         }
2315         die $msg;
2316     }
2317     return $cont;
2318 }
2319
2320 sub opt_use_claws_version {
2321     my ($name, $value) = @_;
2322     die _("Error: {opt} requires a dotted numeric value argument\n", opt => $name)
2323         unless ($value =~ /^[\d\.]+$/);
2324     $CLAWSV = $value;
2325 }
2326
2327 sub opt_alternate_config_dir {
2328     my ($name, $value) = @_;
2329     die _("Error: '{dir}' is not a directory or does not exist\n", dir => $value)
2330         unless -d $value;
2331     $CONFIGDIR = $value;
2332     $ALTCONFIGDIR = TRUE;
2333 }
2334
2335 sub opt_clawsrc {
2336     my ($name, $value) = @_;
2337     die _("Error: '{value}' is not a file or does not exist\n", value => $value)
2338         unless -f $value;
2339     set_rc_filename ($value);
2340 }
2341
2342 # update the hidden preferences status from loaded values
2343 sub init_hidden_preferences {
2344     foreach my $hash (\%pr::beh, \%pr::col, \%pr::gui, \%pr::oth, \%pr::win) {
2345         foreach my $key (keys %$hash) {
2346             $HPVALUE{${$hash}{$key}[NAME]}[VALUE] = $PREFS{${$hash}{$key}[NAME]};
2347             $HPVALUE{${$hash}{$key}[NAME]}[IVALUE] = $PREFS{${$hash}{$key}[NAME]};
2348         }
2349     }
2350     foreach my $akey (keys %ACPREFS) {
2351         foreach my $key (keys %pr::acc) {
2352             my $pname = $pr::acc{$key}[NAME];
2353             $ACHPVALUE{$akey}{$pname}[VALUE] = $ACPREFS{$akey}{$pname};
2354             $ACHPVALUE{$akey}{$pname}[IVALUE] = $ACPREFS{$akey}{$pname};
2355         }
2356     }
2357     foreach my $key (keys %pr::plu) {
2358         my $plugin = $pr::plu{$key}[PLUGIN];
2359         my $pname = $pr::plu{$key}[NAME];
2360         if (defined $PLPREFS{$plugin}) {
2361             $PLHPVALUE{$plugin}{$pname}[VALUE] = $PLPREFS{$plugin}{$pname};
2362             $PLHPVALUE{$plugin}{$pname}[IVALUE] = $PLPREFS{$plugin}{$pname};
2363         }
2364     }
2365     return TRUE;
2366 }
2367
2368 # generic load/save resource files
2369 sub load_resource {
2370     my $rc = shift;
2371     my %data = ();
2372     my %meta = ();
2373     my $line = 0;
2374     open (RCF, '<:encoding(utf8)', $rc)
2375         or die _("Error: opening '{file}' for reading", file => $rc) . ": $!\n";
2376     my $section = '_'; # default unnamed section
2377     while (<RCF>) {
2378         chomp;
2379         ++$line;
2380         next if (/^\s*$/);
2381         if (/^\[([^\]]+)\]$/) { # new section
2382             $section = $1;
2383             die _("Error: duplicate section '{sect}' in resource file '{file}'\n",
2384                 sect => $section, file => $rc) if ($data{$section});
2385             $data{$section} = {};
2386             $meta{$section}{'#'} = $line;
2387         }
2388         elsif (/^([0-9a-z_]+)=(.*)$/) { # key=value
2389             $data{$section}{$1} = $2;
2390             $meta{$section}{$1} = $line;
2391         }
2392         elsif (/^(.*)$/) { # lone value
2393             push (@{$data{$section}{'_'}}, $1);
2394         }
2395     }
2396     close (RCF);
2397     return (\%data, \%meta);
2398 }
2399
2400 sub save_resource {
2401     my ($rc, $data, $meta) = @_;
2402     open (RCF, '>:utf8', $rc)
2403         or die _("Error: opening '{file}' for writing", file => $rc) . ": $!\n";
2404     my @sections = keys %$data;
2405     if (defined $meta) {
2406         @sections = sort {
2407             $meta->{$a}{'#'} <=> $meta->{$b}{'#'}
2408         } @sections
2409     }
2410     foreach my $section (@sections) {
2411         say RCF "[$section]";
2412         if (ref ($data->{$section}{'_'}) eq 'ARRAY') {
2413             foreach my $val (@{$data->{$section}{'_'}}) {
2414                 say RCF $val;
2415             }
2416         } else {
2417             my @keys = keys %{$data->{$section}};
2418             if (defined $meta) {
2419                 @keys = sort {
2420                     $meta->{$section}{$a} <=> $meta->{$section}{$b}
2421                 } @keys
2422             }
2423             foreach my $key (@keys) {
2424                 my $val = $data->{$section}{$key};
2425                 say RCF "$key=$val";
2426             }
2427         }
2428         say RCF "";
2429     }
2430     close (RCF);
2431 }
2432
2433 sub backup_resource {
2434     my $rc = shift;
2435     my $rcbak = "$rc.backup";
2436     do {
2437         my $emsg = _("Unable to create backup file '{name}'\n", name => $rcbak);
2438         log_message ($emsg);
2439         error_dialog ($emsg);
2440         return FALSE;
2441     } unless rename ($rc, $rcbak);
2442     return TRUE;
2443 }
2444
2445 # specific loaders
2446 sub load_menurc {
2447     my $rc = shift;
2448     open (RCF, '<:encoding(utf8)', $rc)
2449         or die _("Error: opening '{file}' for reading", file => $rc) . ": $!\n";
2450     my %groups = ();
2451     my $line = 0;
2452     while (<RCF>) {
2453         chomp;
2454         if (/^; \(gtk_accel_path "<([A-Za-z]+)>([^"]+)" ([^\)]+)\)$/) {
2455             my %data = ('key' => $3, 'enabled' => FALSE, 'line' => $line);
2456             $groups{$1}{$2} = \%data;
2457             # say "group -> $1 | path -> $2 | key -> $3";
2458         } elsif (/^\(gtk_accel_path "<([A-Za-z]+)>([^"]+)" ([^\)]+)\)$/) {
2459             my %data = ('key' => $3, 'enabled' => TRUE, 'line' => $line);
2460             $groups{$1}{$2} = \%data;
2461             # say "group -> $1 | path -> $2 | key -> $3";
2462         }
2463         ++$line;
2464     }
2465     close (RCF);
2466     return \%groups;
2467 }
2468
2469 sub save_menurc {
2470     my ($rc, $groups) = @_;
2471     my @lines = ();
2472     foreach my $gkey (keys %$groups) {
2473         my $group = $groups->{$gkey};
2474         foreach my $akey (keys %$group) {
2475             my $data = $group->{$akey};
2476             my $key = $data->{'key'};
2477             my $line = $data->{'line'};
2478             $lines[$line] = ($data->{'enabled'})? '': '; ';
2479             $lines[$line] .= '(gtk_accel_path "<'
2480                     . $gkey . '>' . $akey . '" ' . $key . ')';
2481         }
2482     }
2483     open (RCF, '>:utf8', $rc)
2484         or die _("Error: opening '{file}' for writing", file => $rc) . ": $!\n";
2485     say RCF '; claws-mail GtkAccelMap rc-file         -*- scheme -*-';
2486     say RCF '; this file is an automated accelerator map dump';
2487     say RCF ';';
2488     foreach (@lines) { say RCF $_ if $_ }
2489     close (RCF);
2490 }
2491
2492 # load current status from disc
2493 sub load_rc_preferences {
2494     my $rc = get_rc_filename ();
2495     log_message ("Loading preferences from $rc\n");
2496     return FALSE unless check_rc_file ($rc);
2497     ($CONFIGDATA, $CONFIGMETA) = load_resource ($rc);
2498     foreach (keys %{$CONFIGDATA->{'Common'}}) {
2499         $PREFS{$_} = $CONFIGDATA->{'Common'}{$_};
2500     }
2501     foreach my $plugin (@PLUGINS) {
2502         if (defined $CONFIGDATA->{$plugin}) {
2503             push (@AVPLUGINS, $plugin);
2504             foreach (keys %{$CONFIGDATA->{$plugin}}) {
2505                 $PLPREFS{$plugin}{$_} = $CONFIGDATA->{$plugin}{$_};
2506             }
2507         }
2508     }
2509     return TRUE;
2510 }
2511
2512 sub load_ac_preferences {
2513     my $rc = get_ac_rc_filename ();
2514     log_message ("Loading account preferences from $rc\n");
2515     return FALSE unless check_rc_file ($rc);
2516     ($ACCOUNTDATA, $ACCOUNTMETA) = load_resource ($rc);
2517     foreach my $asect (keys %$ACCOUNTDATA) {
2518         if ($asect =~ /^Account: (\d+)$/) {
2519             foreach (keys %{$ACCOUNTDATA->{$asect}}) {
2520                 $ACPREFS{$1}{$_} = $ACCOUNTDATA->{$asect}{$_};
2521             }
2522         }
2523     }
2524     return TRUE;
2525 }
2526
2527 sub load_hk_preferences {
2528     my $rc = get_menurc_filename ();
2529     return FALSE unless check_rc_file ($rc);
2530     $HOTKEYS = load_menurc ($rc);
2531     return TRUE;
2532 }
2533
2534 sub load_preferences {
2535     return FALSE unless check_claws_not_running ();
2536     return (load_rc_preferences ()
2537         and load_ac_preferences ()
2538         and load_hk_preferences ()
2539     );
2540 }
2541
2542 # save current preferences to disc
2543 sub save_rc_preferences {
2544     my $rc = get_rc_filename ();
2545     log_message ("Saving preferences to $rc\n");
2546     return FALSE unless check_rc_file ($rc);
2547     return FALSE unless backup_resource ($rc);
2548     foreach (keys %PREFS) {
2549         if (defined $HPVALUE{$_}) {
2550             $CONFIGDATA->{'Common'}{$_} = $HPVALUE{$_}[VALUE];
2551         }
2552     }
2553     foreach my $plugin (@AVPLUGINS) {
2554         foreach (keys %{$CONFIGDATA->{$plugin}}) {
2555             if (defined $PLHPVALUE{$plugin}{$_}) {
2556                 $CONFIGDATA->{$plugin}{$_} = $PLHPVALUE{$plugin}{$_}[VALUE];
2557             }
2558         }
2559     }
2560     save_resource ($rc, $CONFIGDATA, $CONFIGMETA);
2561     return TRUE;
2562 }
2563
2564 sub save_ac_preferences {
2565     my $rc = get_ac_rc_filename ();
2566     log_message ("Saving account preferences to $rc\n");
2567     return FALSE unless check_rc_file ($rc);
2568     return FALSE unless backup_resource ($rc);
2569     foreach my $asect (keys %$ACCOUNTDATA) {
2570         if ($asect =~ /^Account: (\d+)$/) {
2571             foreach (keys %{$ACCOUNTDATA->{$asect}}) {
2572                 if (defined $ACHPVALUE{$1}{$_}) {
2573                     $ACCOUNTDATA->{$asect}{$_} = $ACHPVALUE{$1}{$_}[VALUE];
2574                 }
2575             }
2576         }
2577     }
2578     save_resource ($rc, $ACCOUNTDATA, $ACCOUNTMETA);
2579     return TRUE;
2580 }
2581
2582 sub save_hk_preferences {
2583     my $rc = get_menurc_filename ();
2584     log_message ("Saving hotkey preferences to $rc\n");
2585     return FALSE unless check_rc_file ($rc);
2586     return FALSE unless backup_resource ($rc);
2587     save_menurc ($rc, $HOTKEYS);
2588     return TRUE;
2589 }
2590
2591 sub save_preferences {
2592     return FALSE unless check_claws_not_running ();
2593     my $result = save_rc_preferences ()
2594         and save_ac_preferences ()
2595         and save_hk_preferences ();
2596     $MODIFIED = 0 if $result;
2597     return $result;
2598 }
2599
2600 # create notebook
2601 sub new_notebook {
2602     my $nb = Gtk3::Notebook->new;
2603
2604     $nb->append_page (&new_behaviour_page, Gtk3::Label->new (_('Behaviour')));
2605     $nb->append_page (&new_colours_page, Gtk3::Label->new (_('Colours')));
2606     $nb->append_page (&new_gui_page, Gtk3::Label->new (_('GUI')));
2607     $nb->append_page (&new_other_page, Gtk3::Label->new (_('Other')));
2608     $nb->append_page (&new_winpos_page, Gtk3::Label->new (_('Windows')));
2609     $nb->append_page (&new_accounts_page, Gtk3::Label->new (_('Accounts')));
2610     $nb->append_page (&new_plugins_page, Gtk3::Label->new (_('Plugins')));
2611     $nb->append_page (&new_hotkeys_page, Gtk3::Label->new (_('Hotkeys')));
2612     $nb->append_page (&new_info_page, Gtk3::Label->new (_('Info')));
2613
2614     return $nb;
2615 }
2616
2617 # create an about dialog
2618 sub new_about_dialog {
2619     my ($parent) = @_;
2620     my $year = '2007-2018';
2621     my $holder = 'Ricardo Mones <ricardo@mones.org>';
2622     my $url = 'http://www.claws-mail.org/clawsker.php';
2623     my $icons = &get_app_icons;
2624
2625     my $dialog = Gtk3::AboutDialog->new;
2626     $dialog->set_transient_for ($parent);
2627     $dialog->set_program_name ('Clawsker');
2628     $dialog->set_version ($VERSION);
2629     $dialog->set_copyright ("Copyright © $year $holder");
2630     $dialog->set_license_type ('gpl-3-0');
2631     $dialog->set_website ($url);
2632     $dialog->set_website_label (_("Visit Clawsker's web page"));
2633     # committers, by number of commits
2634     $dialog->set_authors ([
2635         $holder,
2636         'Tristan Chabredier (wwp) <subscript@free.fr>',
2637         'Andreas Rönnquist <andreas@ronnquist.net>',
2638         'Christian Hesse <mail@eworm.de>',
2639     ]);
2640     $dialog->set_artists ([
2641         'Jesper Schultz <jesper@schultz-net.dk>',
2642         $holder,
2643     ]);
2644     $dialog->set_documenters ([
2645         $holder,
2646         'Paul Mangan <paul@claws-mail.org>',
2647     ]);
2648     # active translators, in alphabetical order
2649     $dialog->set_translator_credits (join ("\n",
2650         'Andreas Rönnquist <andreas@ronnquist.net>',
2651         'Axel Köllhofer <AxelKoellhofer@web.de>',
2652         'David Medina <opensusecatala@gmail.com>',
2653         'Erik P. Olsen <erik@epo.dk>',
2654         'Frederico Goncalves Guimaraes <frederico@teia.bio.br>',
2655         'Marcel Pol <marcel@timelord.nl>',
2656         'Mark Chang <mark.cyj@gmail.com>',
2657         'M. Sulchan Darmawan <bleketux@gmail.com>',
2658         'Numan Demirdöğen <if.gnu.linux@gmail.com>',
2659         'Pedro Albuquerque <pmra@gmx.com>',
2660         'Petter Adsen <petter@synth.no>',
2661         $holder,
2662         'Tristan Chabredier (wwp) <subscript@free.fr>',
2663     ));
2664     $dialog->set_title ($xl::s{about_title});
2665     $dialog->set_logo ($icons->[-1]);
2666
2667     return $dialog;
2668 }
2669
2670 sub exit_handler {
2671   my ($parent) = @_;
2672   if ($MODIFIED != 0 and not $READONLY) {
2673     my $markup = "<span>" . _('There are unapplied modifications.')
2674         . "</span>\n\n<span weight=\"bold\">"
2675         . _('Do you really want to quit?') . "</span>\n";
2676     my $dialog = message_dialog (
2677         $parent, _('Clawsker warning'), $markup, 'question',
2678         [ 'gtk-no', 1, 'gtk-yes', 0 ]
2679     );
2680     my $resp = $dialog->run;
2681     $dialog->hide;
2682     return TRUE if $resp;
2683   }
2684   Gtk3->main_quit;
2685 }
2686
2687 # create buttons box
2688 sub new_button_box {
2689     my ($parent, $adlg) = @_;
2690     my $b_about = Gtk3::Button->new_from_stock ('gtk-about');
2691     my $b_exit = Gtk3::Button->new_from_stock ('gtk-quit');
2692     my $b_apply = Gtk3::Button->new_from_stock ('gtk-apply');
2693     # disable button until is really implemented
2694     # my $b_undo = Gtk3::Button->new_from_stock ('gtk-undo');
2695     my $hbox = Gtk3::HBox->new (FALSE, 5);
2696     # signal handlers
2697     $b_exit->signal_connect (clicked => sub { exit_handler($parent) });
2698     $b_apply->set_sensitive (not $READONLY);
2699     $b_apply->signal_connect (clicked => sub { save_preferences($parent) });
2700     # $b_undo->signal_connect (clicked => sub { undo_current_changes });
2701     $b_about->signal_connect (clicked => sub { $adlg->run; $adlg->hide });
2702     # package them
2703     $hbox->pack_end ($b_apply, FALSE, FALSE, 0);
2704     $hbox->pack_end ($b_exit, FALSE, FALSE, 0);
2705     # $hbox->pack_end ($b_undo, FALSE, FALSE, 0);
2706     $hbox->pack_start ($b_about, FALSE, FALSE, 0);
2707     #
2708     return $hbox;
2709 }
2710
2711 sub get_app_icons {
2712     return \@APPICONS if (@APPICONS);
2713     my @names;
2714     if (-d $DATADIR) { # installed
2715         my $dir = catdir ($DATADIR, 'icons', 'hicolor');
2716         @names = map {
2717             catfile ($dir, $_ . 'x' . $_, 'apps', $NAME . '.png')
2718         } (48, 64, 128);
2719     } else { # unpacked tarball or git clone
2720         @names = map {
2721             catfile ('.', 'icons', $NAME . '-' . $_ . '.png');
2722         } (48, 64, 128);
2723     }
2724     foreach (@names) {
2725         my $icon = undef;
2726         $icon = Gtk3::Gdk::Pixbuf->new_from_file($_) if (-f $_);
2727         push @APPICONS, $icon if ($icon);
2728     }
2729     return \@APPICONS;
2730 }
2731
2732 sub escape_key_handler {
2733     my ($widget, $event) = @_;
2734     if ($event->keyval == Gtk3::Gdk::keyval_from_name('Escape')) {
2735         exit_handler($widget);
2736     }
2737 }
2738
2739 # initialise
2740 exit unless parse_command_line ();
2741 Gtk3->init;
2742 $main_window = Gtk3::Window->new ('toplevel');
2743 exit unless load_preferences ();
2744 exit unless init_hidden_preferences ();
2745 # create main GUI
2746 my $box = Gtk3::VBox->new (FALSE, 5);
2747 $box->set_border_width(3);
2748 my $about = new_about_dialog ($main_window);
2749 $box->pack_start (new_notebook (), TRUE, TRUE, 0);
2750 $box->pack_end (new_button_box ($main_window, $about), FALSE, FALSE, 0);
2751 $main_window->signal_connect (delete_event => sub { exit_handler($main_window) });
2752 $main_window->signal_connect (key_press_event => \&escape_key_handler);
2753 $main_window->set_title (_('Claws Mail Hidden Preferences'));
2754 $main_window->set_icon_list (get_app_icons ());
2755 $main_window->add ($box);
2756 $main_window->show_all;
2757 $MODIFIED = 0;
2758 Gtk3->main;
2759