up

1 files changed, 29 insertions, 14 deletions

diff --git a/.local/bin/linkview b/.local/bin/linkview
index f7dc7ca..ba671e3 100755
--- a/.local/bin/linkview
+++ b/.local/bin/linkview
@@ -13,22 +13,23 @@ use POSIX qw(setsid);
 use Data::UUID;
 
 use constant {
-	TERMINAL_PATH	=> $TERMINAL,
-	MPV_PATH		=> 'mpv',
-	YTDL_PATH		=> 'yt-dlp',
-	IMGVIEW_PATH	=> 'nsxiv -b -a',
-	FETCH_PATH		=> 'fetch',
-	CURL_PATH		=> 'curl',
-	ZATHURA_PATH	=> 'zathura',
-	W3M_PATH		=> 'w3m',
-	BROWSER_PATH	=> $BROWSER,
-	NOTIFYSEND_PATH	=> 'notify-send',
-	COPYQ_PATH		=> 'copyq',
-	HOSTNAME		=> (split /\./, hostname())[0]
+	TERMINAL_PATH	 => $TERMINAL,
+	MPV_PATH		 => 'mpv',
+	YTDL_PATH		 => 'yt-dlp',
+	IMGVIEW_PATH	 => 'nsxiv -b -a',
+	FETCH_PATH		 => 'fetch',
+	CURL_PATH		 => 'curl',
+	ZATHURA_PATH	 => 'zathura',
+	W3M_PATH		 => 'w3m',
+	BROWSER_PATH	 => $BROWSER,
+	ALT_BROWSER_PATH => 'surf',
+	NOTIFYSEND_PATH	 => 'notify-send',
+	COPYQ_PATH		 => 'copyq',
+	HOSTNAME		 => (split /\./, hostname())[0]
 };
 
-my @keys      = (  'vid', 'img',     'dl', 'audio',     'pdf', 'w3m', 'web', 'clip' );
-my @func_refs = ( \&vid, \&img_pdf, \&dl, \&audio, \&img_pdf, \&w3m, \&web, \&clip );
+my @keys      = (  'vid', 'img',     'dl', 'audio',     'pdf', 'w3m', 'surf', 'web', 'clip' );
+my @func_refs = ( \&vid, \&img_pdf, \&dl, \&audio, \&img_pdf, \&w3m, \&surf, \&web, \&clip );
 my %func_list;
 @func_list{@keys} = @func_refs;
 
@@ -403,6 +404,20 @@ sub w3m
 	return;
 }
 
+sub surf
+{
+	my ($url) = @_;
+	my $pid;
+
+	$pid = fork();
+	if (not $pid) {
+		setsid();
+		close_io();
+		exec(ALT_BROWSER_PATH, $url);
+	}
+	return;
+}
+
 sub web
 {
 	my ($url) = @_;