nrepl-jack-in çağrıldığında önceki nrepl oturumlarını öldürmek?

Question

Şu anda, öncelikle Clojurescript uygulamalarıyla konuşmak için nrepl kullanıyorum. Nrepl'i emacs içinden kullanmayı seviyorum. Nrepl'i M-x nrepl-jack-in yazarak başlatıyorum.

Maalesef nrepl oturumum genellikle tamamen kapanıyor. Bu olduğunda, nrepl ile ilgili 3 arabayı öldürürüm. Bunu kapatmak istiyorsanız, bana sor *nrepl-server*

*nrepl-server*

1. *nrepl*
2. *nrepl-connection*
3. da aktif bir süreç vardır ve evet diyorum: Bu tamponlar bulunmaktadır.

   Yeniden M-x nrepl-jack-in yazdım.

   Bu bir acıdır.

   nrepl-jack-in'u aşırı yüklemek istiyorum, böylece bu 3 arabelleklerden herhangi birinin var olup olmadığını otomatik olarak kontrol eder. Bunlardan herhangi biri mevcutsa, bu tamponları ve bu ortaklarla ilişkili tüm aktif işlemleri öldürecektir. Bunu yaptıktan sonra, aşırı yüklenmiş nrepl-jack-in her zamanki gibi devam edecektir. Bunu istiyorum çünkü o zaman, nrepl'in kendisini tekrar asmaya karar verdiğini tespit ettiğimde, sadece M-X nrepl-jack-in yazıp ne yaptığımı yeniden başlatabilirim.

Answer 1

Bu işi olmalıdır:

(defun my-nrepl-jack-in() 
    (interactive) 
    (dolist (buffer (buffer-list)) 
    (when (string-prefix-p "*nrepl" (buffer-name buffer)) 
     (kill-buffer buffer))) 
    (nrepl-jack-in nil)) 

Answer 2

seçilen cevabı benim için oldukça işe vermedi ... nrepl süreci sentinel yeniden başlatılmasını engelleyen bir hata attı. Bunun biraz oynadım ve (aynı zamanda ayrı bir kill-nrepl fonksiyonunu veren)

;; Disable prompt on killing buffer with a process 
(setq kill-buffer-query-functions 
     (remq 'process-kill-buffer-query-function 
      kill-buffer-query-functions)) 

(defun nrepl-kill() 
    "Kill all nrepl buffers and processes" 
    (interactive) 
    (when (get-process "nrepl-server") 
    (set-process-sentinel (get-process "nrepl-server") 
          (lambda (proc evt) t))) 
    (dolist (buffer (buffer-list)) 
    (when (string-prefix-p "*nrepl" (buffer-name buffer)) 
     (kill-buffer buffer)))) 

(defun nrepl-me() 
    (interactive) 
    (nrepl-kill) 
    (nrepl-jack-in nil))