emacs - 用elisp运行'lein swank'（调用clojure服务器）

按照要求和回答here。我可以用'lein swank'在Aquamacs上运行clojure。

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

问：有没有办法自动解决这个问题？我的意思是当调用slime / clojure（M-x slime-connect）时，如何自动运行命令'lein swank'。
问：如果我必须提出运行'lein swank'的elisp代码，我该怎么做？

加

根据JürgenHö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字符串中就不会使它运行。

用elisp运行'lein swank'（调用clojure服务器）

加

1 个答案: