Is there a command for tidying trailing parentheses?

Question

When editing lisp code, I often end up with trailing parentheses scattered around (assuming | is point):

(defun example-function ()
  (let ((x (+ 1 1)))
    (when x
      (message x)|
      )
    ))

Are there any convenience commands for fixing this? Either in core Emacs, paredit/smartparens, or other packages?

I know I can press ) and paredit-close-round will fix the next parenthesis, but I want to fix all of them in one command.

Answer 1

i (lispy-tab) from lispy does just that. Below is a screenshot of an ERT test visualization (using xv (lispy-view-test)).