From 157917bfed4b955a1fbc45b8e80ea92574e1cf2d Mon Sep 17 00:00:00 2001 From: Joe Date: Thu, 26 Dec 2024 16:53:29 +0100 Subject: up --- .local/bin/dmbook | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100755 .local/bin/dmbook (limited to '.local/bin/dmbook') diff --git a/.local/bin/dmbook b/.local/bin/dmbook new file mode 100755 index 0000000..4aa8738 --- /dev/null +++ b/.local/bin/dmbook @@ -0,0 +1,38 @@ +#!/usr/bin/env perl + +use strict; +use warnings; +use Sys::Hostname; + +use constant { + BROWSER => '/bin/firefox', + HOSTNAME => (split /\./, hostname()) +}; + +sub main +{ + my $choice; + my $url; + my $pid; + my $prefix; + + $prefix = '/usr'; + if (HOSTNAME eq "mars") { + $prefix += '/local'; + } + $choice = `printf "" | dmenu -i -m 0 -p 'Search:'`; + if (not $choice) { + return; + } + $choice =~ s/ /+/g; + $url = 'https://www.startpage.com/sp/search?q=' . $choice; + $pid = fork(); + if (not $pid) { + exec($prefix . BROWSER, $url); + } + return; +} + +main(); + +__END__ -- cgit v1.2.3