diff options
Diffstat (limited to '.local/bin/dmbookm')
| -rwxr-xr-x | .local/bin/dmbookm | 16 | 
1 files changed, 14 insertions, 2 deletions
diff --git a/.local/bin/dmbookm b/.local/bin/dmbookm index 4aa8738..4b1332e 100755 --- a/.local/bin/dmbookm +++ b/.local/bin/dmbookm @@ -9,23 +9,35 @@ use constant {  	HOSTNAME	=> (split /\./, hostname())  }; +use constant LIST => [ +	['grafana',			'https://grafana.nuabee.fr/'], +	['graf',			'http://graf.joe.town/'], +	['hedgedoc',		'http://hedgedoc.int.ysosecure.com/'], +	['zammad',			'https://support.nuabee.fr/'], +	[], +	]; +  sub main  {  	my $choice;  	my $url;  	my $pid;  	my $prefix; +	my $list;  	$prefix = '/usr';  	if (HOSTNAME eq "mars") {  		$prefix += '/local';  	} -	$choice = `printf "" | dmenu -i -m 0 -p 'Search:'`; +	for (@{+LIST}) { +		$list .= $_ . "\n"; +	} +	$choice = `printf "" | dmenu -i -m 0 -l 100`;  	if (not $choice) {  		return;  	}  	$choice =~ s/ /+/g; -	$url = 'https://www.startpage.com/sp/search?q=' . $choice; +	$url =  . $choice;  	$pid = fork();  	if (not $pid) {  		exec($prefix . BROWSER, $url);  | 
