--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/align-with-spaces.el	Sat May 14 14:47:51 2011 -0500
@@ -0,0 +1,16 @@
+;; ~/.emacs.d/hoersten-align-with-spaces.el
+;; Luke Hoersten <[email protected]>
+
+(global-set-key (kbd "C-c a") 'align-with-spaces)
+(defun align-with-spaces (beg end pattern)
+  "Align selected using only spaces for whitespace."
+  (interactive "r\nsAlign by: ")
+  (let ((indent-tabs-mode nil))
+    (align-string beg end pattern 1)
+    (align-entire beg end)
+    (untabify beg end)
+    (indent-region beg end)
+    (whitespace-cleanup-region beg end)))
+
+(message "Loading align-with-spaces...done")
+(provide 'align-with-spaces)