emacs.d/install.pl

   1 #!/usr/bin/perl -w
   2 #
   3 use 5.010;
   4 use strict;
   5
   6 ##my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
   7 chomp (my $date = `date +%m%d`);
   8
   9 if (-e "$ENV{HOME}/.emacs.d" ) {
  10     print "~/.emacs.d folder already exists.\nRename as ~/.emacs.d_bak_$date and continue yes (y) or no (n)? ";
  11     chomp (my $yorn = <STDIN>);
  12
  13     while ($yorn ne "y" and $yorn ne "n") {
  14         print "Input y or n: ";
  15         chomp ($yorn = <STDIN>);
  16     }
  17
  18     exit if $yorn eq "n";
  19
  20     ! system "mv", "$ENV{HOME}/.emacs.d", "$ENV{HOME}/.emacs.d_bak_$date" or die
  21         if $yorn eq "y";
  22 }
  23
  24 ## link emacs.d folder
  25 ! system "ln", "-s", "$ENV{HOME}/dotfiles/emacs.d", "$ENV{HOME}/.emacs.d" or die;
  26 say "DONE";