Working on more emacs stuff

home/.emacs.d/init.el

@@ -0,0 +1,34 @@
+;; Set enironment information
+(setq user-full-name "Drew Short")
+(setq user-email-address "warrick@sothr.com")
+
+;; Load common lisp
+(require 'cl)
+
+;; Package management
+(load "package")
+(package-initialize)
+(defvar sothr/packages '(auto-complete
+			 gist
+			 markdown-mode
+			 yaml-mode)
+  "Default packages")
+
+;; Repositories
+(add-to-list 'package-archives
+	     '("melpa" . "http://melpa.milkbox.net/packages/") t)
+
+(setq package-archive-enable-alist '(("melpa" deft magit)))
+
+;; Make sure default packages are installed
+(defun sothr/packages-installed-p ()
+  (loop for pkg in sothr/packages
+	when (not (package-installed-p pkg)) do (return nil)
+	finally (return t)))
+
+(unless (sothr/packages-installed-p)
+  (message "%s" "Refreshing package database...")
+  (package-refresh-contents)
+  (dolist (pkg sothr/packages)
+    (when (not (package-installed-p pkg))
+      (package-install pkg))))