format clj on save cider/emacs

clj-format-on-save.el

;; it formats buffer and attempts to return to original position.
(defun cider-format-buffer-back () (interactive)
  (let (p)
    (setq p (point))
    (cider-format-buffer)
    (goto-char p))
  )

(defun add-clj-format-before-save () (interactive)
       (add-hook 'before-save-hook
                 'cider-format-buffer-back
                 t t))

(add-hook 'clojure-mode-hook
          'add-clj-format-before-save)