 
 ;;;###autoload
 (defun +format/buffer ()
-  "TODO"
+  "Format the source code in the current buffer."
   (interactive)
-  (+format|buffer))
+  (+format-buffer))
 
 ;;;###autoload
 (defun +format/region (beg end)


;;;###autoload
(defun +format-buffer ()
  "Auto-format the source code in the current buffer."
  (interactive)
  (require 'format-all)
  (cl-destructuring-bind (formatter mode-result) (format-all-probe)
    (unless formatter
      (error "Don't know how to format %S code" major-mode))
    (let ((f-function (gethash formatter format-all-format-table))
          (executable (format-all-formatter-executable formatter)))
      (cl-destructuring-bind (output errput first-diff)
          (funcall f-function executable mode-result)
        (prog1 (cl-case output
                 ((nil) 'error)
                 ((t) 'noop)
                 (t (erase-buffer)
                    (insert output)
                    (list output errput first-diff)))
          (with-current-buffer (get-buffer-create "*format-all-errors*")
            (erase-buffer)
            (unless (= 0 (length errput))
              (insert errput)
              (display-buffer (current-buffer)))))))))


;;

  (add-hook 'before-save-hook #'+format|buffer nil t))

;;;###autoload
(defalias '+format|buffer #'+format-buffer)

