10 my $home = $ENV{'HOME'};
11 my $emacsDir = dirname abs_path (__FILE__);
13 die "~/.emacs.d or ~/init.el exist. Backup them first.\n"
14 if -e "$home/.init.el" or -e "$home/.emacs.d";
16 print `ln -s $emacsDir $home/.emacs.d`;
18 print "Done.\n" unless $?;