Clean up some old utils

1 files changed, 0 insertions, 43 deletions

diff --git a/.local/bin/get-focussed-monitor b/.local/bin/get-focussed-monitor
deleted file mode 100755
index 4d7bbd4..0000000
--- a/.local/bin/get-focussed-monitor
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/env raku
-
-use v6.d;
-
-sub MAIN (
-	#Bool:D :$shell = False,
-	Bool:D :$coords = False,
-) {
-	my @xrandr = shell('xrandr | grep -w connected', :out).out.slurp.lines;
-	my %monitors;
-
-	my $mouse = shell('xdotool getmouselocation', :out).out.slurp.trim ~~ m/
-		'x:' $<x> = [ \d+ ]
-		\s*
-		'y:' $<y> = [ \d+ ]
-	/;
-
-	for @xrandr -> $monitor {
-		my $match = $monitor ~~ m/
-			$<width> = [ \d+ ]
-			'x'
-			$<height> = [ \d+ ]
-			'+'
-			$<x> = [ \d+ ]
-			'+'
-			$<y> = [ \d+ ]
-		/;
-
-		next unless $match<x> ≤ $mouse<x> ≤ ($match<x> + $match<width>);
-		next unless $match<y> ≤ $mouse<y> ≤ ($match<y> + $match<height>);
-
-		say qq[MONITOR="{$monitor.words.first}"];
-
-		if ($coords) {
-			say qq[W="{$match<width>}"];
-			say qq[H="{$match<height>}"];
-			say qq[X="{$match<x>}"];
-			say qq[Y="{$match<y>}"];
-		}
-
-		last;
-	}
-}