diff options
Diffstat (limited to '')
| -rwxr-xr-x | .local/bin/linkview | 25 |
1 files changed, 4 insertions, 21 deletions
diff --git a/.local/bin/linkview b/.local/bin/linkview index 772ae6e..9c0d700 100755 --- a/.local/bin/linkview +++ b/.local/bin/linkview @@ -29,27 +29,10 @@ use constant { HOSTNAME => (split /\./, hostname())[0] }; -my @keys = ( - 'vid', - 'img', - 'dl', - 'audio', - 'pdf', - 'w3m', - 'web', - 'clip', -); - -my %func_list = ( - $keys[0] => \&vid, - $keys[1] => \&img_pdf, - $keys[2] => \&dl, - $keys[3] => \&audio, - $keys[4] => \&img_pdf, - $keys[5] => \&w3m, - $keys[6] => \&web, - $keys[7] => \&clip, -); +my @keys = ( 'vid', 'img', 'dl', 'audio', 'pdf', 'w3m', 'web', 'clip' ); +my @func_refs = ( \&vid, \&img_pdf, \&dl, \&audio, \&img_pdf, \&w3m, \&web, \&clip ); +my %func_list; +@func_list{@keys} = @func_refs; use constant QUAL_LIST => "" . "uncap" . "\n" . |