6 # No dependencies except for perl ≥ v5.10 |
6 # No dependencies except for perl ≥ v5.10 |
7 |
7 |
8 use strict; |
8 use strict; |
9 use warnings qw(FATAL utf8); |
9 use warnings qw(FATAL utf8); |
10 use v5.10; |
10 use v5.10; |
|
11 use utf8; |
11 |
12 |
12 my $dmenu_cmd; |
13 my $dmenu_cmd; |
13 my @entry_types; |
14 my @entry_types; |
14 |
15 |
15 BEGIN { |
16 BEGIN { |
16 $dmenu_cmd = 'dmenu -b -i -p ] -nf \#CCC -nb \#555'; |
17 $dmenu_cmd = 'dmenu.xft -b -i -fn "Droid Sans-10" -p ] -nf \#CCC -nb \#555'; |
17 |
18 |
18 use Getopt::Long; |
19 use Getopt::Long; |
19 my $result = GetOptions( |
20 my $result = GetOptions( |
20 'dmenu=s' => \$dmenu_cmd, |
21 'dmenu=s' => \$dmenu_cmd, |
21 'entry-type=s' => \@entry_types, |
22 'entry-type=s' => \@entry_types, |