cider-with-profile.el

(defun cider-with-profile (profile)
  "Starts up a cider repl using jack-in with the specific lein profile
   selected."
  (interactive "sProfile: \ns")
  (let* ((profile-str (symbol-name profile))
         (profile-str (replace-regexp-in-string ":\\(.*\\)$" "\\1" profile-str))
         (lein-params (concat "with-profile +" profile-str " repl :headless")))
    (setq cider-lein-parameters lein-params)
    (cider-jack-in)))