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 ++++++++++++++++++++++++++++++++++++++ .local/bin/dmlog | 14 +++++++------- 2 files changed, 45 insertions(+), 7 deletions(-) create mode 100755 .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__ diff --git a/.local/bin/dmlog b/.local/bin/dmlog index 73627c2..8d70ca5 100755 --- a/.local/bin/dmlog +++ b/.local/bin/dmlog @@ -16,15 +16,15 @@ use constant { HOSTNAME => (split /\./, hostname()) }; use constant LIST => [ - 'Lock screen', - 'Sleep', - 'Logout', - 'Reboot', - 'Shutdown' + 'lock screen', + 'sleep', + 'logout', + 'reboot', + 'shutdown' ]; use constant CONFIRM => [ - "No", - "Yes" + "no", + "yes" ]; sub confirm -- cgit v1.2.3