view release on metacpan or  search on metacpan

bin/i3-wod  view on Meta::CPAN

# PODNAME: i3-wod
# ABSTRACT: i3 workspace on demand

use v5.26;
use warnings;
use strict;

use AnyEvent::I3X::Workspace::OnDemand;
use AnyEvent;
use EV;
use Data::Dumper;
use Getopt::Long;
use File::Spec::Functions qw(catfile);
use YAML::XS qw(LoadFile);
use Pod::Usage qw(pod2usage);
use Proc::Find qw(find_proc);


my %options = (
  config => catfile($ENV{HOME}, qw(.config i3 wod.conf)),
  workdir => catfile($ENV{HOME}, qw(.config i3)),

lib/AnyEvent/I3X/Workspace/OnDemand.pm  view on Meta::CPAN

# ABSTRACT: An I3 workspace loader

class AnyEvent::I3X::Workspace::OnDemand;
use Carp qw(croak);

use AnyEvent::I3          qw(:all);
use List::Util            qw(first any);
use File::Spec::Functions qw(catfile);
use Data::Compare;
use Data::Dumper;

field $i3;
field $layout_path : param = catfile($ENV{HOME}, qw(.config i3));

field @groups;
field $starting_group :param = undef;
field $starting_workspace :param = undef;
field $debug :param          = 0;

field $log_all_events :param = undef;