Threaded bspwm

2 files changed, 245 insertions, 0 deletions

diff --git a/.config/bspwm/network_thread.pl b/.config/bspwm/network_thread.pl
new file mode 100755
index 0000000..105d186
--- /dev/null
+++ b/.config/bspwm/network_thread.pl
@@ -0,0 +1,63 @@
+#!/usr/local/bin/perl
+
+use strict;
+use warnings;
+use Capture::Tiny qw(capture);
+use WWW::Curl::Easy;
+
+use constant {
+	PGREP_PATH	=> '/bin/pgrep',
+	GIT_PATH	=> '/usr/local/bin/git',
+	QTOX_PATH	=> '/usr/local/bin/qtox'
+};
+use constant NETWORK_TEST_URL	=> 'https://www.freebsd.org/';
+
+sub run_if_dead
+{
+	my @argv = @_;
+	my $bin;
+	my $pid;
+
+	$bin = $argv[0];
+	$bin =~ s/.+\///g;
+	my (undef, undef, $retval) = capture {
+		system(
+			PGREP_PATH,
+			$bin
+			);
+	};
+	$retval = ($retval >> 8) & 0xff;
+	if ($retval != 0) {
+		$pid = fork();
+		if (not $pid) {
+			exec(@argv);
+			exit;
+		}
+	}
+	return;
+}
+
+sub run_network_programs
+{
+	my $curl;
+	my $response_body;
+
+	$curl = WWW::Curl::Easy->new;
+	$curl->setopt(CURLOPT_URL, NETWORK_TEST_URL);
+	$curl->setopt(CURLOPT_WRITEDATA, \$response_body);
+	if ($curl->perform == 0) {
+		system(GIT_PATH, '-C', '/usr/home/jozan/.elfeed', 'pull', 'origin', 'master');
+		run_if_dead(QTOX_PATH);
+	}
+	return;
+}
+
+sub main
+{
+	run_network_programs();
+	return;
+}
+
+main();
+
+__END__
diff --git a/.config/bspwm/terms_thread.pl b/.config/bspwm/terms_thread.pl
new file mode 100755
index 0000000..4d6e9ed
--- /dev/null
+++ b/.config/bspwm/terms_thread.pl
@@ -0,0 +1,182 @@
+#!/usr/local/bin/perl
+
+use strict;
+use warnings;
+use Time::HiRes;
+
+use constant {
+	BSPC_PATH		=> '/usr/local/bin/bspc',
+	ESPEAK_PATH		=> '/usr/local/bin/espeak',
+	ALACRITTY_PATH	=> '/usr/local/bin/alacritty',
+	SH_PATH			=> '/bin/sh',
+	ZSH_PATH		=> '/usr/local/bin/zsh',
+	COWSAY_PATH		=> '/usr/local/bin/cowsay',
+	HTOP_PATH		=> '/usr/local/bin/htop',
+	GOTOP_PATH		=> '/usr/local/bin/gotop',
+	VIFM_PATH		=> '/usr/local/bin/vifm'
+};
+use constant COWSAY_WELCOME	=> 'Welcome back, partner! And remember to try glest!';
+
+sub run_espeak
+{
+	my $espeak_pid;
+
+	$espeak_pid = fork();
+	if (not $espeak_pid) {
+		exec(ESPEAK_PATH, COWSAY_WELCOME);
+	}
+	return;
+}
+
+sub fg_on_three_screens
+{
+	my @term_pid;
+
+	$term_pid[0] = fork();
+	if (not $term_pid[0]) {
+		exec(
+			ALACRITTY_PATH, '-e', SH_PATH, '-c',
+			COWSAY_PATH . ' "' . COWSAY_WELCOME . '"; ' . ZSH_PATH
+			);
+		exit;
+	}
+	Time::HiRes::sleep(2.5);
+	$term_pid[1] = fork();
+	if (not $term_pid[1]) {
+		exec(ALACRITTY_PATH, '-e', HTOP_PATH);
+		exit;
+	}
+	Time::HiRes::sleep(2.5);
+	$term_pid[2] = fork();
+	if (not $term_pid[2]) {
+		exec(ALACRITTY_PATH, '-e', GOTOP_PATH);
+		exit;
+	}
+	Time::HiRes::sleep(2.5);
+	system(BSPC_PATH, 'node', '-f', 'west');
+	$term_pid[3] = fork();
+	if (not $term_pid[3]) {
+		exec(ALACRITTY_PATH, '-e', VIFM_PATH);
+		exit;
+	}
+	Time::HiRes::sleep(2.5);
+	system(BSPC_PATH, 'node', '-z', 'right', '180', '0');
+	system(BSPC_PATH, 'node', '-z', 'top', '0', '70');
+	system(BSPC_PATH, 'node', '-f', 'east');
+	system(BSPC_PATH, 'node', '-f', 'north');
+	system(BSPC_PATH, 'node', '-z', 'bottom', '0', '-280');
+	system(BSPC_PATH, 'node', '-f', 'north');
+	system(BSPC_PATH, 'node', '-f', 'west');
+	return;
+}
+
+sub fg_on_two_screens
+{
+	my @term_pid;
+
+	$term_pid[0] = fork();
+	if (not $term_pid[0]) {
+		exec(
+			ALACRITTY_PATH, '-e', SH_PATH, '-c',
+			COWSAY_PATH . ' "' . COWSAY_WELCOME . '"; ' . ZSH_PATH
+			);
+		exit;
+	}
+	Time::HiRes::sleep(2.5);
+	$term_pid[1] = fork();
+	if (not $term_pid[1]) {
+		exec(ALACRITTY_PATH, '-e', HTOP_PATH);
+		exit;
+	}
+	Time::HiRes::sleep(2.5);
+	$term_pid[2] = fork();
+	if (not $term_pid[2]) {
+		exec(ALACRITTY_PATH, '-e', GOTOP_PATH);
+		exit;
+	}
+	Time::HiRes::sleep(2.5);
+	system(BSPC_PATH, 'node', '-f', 'west');
+	$term_pid[3] = fork();
+	if (not $term_pid[3]) {
+		exec(ALACRITTY_PATH, '-e', VIFM_PATH);
+		exit;
+	}
+	Time::HiRes::sleep(2.5);
+	system(BSPC_PATH, 'node', '-z', 'right', '180', '0');
+	system(BSPC_PATH, 'node', '-z', 'top', '0', '70');
+	system(BSPC_PATH, 'node', '-f', 'east');
+	system(BSPC_PATH, 'node', '-f', 'north');
+	system(BSPC_PATH, 'node', '-z', 'bottom', '0', '-280');
+	system(BSPC_PATH, 'node', '-f', 'north');
+	system(BSPC_PATH, 'node', '-f', 'west');
+	return;
+}
+
+sub fg_on_one_screen
+{
+	my @term_pid;
+
+	$term_pid[0] = fork();
+	if (not $term_pid[0]) {
+		exec(
+			ALACRITTY_PATH, '-e', SH_PATH, '-c',
+			COWSAY_PATH . ' "' . COWSAY_WELCOME . '"; ' . ZSH_PATH
+			);
+		exit;
+	}
+	Time::HiRes::sleep(2.5);
+	system(BSPC_PATH, 'node', '-p', 'west');
+	$term_pid[1] = fork();
+	if (not $term_pid[1]) {
+		exec(ALACRITTY_PATH, '-e', HTOP_PATH);
+		exit;
+	}
+	Time::HiRes::sleep(2.5);
+	$term_pid[2] = fork();
+	if (not $term_pid[2]) {
+		exec(ALACRITTY_PATH, '-e', GOTOP_PATH);
+	}
+	Time::HiRes::sleep(2.5);
+	system(BSPC_PATH, 'node', '-f', 'east');
+	$term_pid[3] = fork();
+	if (not $term_pid[3]) {
+		exec(ALACRITTY_PATH, '-e', VIFM_PATH);
+	}
+	Time::HiRes::sleep(2.5);
+	system(BSPC_PATH, 'node', '-f', 'west');
+	system(BSPC_PATH, 'node', '-f', 'north');
+	system(BSPC_PATH, 'node', '-z', 'bottom', '0', '-200');
+	system(BSPC_PATH, 'node', '-z', 'right', '-220', '0');
+	system(BSPC_PATH, 'node', '-f', 'east');
+	system(BSPC_PATH, 'node', '-z', 'bottom', '0', '70');
+	system(BSPC_PATH, 'node', '-f', 'north');
+	return;
+}
+
+sub run_terms
+{
+	my ($screens) = @_;
+
+	system(BSPC_PATH, 'desktop', '-f', '09');
+	if ($screens == 3) {
+		fg_on_three_screens();
+	}
+	elsif ($screens == 2) {
+		fg_on_two_screens();
+	}
+	else {
+		fg_on_one_screen();
+	}
+	return;
+}
+
+sub main
+{
+	run_espeak();
+	run_terms($ARGV[0]);
+	return;
+}
+
+main();
+
+__END__