lib/Tails/Persistence/Configuration/Presets.pm

   1 =head1 NAME
   2
   3 Tails::Persistence::Configuration::Presets - available configuration snippets
   4
   5 =cut
   6
   7 package Tails::Persistence::Configuration::Presets;
   8 use Moose;
   9 use MooseX::Method::Signatures;
  10 use MooseX::Types::Moose qw( :all );
  11 use MooseX::Has::Sugar::Saccharin;
  12
  13
  14
  15 with 'Tails::Role::HasEncoding';
  16
  17 use autodie qw(:all);
  18 use warnings FATAL => 'all';
  19 use Carp;
  20 use Tails::Persistence::Configuration::Atom;
  21
  22 use Locale::gettext;
  23 use POSIX;
  24 setlocale(LC_MESSAGES, "");
  25 textdomain("tails-persistence-setup");
  26
  27
  28 =head1 ATTRIBUTES
  29
  30 =cut
  31
  32 has '_presets' =>
  33     lazy_build ro 'ArrayRef[Tails::Persistence::Configuration::Atom]',
  34     traits  => [ 'Array' ],
  35     handles => {
  36         count => 'count',
  37         all   => 'elements',
  38     };
  39
  40
  41 =head1 CONSTRUCTORS
  42
  43 =cut
  44
  45 method _build__presets {
  46     my @presets = (
  47         {
  48             name        => $self->encoding->decode(gettext(q{Personal Data})),
  49             description => $self->encoding->decode(gettext(
  50                 q{Keep files stored in the `Persistent' directory}
  51             )),
  52             destination => '/home/amnesia/Persistent',
  53             enabled     => 1,
  54             options     => [ 'source=Persistent' ],
  55             icon_name   => 'stock_folder',
  56         },
  57         {
  58             name        => $self->encoding->decode(gettext(q{GnuPG})),
  59             description => $self->encoding->decode(gettext(
  60                 q{GnuPG keyrings and configuration}
  61             )),
  62             destination => '/home/amnesia/.gnupg',
  63             options     => [ 'source=gnupg' ],
  64             enabled     => 0,
  65             icon_name   => 'seahorse-key',
  66         },
  67         {
  68             name        => $self->encoding->decode(gettext(q{SSH Client})),
  69             description => $self->encoding->decode(gettext(
  70                 q{SSH keys, configuration and known hosts}
  71             )),
  72             destination => '/home/amnesia/.ssh',
  73             options     => [ 'source=openssh-client'],
  74             enabled     => 0,
  75             icon_name   => 'seahorse-key-ssh',
  76         },
  77         {
  78             name        => $self->encoding->decode(gettext(q{Pidgin})),
  79             description => $self->encoding->decode(gettext(
  80                 q{Pidgin profiles and OTR keyring}
  81             )),
  82             destination => '/home/amnesia/.purple',
  83             options     => [ 'source=pidgin' ],
  84             enabled     => 0,
  85             icon_name   => 'pidgin',
  86         },
  87         {
  88             name        => $self->encoding->decode(gettext(q{Thunderbird})),
  89             description => $self->encoding->decode(gettext(
  90                 q{Thunderbird profiles and locally stored email}
  91             )),
  92             destination => '/home/amnesia/.thunderbird',
  93             options     => [ 'source=thunderbird' ],
  94             enabled     => 0,
  95             icon_name   => 'thunderbird',
  96         },
  97         {
  98             name        => $self->encoding->decode(gettext(q{Network Connections})),
  99             description => $self->encoding->decode(gettext(
 100                 q{Configuration of network devices and connections}
 101             )),
 102             destination => '/etc/NetworkManager/system-connections',
 103             options     => [ 'source=nm-system-connections' ],
 104             enabled     => 0,
 105             icon_name   => 'network-wired',
 106         },
 107         {
 108             name        => $self->encoding->decode(gettext(q{Browser bookmarks})),
 109             description => $self->encoding->decode(gettext(
 110                 q{Bookmarks saved in the Tor Browser}
 111             )),
 112             destination => '/home/amnesia/.mozilla/firefox/bookmarks',
 113             options     => [ 'source=bookmarks' ],
 114             enabled     => 0,
 115             icon_name   => 'user-bookmarks',
 116         },
 117         {
 118             name        => $self->encoding->decode(gettext(q{Printers})),
 119             description => $self->encoding->decode(gettext(
 120                 q{Printers configuration}
 121             )),
 122             destination => '/etc/cups',
 123             options     => [ 'source=cups-configuration' ],
 124             enabled     => 0,
 125             icon_name   => 'printer',
 126         },
 127         {
 128             name        => $self->encoding->decode(gettext(q{Bitcoin client})),
 129             description => $self->encoding->decode(gettext(
 130                 q{Electrum's bitcoin wallet and configuration}
 131             )),
 132             destination => '/home/amnesia/.electrum',
 133             options     => [ 'source=electrum' ],
 134             enabled     => 0,
 135             icon_name   => 'electrum',
 136         },
 137         {
 138             name        => $self->encoding->decode(gettext(q{APT Packages})),
 139             description => $self->encoding->decode(gettext(
 140                 q{Packages downloaded by APT}
 141             )),
 142             destination => '/var/cache/apt/archives',
 143             options     => [ 'source=apt/cache' ],
 144             enabled     => 0,
 145             icon_name   => 'package-x-generic',
 146         },
 147         {
 148             name        => $self->encoding->decode(gettext(q{APT Lists})),
 149             description => $self->encoding->decode(gettext(
 150                 q{Lists downloaded by APT}
 151             )),
 152             destination => '/var/lib/apt/lists',
 153             options     => [ 'source=apt/lists' ],
 154             enabled     => 0,
 155             icon_name   => 'package-x-generic',
 156         },
 157         {
 158             name        => $self->encoding->decode(gettext(q{Dotfiles})),
 159             description => $self->encoding->decode(gettext(
 160                 q{Symlink into $HOME every file or directory found in the `dotfiles' directory}
 161             )),
 162             destination => '/home/amnesia',
 163             options     => [ 'source=dotfiles', 'link' ],
 164             enabled     => 0,
 165             icon_name   => 'preferences-desktop',
 166         },
 167     );
 168
 169     return [
 170         map { Tails::Persistence::Configuration::Atom->new(%{$_}) } @presets
 171     ];
 172 }
 173
 174
 175 =head1 METHODS
 176
 177 =cut
 178
 179 sub set_state_from_lines {
 180     my $self = shift;
 181     my @lines = @_;
 182
 183     foreach my $atom ($self->all) {
 184         $atom->enabled(1) if grep { $atom->equals_line($_) } @lines;
 185     }
 186 }
 187
 188 no Moose;
 189 1;