up

2 files changed, 45 insertions, 7 deletions

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