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 my $date = `date +%m%d`;
   8 chomp $date;
   9
  10 if (-e "$ENV{HOME}/.emacs.d" ) {
  11     say "~/.emacs.d folder already exists, rename as ~/.emacs.d_bak_$date";
  12     ! system "mv", "$ENV{HOME}/.emacs.d", "$ENV{HOME}/.emacs.d_bak_$date" or die;
  13 }
  14
  15 ## link emacs.d folder
  16 ! system "ln", "-s", "$ENV{HOME}/dotfiles/emacs.d", "$ENV{HOME}/.emacs.d" or die;
  17 say "DONE";