diff options
Diffstat (limited to '.local/bin')
| -rwxr-xr-x | .local/bin/linkview (renamed from .local/bin/linkview.pl) | 39 |
1 files changed, 36 insertions, 3 deletions
diff --git a/.local/bin/linkview.pl b/.local/bin/linkview index 8baf8c0..2a16c03 100755 --- a/.local/bin/linkview.pl +++ b/.local/bin/linkview @@ -2,6 +2,7 @@ use strict; use warnings; +use Scalar::Util qw(looks_like_number); use Term::ANSIColor; use constant { @@ -28,16 +29,48 @@ use constant { # mpv-view.pl "$1" # fi +sub open_link +{ + my ($answer) = @_; + return; +} + +sub prompt +{ + my ($url) = @_; + my $answer; + + print 'URL: ' . colored($url, 'red') . "\n\n" . + "Open with?\n" . + "0) mpv\n" . + "1) fetch\n" . + "2) sxiv\n" . + "3) zathura\n" . + "4) w3m\n" . + "5) firefox\n\n" . + "> "; + $answer = <STDIN>; + if (!looks_like_number($answer) || $answer == 0 || $answer == 1 || $answer > 6) { + $answer = -1; + } + return $answer; +} + sub main { my $answer; + system('tput', 'clear'); if (@ARGV == 0) { - print STDERR "URL needed\n"; + print STDERR "linkview: URL needed\n"; exit 1; } - print colored($ARGV[0], 'bold_green') . "\n"; - $answer = <STDIN>; + $answer = prompt($ARGV[0]); + if ($answer == -1) { + print STDERR "linkview: Bad answer\n"; + exit 2; + } + open_link($answer); return; } |