about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rwxr-xr-xleo.pl4
-rw-r--r--lib/Emacs.pm76
2 files changed, 51 insertions, 29 deletions
diff --git a/leo.pl b/leo.pl
index 462d2bf..0a3e540 100755
--- a/leo.pl
+++ b/leo.pl
@@ -22,7 +22,9 @@ GetOptions(
 ) or die "Error in command line arguments\n";
 
 my %dispatch = (
-    "sync emacs" => sub { Emacs::sync(\%options) },
+    "sync emacs" => sub { $options{config} = 1; Emacs::sync(\%options); },
+    "sync emacs irclogs" => sub { $options{irclogs} = 1; Emacs::sync(\%options); },
+    "sync emacs authinfo" => sub { $options{authinfo} = 1; Emacs::sync(\%options); },
 );
 
 if ( $dispatch{ "@ARGV" } ) {
diff --git a/lib/Emacs.pm b/lib/Emacs.pm
index e15a664..dc409a3 100644
--- a/lib/Emacs.pm
+++ b/lib/Emacs.pm
@@ -14,39 +14,44 @@ use Term::ANSIColor qw/ :pushpop colored color /;
 sub sync {
     my ( $options ) = @_;
     my $verbose = $options->{verbose};
-    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";
 
     sub rsync {
         run3 ["openrsync", @_];
     }
-    my @def_opt = qw{ --delete -oprt };
+    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",
@@ -60,7 +65,7 @@ sub sync {
         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 };
 
@@ -80,6 +85,21 @@ sub sync {
         }
         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;