setup_links

#!/bin/bash
# Setup dotfile links from etc to HOME dir
# cd to etc dir and run script

function relative () {
    perl -e 'use File::Spec; print File::Spec->abs2rel(@ARGV) . "\n"' $1 $2
}

function safe_link () {
  src="$PWD/$1"
  dst="$HOME/$2"

  if [ -e $dst ]; then
    echo dst file already exists: $dst
    return
  fi
  if [ -e $src ]; then
    s=$(relative $src $HOME)
    echo Linking $s to $dst
    ln -s $s $dst
  else
    echo src file does not exist: $src
  fi
}

perl -v > /dev/null || { echo "Perl is not installed"; exit 1; }

# Shell
safe_link bash_profile         .bash_profile
safe_link bashrc               .bashrc
safe_link git-prompt-colors.sh .git-prompt-colors.sh

# Editor
safe_link emacs.d              .emacs.d
safe_link emacs.d/dotemacs.el  .emacs
safe_link vimrc                .vimrc

# Git
safe_link gitconfig            .gitconfig
safe_link gitignore            .gitignore

# Ruby
safe_link irbrc                .irbrc
safe_link rvmrc                .rvmrc
safe_link gemrc                .gemrc