如何自动启动码头/ appengine-magic和swank?

时间:2011-03-15 10:22:10

标签: google-app-engine clojure leiningen swank

通过我的Clojure / appengine-magic项目,我目前正在开始这样的事情:

lein repl

(doto 'tlog.core require in-ns)
(compile 'tlog.core)
(ae/start tlog-app)
(require 'swank.swank) (swank.swank/start-repl 4005)

tlog.core有:

(:require [appengine-magic.core :as ae])

或者,我可以使用,而不是ae / start,我认为:

(use 'ring.adapter.jetty)
(run-jetty (var tlog.core/tlog-app-handler) {:port 8080})

我想把所有这些都放在一个命令之后。

由于命名空间/路径问题,所有尝试通过与-main一起使用的lein run或编写leiningen插件来处理此错误。

那怎么办呢?

1 个答案:

答案 0 :(得分:2)

感谢那些不喜欢在这里回答的人给出的例子,我现在有了一个很好的解决方案。

除了我的project.clj:

:repl-init-script "src/tlog/init_repl.clj"

将在运行lein repl

时触发

INIT-repl.clj:

(ns user
  "Init script for Leiningen REPL."
  (:require [appengine-magic.core :as ae])
  (:use [clojure.stacktrace]
        [clojure.contrib.repl-utils :only (show)]
        [tlog.core]))

(defn reload!
  "Force a reload of everything."
  []
  (require 'tlog.core :reload-all))

(compile 'tlog.core)
(ae/serve tlog-app)
(println "Interactive Jetty instance started. To force a reload: (reload!)")

(require 'swank.swank) (swank.swank/start-repl 4005)