                    (fn [prefix# ns#] []))
            (println "Unable to initialize completions."))))))
 
-(defn default-init-code []
+(defn default-init-code [{:keys [custom-help] :as options}]
   `(do
      ~@prelude
 

(defn construct-init-code
  [{:keys [skip-default-init custom-init custom-eval custom-help] :as options}]
  `(do
     ~(when-not skip-default-init (default-init-code))
     ~(if custom-help
        custom-help
        '(user/help))
     ~(when custom-eval custom-eval)
     ~(when custom-init custom-init)
    nil))


     ~(export-definition 'reply.initialization/intern-with-meta)

     ~(if custom-help
        `(defn ~'help [] ~custom-help)
        (export-definition 'reply.initialization/help))

     (~'intern-with-meta '~'user '~'help ~'#'help)

     ~(export-definition 'reply.initialization/unresolve)
