- Added suppor for user-defined keys inside the "skip_entry" config o…

…ption. Example: skip_entry => [{key => 'NotShowIn', re => qr/Openbox/}],
trizen · Jul 11, 2015 · 925a12e · 925a12e
1 parent b176282
commit 925a12e
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/obmenu-generator b/obmenu-generator
@@ -353,8 +353,16 @@ my $desk_obj = Linux::DesktopFiles->new(
 
     home_dir => $home_dir,
 
-    categories   => [map $_->{cat}[0],      grep exists $_->{cat}, @$SCHEMA],
-    keys_to_keep => [@{$CONFIG{name_keys}}, 'Exec',                'Icon'],
+    categories   => [map $_->{cat}[0], grep exists $_->{cat}, @$SCHEMA],
+    keys_to_keep => [@{$CONFIG{name_keys}},
+                     'Exec', 'Icon',
+                     (
+                      defined($CONFIG{'Linux::DesktopFiles'}{skip_entry})
+                        && ref($CONFIG{'Linux::DesktopFiles'}{skip_entry}) eq 'ARRAY'
+                      ? (map { $_->{key} } @{$CONFIG{'Linux::DesktopFiles'}{skip_entry}})
+                      : ()
+                     ),
+                    ],
 
     $icons
     ? (