Run cljr-clean-ns on every file in project

clean-everything.el

;;; -*- lexical-binding: t; -*-

(defun cam/clean-file (file &optional callback)
  (save-current-buffer
    (find-file file)
    (save-buffer)
    (condition-case err
        (cider-load-buffer
         (current-buffer)
         (cider-load-file-handler
          nil
          (lambda (buffer)
            (with-current-buffer buffer
              (condition-case err
                  (progn
                    (cljr-clean-ns)
                    (save-buffer))
                (error
                 (warn "Error cleaning namespace for %s: %s" file err))))
            (message "CLEANED %s" file)
            (kill-buffer buffer)
            (when callback
              (funcall callback)))))
      (error
       (warn "Error loading buffer for %s: %s" file err)
       (kill-buffer buffer)
       (when callback
         (funcall callback))))))

(defun cam/clean-files (files &optional count)
  (when files
    (cam/clean-file
     (car files)
     (lambda ()
       (setq count (1+ (or count 0)))
       (message "Cleaned %d files" count)
       (cam/clean-files (cdr files) count)))))

(let ((files (cam/clean-files (split-string (shell-command-to-string "find src test enterprise modules backend -name '*.clj'") "\n"))))
  (cam/clean-files files))

When you need to run cljr-clean-ns on 800+ source files in programmatically e.g. for metabase/metabase#14281