init.el

(defun align-regexp-lefty(beg end)
  "After using align-regexp, this will move spaces to the left."
  (interactive "*r")
  (save-restriction
    (narrow-to-region beg end)
    (save-excursion
      (goto-char (point-min))
      (while (search-forward-regexp "\(\w+\)\ \(\ *\)" nil t)
        (replace-match "\2\1" nil nil)))))