;; This presumes you have a "solr" subdir in your
;; <project>/resources, and it looks something like:

;; resources/solr/
;; resources/solr/conf
;; resources/solr/conf/admin-extra.html
;; resources/solr/conf/elevate.xml
;; resources/solr/conf/mapping-FoldToASCII.txt
;; resources/solr/conf/mapping-ISOLatin1Accent.txt
;; resources/solr/conf/protwords.txt
;; resources/solr/conf/schema.xml
;; resources/solr/conf/scripts.conf
;; resources/solr/conf/solrconfig.xml
;; resources/solr/conf/spellings.txt
;; resources/solr/conf/stopwords.txt
;; resources/solr/conf/synonyms.txt
;; resources/solr/conf/velocity
;; resources/solr/conf/velocity/browse.vm
;; resources/solr/conf/velocity/facets.vm
;; resources/solr/conf/velocity/footer.vm
;; resources/solr/conf/velocity/header.vm
;; resources/solr/conf/velocity/hit.vm
;; resources/solr/conf/velocity/jquery.autocomplete.css
;; resources/solr/conf/velocity/jquery.autocomplete.js
;; resources/solr/conf/velocity/layout.vm
;; resources/solr/conf/velocity/main.css
;; resources/solr/conf/velocity/suggest.vm
;; resources/solr/conf/velocity/VM_global_library.vm
;; resources/solr/conf/xslt
;; resources/solr/conf/xslt/example.xsl
;; resources/solr/conf/xslt/example_atom.xsl
;; resources/solr/conf/xslt/example_rss.xsl
;; resources/solr/conf/xslt/luke.xsl
;; resources/solr/data
;; resources/solr/data/my_core
;; ... etc ...
;; resources/solr/lib
;; resources/solr/solr.xml

;; If so, using lein-ring, a "lein ring uberwar" will create a warfile
;; compatible with the code below:

(def default-embedded-config
     {:solr-config "solr.xml"})

(defn create-solr-server [config]
  (let [config (merge default-embedded-config config)
	{:keys [dir solr-config core]} config
        loader (SolrResourceLoader. dir)
        container (CoreContainer.)
        descriptor (CoreDescriptor. container core dir)
        _ (. descriptor setDataDir (str dir "/data/" core))
        c (. container create descriptor)]
    (. container register core c false)
    (EmbeddedSolrServer. container core)))

(create-solr-server
 {:dir (str (. (:servlet-context request)
               getRealPath "/")
            "/solr")
  :core "my_core"})