#!/usr/bin/perl
use strict; use warnings;
=pod

=head1 NAME

llay-1 - lay all initial apps

=cut

use lib "$ENV{HOME}/.config", '/etc/xdg'; # for desktop config files
use lib '/home/mike/code/textbender/x/repo';
{
    use textbender::a::b::Function qw( system_or_print );
    use Zelea::Desktop qw ( $EDITOR_SCREEN $MONITOR_SCREEN $TERMINAL_SCREEN );
    use Zelea::WindowManagement qw( $ALL_DESKTOPS net_client_list_matching );

    my @window; my $window;

   # Prime screenpager. It has probably been reset in .xinit.
   # The state directories are created on the first call.
   # But if the first call were to come from root,
   # root's soft links to those directories would be broken,
   # and screenpager would fail. [Why? Maybe FIX this.]
   # This creates the state directories cleanly,
   # so it doesn't matter who makes the next screenpager call.
   # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    system_or_print 'screenpager display off' and die;

   # - - -
    system_or_print "/home/mike/system/bin/lay-backtail --screen=$MONITOR_SCREEN";
    system_or_print "sudo ensure-mounted www && lay-back-terminal --screen=$EDITOR_SCREEN -- --window-with-profile=background --command=/home/mike/system/libexec/sleep-tail-www";

   # - - -
    system_or_print 'gkrellm &';

    sleep 2; # avoid polls while matching
    @window = net_client_list_matching "^gkrellm" or die;

    $window = $window[$#window];
    system_or_print "wmctrl-zelea -i -r $window -b add,below"
      . " && wmctrl-zelea -i -r $window -t $ALL_DESKTOPS";

   # - - -
    system_or_print "/usr/local/bin/lay-file-browser --screen=3";

   # - - -
    system_or_print "lay-editable-tools --screen=$EDITOR_SCREEN";
    system_or_print "wmctrl -r :ACTIVE: -b add,shaded";

   # - - -
    system_or_print "lay-editable-tasks --screen=0";
  # system_or_print "wmctrl-zelea -r :ACTIVE: -b add,shaded";
    system_or_print "wmctrl-zelea -r :ACTIVE: -b add,_OB_WM_STATE_UNDECORATED,maximized_vert";
  # system_or_print "wmctrl-zelea -r :ACTIVE: -b add,fullscreen";
  ### then it hides windows that appear over top of it, whenever it takes the focus

   # - - -
  # system_or_print "/usr/local/bin/lay-back-terminal --screen=$TERMINAL_SCREEN";
    system_or_print "/usr/local/bin/lay-back-terminal --screen=1";

}


__END__
=pod

=head1 AUTHOR

Michael Allan <mike@zelea.com>

=cut