hugok
/
e16
forked from e16/e16
1
0
Fork 0
Code Pull Requests Activity

Improve KDE menu generation. Patch by obennett <obennett@hartford.edu>. 

SVN revision: 11492
This commit is contained in:
Kim Woelders 2004-09-01 18:12:26 +00:00
parent dcef33137f
commit 8de03bb8e3
1 changed files with 22 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
scripts/e_gen_menu
View File

@ -25,10 +25,11 @@
############################################################################## ##############################################################################
# Likely prefixes # Likely prefixes
$Prefixes = "/usr/local:/usr:/opt"; $Prefixes = "/usr/local:/usr:/opt:/opt/kde";
# Where to look for GNOME2/KDE2,3 stuff # Where to look for GNOME2/KDE2,3 stuff
$AppDirs = MkDirList($Prefixes, "/share/applications"); $AppDirs = MkDirList($Prefixes, "/share/applications:/share/applications/kde");
$IconDirs = MkDirList($Prefixes, "/share/pixmaps"); $IconDirs = MkDirList($Prefixes, "/share/pixmaps");
$IconDirsKDE = MkDirList($Prefixes, "/share/icons"); $IconDirsKDE = MkDirList($Prefixes, "/share/icons");
$Themes = "default.kde:hicolor:locolor"; $Themes = "default.kde:hicolor:locolor";
@ -64,6 +65,7 @@ $DoConvert = `which convert`;
@CatsRemove = ( @CatsRemove = (
"Qt", "Qt",
"QT",
"GNOME", "GNOME",
"KDE", "KDE",
"UtilityApplication", "UtilityApplication",
@ -73,7 +75,20 @@ $DoConvert = `which convert`;
"X-Red-Hat-BaseApplication", "X-Red-Hat-BaseApplication",
"X-Red-Hat-Base", "X-Red-Hat-Base",
"X-Red-Hat-ServerConfig", "X-Red-Hat-ServerConfig",
"X-Red-Hat-Extra" "X-Red-Hat-Extra",
"X-KDE-information",
"X-KDE-settings-accessibility",
"X-KDE-settings-components",
"X-KDE-settings-desktop",
"X-KDE-settings-looknfeel",
"X-KDE-settings-network",
"X-KDE-settings-peripherals",
"X-KDE-settings-power",
"X-KDE-settings-security",
"X-KDE-settings-sound",
"X-KDE-settings-system",
"X-KDE-settings-webbrowsing"
); );
@MainMenu = ( @MainMenu = (
@ -118,8 +133,10 @@ sub MkDirList {
local $d; local $d;
local @r; local @r;
foreach $p (split(':', $ll)) { foreach $p (split(':', $ll)) {
$d = "$p$sf"; foreach $q (split(':', $sf)) {
push(@r, "$d") if -d "$d"; $d = "$p$q";
push(@r, "$d") if -d "$d";
}
} }
return join(':', @r); return join(':', @r);
} }