[Commits] [SCM] clawsker branch, master, updated. 1.0.1-24-g96cc729

[mones at claws-mail.org]

The branch, master has been updated
       via  96cc72957ec903cc3901233d9deb7fe7d6b52c37 (commit)
      from  9ab4919736afcb8d90d1550fc250084bc3472ffe (commit)

Summary of changes:
 clawsker |   20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)


- Log -----------------------------------------------------------------
commit 96cc72957ec903cc3901233d9deb7fe7d6b52c37
Author: Ricardo Mones <ricardo at mones.org>
Date:   Fri Mar 10 00:23:10 2017 +0100

    Enable saving menurc

diff --git a/clawsker b/clawsker
index 5735635..1e262c4 100755
--- a/clawsker
+++ b/clawsker
@@ -2391,6 +2391,26 @@ sub load_menurc {
     return \%groups;
 }
 
+sub save_menurc {
+    my ($rc, $groups) = @_;
+    open (RCF, '>:utf8', $rc)
+        or die _("Error: opening '{file}' for writing", file => $rc) . ": $!\n";
+    say RCF '; claws-mail GtkAccelMap rc-file         -*- scheme -*-';
+    say RCF '; this file is an automated accelerator map dump';
+    say RCF ';';
+    foreach my $gkey (sort keys %$groups) {
+        my $group = $groups->{$gkey};
+        foreach my $akey (sort keys %$group) {
+            my $data = $group->{$akey};
+            my $key = $data->{'key'};
+            print RCF '; ' unless ($data->{'enabled'});
+            say RCF '(gtk_accel_path "<'
+                    . $gkey . '>' . $akey . '" ' . $key . ')';
+        }
+    }
+    close (RCF);
+}
+
 # load current status from disc
 sub load_rc_preferences {
     my $rc = get_rc_filename ();

-----------------------------------------------------------------------


hooks/post-receive
-- 
Hidden preferences editor for Claws Mail