#!/usr/bin/perl
use strict; use warnings; # PUBLIC at `http://reluk.ca/sys/bin/` — for no particular reason.

=pod

=head1 NAME

llay-Havoc - Place the Havoc monitors on the desktop

=head1 DESCRIPTION

Places the Havoc monitoring windows on the desktop.

=cut

# The note apropos of SSH in `./llay-server` applies here, too.

{
    use Zelea::Function qw( system_or_print );


## - S c r e e n s - 0 - to - 5 --- ( L L L - to - R R R ) ----------------------------------------------


  # 1 = LL
  # ------
    system_or_print(
      qw( nice --adjustment=2
        /usr/local/bin/lay-terminal --screen=1 --all-desktops --below --horz --rows=115 ),
      '--title=Havoc tail',
      qw( -- -e /home/mike/sys/libexec/tail-remotely Havoc /usr/local/bin/tail-sys tail-sys-filter sys ));
    #> (CN=Havoc; S=1; nice --adjustment=2 /usr/local/bin/lay-terminal --screen=$S --all-desktops --below --horz --rows=115 --title="${CN} tail" -- -e ~/sys/libexec/tail-remotely $CN /usr/local/bin/tail-sys tail-sys-filter sys)

    system_or_print(
      qw( nice --adjustment=1
        /usr/local/bin/lay-terminal --screen=1 --all-desktops --below --cols=136 --rows=66 --title=Havoc
          --undecorated --
        -e ssh -t mike@havoc nice --adjustment=2 htop --delay=20 ))
    or system_or_print(
      qw( cascade-pilot --prepo=NE_absolute move ));
    #> (CN=Havoc; S=1; nice --adjustment=1 /usr/local/bin/lay-terminal --screen=$S --all-desktops --below --cols=136 --rows=66 --title=$CN --undecorated -- -e ssh -t mike@${CN,*} nice --adjustment=2 htop --delay=20 && cascade-pilot --prepo=NE_absolute move)

}