Format JSON script aligned with colon

json-reformat-region-align-colon.el

(defun json-reformat-region-align-colon (beg end)
  (interactive "r")
  (save-restriction
	(narrow-to-region beg end)
	(goto-char (point-min))
	(while (search-forward "," nil t)
	  (insert "\n")
	  (let ((col-prev (progn (forward-line -1)
				 (end-of-line)
				 (search-backward ":")
				 (current-column)))
		(col (progn (forward-line 1)
			    (search-forward ":")
			    (1- (current-column)))))
		(forward-line 0)
		(insert (format (concat "% " (number-to-string (- col-prev col)) "s") ""))))))