Skip to content

obam🔗

OpenBox Application (pipe)Menu.

paste this into a file called obam.pl and add it to your menu.xml

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
#!/usr/bin/perl
#
# OpenBox Applications (Pipe)Menu (C) Biffidus 2008
#
# (only kidding, it's not copyrighted. Do whatever you like with it)
#
# This pipe menu creates an application menu from the .desktop files
# found in many linux distributions. The desktop file must be of type
# Application and specify their Categories.
#
# One or more paths to search may be provided on the command line or
# specified below. The menu structure is derived from the Categories
# attribute and may be customised below with the following keywords:
#
# hide:     menu will not be displayed
# collapse: the submenus will be used instead
#
# Any item starting with X- is automatically hidden

my $APPSDIR = "/usr/share/applications/ /usr/kde/3.5/share/applications/kde/ ~/.
gnome/apps/ ~/.kde/share/apps";

my %CFG =
    (
      "Application" => "collapse",
      "GTK"         => "collapse",
      "KDE"         => "collapse",
      "Qt"          => "collapse",
    );

###############################################################################

# Hash of hashes
# $Hash{x}->{y} = z
# $Hash{x}{y}

my %menu; # application details

# Hash of arrays
# $Hash{$key} = \@Array
# @Array = @{$Hash{$key}}

my %cat;  # apps in each category (hashed lists)

################################################### Search for Applications ###

if ($#ARGV != -1) { $APPSDIR = join(" ", @ARGV); }

print STDERR "Searching $APPSDIR\n";

open (APPS, "find ".$APPSDIR." -name '*.desktop' |") || do
{
    print qq|<openbox_pipe_menu><item label="Error!" /></openbox_pipe_menu>\n|;
    die "could not open $APPSDIR";
};
@FILES = <APPS>;
close APPS;

######################################################## Parse Applications ###

print STDERR "\n### Scanning applications ###\n";

foreach $entry (@FILES)
{
    if (open(DE,$entry) && $entry =~ s|^.*/(.*?)\.desktop|$1|)
    {
        while (<DE>)
        {
            chomp;
            if (/^(\w+)=([^%]+)/)
            {
                # populate application details
                $menu{$entry}->{$1} = $2;

                # determine category
                if ($1 eq "Categories")
                {
                    print STDERR $2 . $entry;
                    my @tmp = split(/;/,$2);

                    while ($CFG{$tmp[0]} eq "collapse")
                    {
                        shift @tmp;
                    }
                    if ($CFG{$tmp[0]} ne "hide" && $tmp[0] !~ /^X-/)
                    {
                        push @{$cat{$tmp[0]}},$entry;
                    }
                }
            }
        }
    }
}

############################################################# Generate Menu ###

print STDERR "\n### Generating menu ###\n";

print "<openbox_pipe_menu>\n";

foreach $key (sort keys %cat)
{
    print qq| <menu id="obam-$key" label="$key">\n|;

    foreach $app (sort @{$cat{$key}})
    {
        if ($menu{$app}{Type} eq "Application")
        {
            my $Name = $menu{$app}{Name};
            my $Exec = $menu{$app}{Exec};
            print qq|  <item label="$Name"><action name="Execute"><execute>$Exec</execute></action></item>\n|;
        }
    }
    print " </menu>";
}
print "</openbox_pipe_menu>\n";

print STDERR "Done\n";

###############################################################################