Closeup closing parens in Clojure files - put in starter-kit-defuns.el if using the emacs starter kit

emacs clojure formatter

;; 
;; Author: Malcolm Sparks
(defun closeup-parens ()
  (interactive)
  (save-excursion
    (replace-regexp "[ \t\n]+)" ")" nil (point-min) (point-max))
    (replace-regexp "([ \t\n]+" "(" nil (point-min) (point-max))
    (replace-regexp "[ \t\n]+}" "}" nil (point-min) (point-max))
    (replace-regexp "[ \t\n]+]" "]" nil (point-min) (point-max))
    ))

(defun cleanup-buffer ()
  "Perform a bunch of operations on the whitespace content of a buffer."
  (interactive)
  (indent-buffer)
  (untabify-buffer)
  (closeup-parens)
  (delete-trailing-whitespace))