X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Finstall.pl;h=ab37e54c49ec9c9a49cde5279e616779dbfb86ba;hb=d2be0835c81f15ce76276c74ced7bcddf879d5cf;hp=0fbe57eb1ec68ed149da31baa8069b14b35c6ea4;hpb=587667b8a28425a2a8314e305ab86be39593dad9;p=dotfiles.git

diff --git a/emacs.d/install.pl b/emacs.d/install.pl
index 0fbe57e..ab37e54 100755
--- a/emacs.d/install.pl
+++ b/emacs.d/install.pl
@@ -1,17 +1,18 @@
 #!/usr/bin/perl -w
 #
-use 5.010;
+#
 use strict;
+use File::Basename;
+use Cwd;
+use Cwd "abs_path";
+
+
+my $home = $ENV{'HOME'};
+my $emacsDir = dirname abs_path (__FILE__);
 
-##my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
-my $date = `date +%m%d`;
-chomp $date;
+die "~/.emacs.d or ~/.init.el or ~/.emacs exist. Backup them first.\n" 
+    if -e "$home/.init.el" or -e "$home/.emacs.d" or -e "$home/.emacs";
 
-if (-e "$ENV{HOME}/.emacs.d" ) {
-    say "~/.emacs.d folder already exists, rename as ~/.emacs.d_bak_$date";
-    ! system "mv", "$ENV{HOME}/.emacs.d", "$ENV{HOME}/.emacs.d_bak_$date" or die;
-}
+print `ln -s $emacsDir $home/.emacs.d`;
 
-## link emacs.d folder
-! system "ln", "-s", "$ENV{HOME}/dotfiles/emacs.d", "$ENV{HOME}/.emacs.d" or die;
-say "DONE";
+print "Done.\n" unless $?;