奔跑“lein swank” （调用 clojure 服务器）使用 elisp

Question

正如此处所询问和回答的那样。我可以使用“lein swank”在 Aquamacs 上运行 clojure。

我需要在运行 slime/clojure 之前自动运行 'lein swank'。

• 问：有没有办法自动做到这一点？我的意思是，当调用 slime/clojure (Mx slime-connect) 时，如何自动运行命令“lein swank”。
• 问：如果我必须想出 elisp 代码来运行“lein swank”，我该怎么做？

添加

基于 Jürgen Hötzel 的回答，我修改了 elisp，如下所示。

(defun lein-swank ()
(interactive)
(let ((default-directory (locate-dominating-file default-directory "/Users/smcho/bin/leiningen")))
  (when (not default-directory)
    (error "Not in a Leiningen project."))
  ;; you can customize slime-port using .dir-locals.el
  (let ((proc (start-process "lein-swank" nil "/Users/smcho/bin/leiningen/bin/lein" "swank" (number-to-string 4005))))
    (when proc
    (process-put proc :output nil)
    (set-process-sentinel proc (lambda (proc event)
                     (message "%s%s: `%S'" 
                          (process-get proc :output)
                          proc (replace-regexp-in-string "\n" "" event))))
    (set-process-filter proc
                (lambda (proc output)
                  ;; record last line of output until connected (possible error message)
                  (process-put proc :output (concat (process-get proc :output) output))
                  (when (string-match "Connection opened on" output)
                (slime-connect "localhost" 4005)
                ;; no need to further process output
                (set-process-filter proc nil))))
    (message "Starting swank server...")))))

但是，我收到了这个错误。

No project.clj found in this directory. lein-swank: `"exited abnormally with code 1"'.

我发现我应该将 pwd 更改为 ~/bin/leiningen 才能运行“lein swank”。仅将 lein 二进制文件放入 PATH 字符串中并不能使其运行。

Answer 1

我为这项工作提出了要点：

http://gist.github.com/419364

只需使用交互式命令“Mx lein-swank”，它将在当前目录中生成命令并连接到它。

我对 lein-swank 进行了一些改进：

1. lein-swank-command 现在可以自定义：您可以使用 Leiningen，如果它的 bin目录不是您的 PATH 环境的一部分。

2. 添加了目录作为交互参数：如果在当前目录的主要位置找不到project.clj，您可以指定一个位置。