Remove unused files/modules, add archive sub

`archive' will create tars of files, there is a pre-defined list.

1 files changed, 0 insertions, 105 deletions

diff --git a/lib/Emacs.pm b/lib/Emacs.pm
deleted file mode 100644
index dc409a3..0000000
--- a/lib/Emacs.pm
+++ /dev/null
@@ -1,105 +0,0 @@
-#!/usr/bin/perl
-
-package Emacs;
-
-use strict;
-use warnings;
-use feature 'say';
-use Fcntl ':mode';
-
-use IPC::Run3;
-use Path::Tiny;
-use Term::ANSIColor qw/ :pushpop colored color /;
-
-sub sync {
-    my ( $options ) = @_;
-    my $verbose = $options->{verbose};
-
-    sub rsync {
-        run3 ["openrsync", @_];
-    }
-    my @def_opt = qw{ --delete -oprtl };
-    push @def_opt, "-v" if $verbose;
-
-    # Remove --delete.
-    my @no_del_opt = @def_opt;
-    shift @no_del_opt;
-
-    if ($options->{authinfo}) {
-        my $authinfo_remote = "$ENV{HOME}/.authinfo-remote";
-        my %path_perms = (
-            $authinfo_remote => 0700,
-            "$authinfo_remote/team" => 0600,
-            "$authinfo_remote/inst" => 0600,
-            "$authinfo_remote/town" => 0600,
-        );
-
-        # Check path permissions.
-        say LOCALCOLOR CYAN "Checking path permissions...";
-        foreach my $path ( sort keys %path_perms ) {
-            my $mode = S_IMODE(path($path)->stat->mode);
-
-            if ( $mode == $path_perms{$path} ) {
-                say LOCALCOLOR GREEN "[OK] $path"
-                    if $verbose;
-            } else {
-                warn "[ERR] $path
-      Expected: $path_perms{$path} :: Got: $mode
-      Changing permission...\n";
-
-                path("$path")->chmod($path_perms{$path});
-            }
-        }
-        say LOCALCOLOR CYAN "[DONE] Permissions checked";
-
-        say LOCALCOLOR CYAN "Syncing authinfo...";
-        my %authinfo_hosts = (
-            "tilde.team" => "$authinfo_remote/team",
-            "tilde.institute" => "$authinfo_remote/inst",
-            "tilde.town" => "$authinfo_remote/town",
-        );
-        foreach my $host ( sort keys %authinfo_hosts ) {
-            say LOCALCOLOR MAGENTA "$host";
-            rsync( @def_opt, $authinfo_hosts{$host}, "andinus\@$host:~/.authinfo" );
-        }
-        say LOCALCOLOR CYAN "[DONE] authinfo sync";
-    }
-
-    if ($options->{config}) {
-        say LOCALCOLOR CYAN "Syncing emacs config...";
-        my @hosts = qw{ tilde.team tilde.institute envs.net tilde.town };
-
-        my $e_conf = "$ENV{HOME}/.emacs.d";
-        my @paths = (
-            "$e_conf/init.el",
-            "$e_conf/e-init.el",
-            "$e_conf/e-init.org",
-            "$e_conf/elpa/",
-        );
-        foreach my $host (@hosts) {
-            say LOCALCOLOR MAGENTA "$host";
-            foreach my $path (@paths) {
-                say "  $path";
-                rsync( @def_opt, $path, "andinus\@$host:$path");
-            }
-        }
-        say LOCALCOLOR CYAN "[Done] Emacs config sync";
-    }
-
-    if ( $options->{irclogs} ) {
-        say LOCALCOLOR CYAN "Syncing irclogs...";
-        my @hosts = qw{ tilde.team tilde.institute envs.net tilde.town };
-
-        my $e_conf = "$ENV{HOME}/.emacs.d";
-        foreach my $host (@hosts) {
-            say LOCALCOLOR MAGENTA "$host";
-            rsync( @no_del_opt, "andinus\@$host:~/.emacs.d/irclogs/",
-                   "$e_conf/irclogs/$host/");
-        }
-
-        say LOCALCOLOR CYAN "[DONE] irclogs sync";
-    }
-
-}
-
-1;