init.el

(defun align-regexp-lefty ()
  "After using align-regexp, this will move spaces to the left."
  (interactive)
  (let (pos1 pos2)
    (if (region-active-p)
        ((setq pos1 (region-beginning) pos2 (region-end))
         (save-restriction
           (narrow-to-region pos1 pos2)
           (goto-char (point-min))
           (while (re-search-forward "\(\w+\)\ \(\ *\)" nil t)
             (replace-match "\2\1")))))))