diff options
Diffstat (limited to '.local/bin/get-focussed-monitor')
-rwxr-xr-x | .local/bin/get-focussed-monitor | 43 |
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; - } -} |