Skip to content

Instantly share code, notes, and snippets.

@jurrchen

jurrchen/Startup.clj

Created August 13, 2010 21:38
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jurrchen/523583 to your computer and use it in GitHub Desktop.
Save jurrchen/523583 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Startup.clj
(defn dir []
(System.IO.Directory/GetCurrentDirectory)
)
(doseq [assembly
(map #(reduce (fn [res cur] (str res "." cur))
(butlast (.Split (last (.Split % (char "\\"))) (char "."))))
(System.IO.Directory/GetFiles (dir) "Adc.*.dll"))]
(System.Console/WriteLine (str "Loaded " assembly "..."))
(System.Reflection.Assembly/LoadWithPartialName assembly))
(clojure.main/repl)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment