Re: Operate on each line in region

[Jacob Gerlach <jacobgerlach@gmail.com>]

Took some more tweaking, but I finally got this working. Comments or recommendations welcome. I was never able to figure out if align-regexp could do what I needed.

Figured I'd post the final function:

(defun my-justify-equals (start end)
  "Indents current region to justify equals signs.
   Indents lines with no equals sign to default tab    
   width"
  (interactive "r")
  (save-excursion
    (goto-char end)
    (goto-char (line-beginning-position))
    (let ((left-length 0))
      (save-excursion
				(while (>= (point) start)
					(if (re-search-forward "[ \t]*\\(.*\\)=" (line-end-position) t)
							(when (> (length (match-string-no-properties 1)) left-length)
								(setq left-length (length (match-string-no-properties 1)))))
					(forward-line -1)))
      (goto-char end)
			(goto-char (line-beginning-position))
      (while (>= (point) start)
				(if (re-search-forward "^[ \t]*\\(.*\\)=" (line-end-position) t)
						(indent-line-to (+ tab-width (- left-length (length (match-string-no-properties 1)))))
					(indent-line-to tab-width))
				(forward-line -1)))))