From 93ecf5bbb24f64056f2c9ff4569817f33bcfda42 Mon Sep 17 00:00:00 2001
From: joe <rbo@gmx.us>
Date: Mon, 29 Sep 2025 11:42:18 +0200
Subject: up

---
 .local/bin/linkview | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/.local/bin/linkview b/.local/bin/linkview
index dea342f..605e0b7 100755
--- a/.local/bin/linkview
+++ b/.local/bin/linkview
@@ -12,8 +12,6 @@ use Capture::Tiny qw(capture);
 use POSIX qw(setsid);
 use Data::UUID;
 
-my $menu = "fzf";
-
 use constant {
 	TERMINAL_PATH	=> $TERMINAL,
 	MPV_PATH		=> 'mpv',
@@ -34,6 +32,11 @@ my @func_refs = ( \&vid, \&img_pdf, \&dl, \&audio, \&img_pdf, \&w3m, \&web, \&cl
 my %func_list;
 @func_list{@keys} = @func_refs;
 
+my $menu = "fzf --prompt ";
+for (@ARGV) {
+	$menu = "dmenu -i -l " . scalar @keys . " -p " if $_ eq "--dmenu";
+}
+
 use constant QUAL_LIST	=> "" .
 "uncap"		. "\n" .
 "1440"		. "\n" .
@@ -174,7 +177,7 @@ sub dl
 
 	if (is_yt($url) != 0) {
 		$list = QUAL_LIST;
-		$quality = `printf "$list" | $menu --prompt 'quality > '`;
+		$quality = `printf "$list" | $menu 'quality > '`;
 		if (not $quality) {
 			return;
 		}
@@ -489,7 +492,7 @@ sub fzf_prompt
 	my $list;
 
 	$list = join("\n", @keys);
-	$answer = `printf "$list\n" | $menu --prompt '$url > '`;
+	$answer = `printf "$list\n" | $menu '$url >'`;
 	chomp $answer;
 	return $answer;
 }
@@ -504,6 +507,7 @@ sub linkview
 	}
 
 	$answer = fzf_prompt($ARGV[0]);
+	$ARGV[1] = undef if (exists $ARGV[1] and $ARGV[1] eq '--dmenu');
 	return unless exists $func_list{$answer};
 	$func_list{$answer}->($ARGV[0], $ARGV[1], $answer);
 	return;
-- 
cgit v1.2.3