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