Enable parsing menurc

diff --git a/clawsker b/clawsker
index 9ecb797ad0c592eb8c1311d8b8322e38e45590b7..57356352cec6bd3f61c93dd2eed452f608b67109 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -401,6 +401,10 @@ sub get_ac_rc_filename {
     return $CONFIGDIR . $ACCOUNTRC;
 }
 
     return $CONFIGDIR . $ACCOUNTRC;
 }
 

+sub get_menurc_filename {
+    return $CONFIGDIR . "menurc";
+}
+

 sub set_rc_filename {
     my ($fullname) = @_;
     my @parts = split ('/', $fullname);
 sub set_rc_filename {
     my ($fullname) = @_;
     my @parts = split ('/', $fullname);


@@ -2362,6 +2366,31 @@ sub save_resource {
     close (RCF);
 }
 
     close (RCF);
 }
 

+# specific loaders
+sub load_menurc {
+    my $rc = shift;
+    open (RCF, '<:encoding(utf8)', $rc)
+        or die _("Error: opening '{file}' for reading", file => $rc) . ": $!\n";
+    my %groups = ();
+    my $line = 0;
+    while (<RCF>) {
+        chomp;
+        ++$line;
+        if (/^; \(gtk_accel_path "<([A-Za-z]+)>([^"]+)" ([^\)]+)\)$/) {
+            my %data = ('key' => $3, 'enabled' => FALSE);
+            $groups{$1}{$2} = \%data;
+            # say "group -> $1 | path -> $2 | key -> $3";
+        }
+        if (/^\(gtk_accel_path "<([A-Za-z]+)>([^"]+)" ([^\)]+)\)$/) {
+            my %data = ('key' => $3, 'enabled' => TRUE);
+            $groups{$1}{$2} = \%data;
+            # say "group -> $1 | path -> $2 | key -> $3";
+        }
+    }
+    close (RCF);
+    return \%groups;
+}
+

 # load current status from disc
 sub load_rc_preferences {
     my $rc = get_rc_filename ();
 # load current status from disc
 sub load_rc_preferences {
     my $rc = get_rc_filename ();