my current emacs config

;;; my current ~/.emacs for ESS, R, Gmail and Slime configurations
;;;Emacs Frame Size
(add-to-list 'default-frame-alist '(left . 500))
(add-to-list 'default-frame-alist '(top . 100))
(add-to-list 'default-frame-alist '(height . 30))
(add-to-list 'default-frame-alist '(width . 80))

;;;Emacs ESS
(require 'ess-site)
(put 'set-goal-column 'disabled nil)

;;;Emacs Gmail
(setq send-mail-function 'smtpmail-send-it
      message-send-mail-function 'smtpmail-send-it
      smtpmail-starttls-credentials
      '(("smtp.gmail.com" 587 nil nil))
      smtpmail-auth-credentials
      (expand-file-name "~/.authinfo")
      smtpmail-default-smtp-server "smtp.gmail.com"
      smtpmail-smtp-server "smtp.gmail.com"
      smtpmail-smtp-service 587
      smtpmail-debug-info t)
(require 'smtpmail)

;;;Slime
;; This config is from port installation
;;(setq inferior-lisp-program "PATH_TO_YOUR_LISP_BINARY")
;;(setq inferior-lisp-program "PATH_TO_YOUR_LISP_BINARY")
;;(add-to-list 'load-path "/usr/local/share/emacs/23.3/site-lisp/slime"
;;  "/usr/local/share/emacs/23.3/site-lisp/slime/contrib")
;;(require 'slime)
;;(slime-setup '(slime-repl))


;;; jrockway's style from stackoverflow site
(eval-after-load "slime"
  '(progn
     (setq slime-lisp-implementations
           '((sbcl ("/usr/local/bin/sbcl"))
             (ecl ("/usr/local/bin/ecl"))
             (clisp ("/usr/local/bin/clisp"))))
     (slime-setup '(
                    slime-asdf
                    slime-autodoc
                    slime-editing-commands
                    slime-fancy-inspector
                    slime-fontifying-fu
                    slime-fuzzy
                    slime-indentation
                    slime-mdot-fu
                    slime-package-fu
                    slime-references
                    slime-repl
                    slime-sbcl-exts
                    slime-scratch
                    slime-xref-browser
                    ))
     (slime-autodoc-mode)
     (setq slime-complete-symbol*-fancy t)
     (setq slime-complete-symbol-function
  'slime-fuzzy-complete-symbol)))

(require 'slime)

;;;dpans2texi
(require 'info-look)
(info-lookup-add-help
 :mode 'lisp-mode
 :regexp "[^][()'\" \t\n]+"
 :ignore-case t
 :doc-spec '(("(ansicl)Symbol Index" nil nil nil)))