Làm thế nào để buộc một phiên org-babel để thiết lập lại hoặc khởi tạo?

Nếu tôi chạy các khối vỏ babel sau đây

#+BEGIN_SRC sh :session one :results output
  ssh staging
#+END_SRC

#+BEGIN_SRC sh :session one :results output
  hostname
#+END_SRC

Org tạo một bộ đệm shell được gọi one, chạy ssh stagingvà sau đó sau khi kết nối, thực hiện hostnametrên dàn. Tuy nhiên, nếu tôi điều chỉnh lệnh ssh và chạy lại, nó sẽ cố chạy nó từ trong phiên một, từ máy chủ dàn. Nếu tôi đóng bộ đệm, onenó sẽ thiết lập lại phiên như lần sau khi bất kỳ lệnh nào được chạy với tên phiên đó, nó sẽ tạo lại nó. Điều tôi chưa thể tìm thấy là một phương pháp để buộc một khối babel cụ thể luôn luôn khởi tạo một phiên mới.

Tôi biết rằng đối với một số ngôn ngữ (đặc biệt là elisp) thì điều này là không thể. Tôi cho rằng tôi có thể đặt trước phiên với một khối elisp có chứa (kill-buffer "one"), nhưng thay vào đó, đây là một đối số tiêu đề nếu có thể. Tôi cũng biết rằng với ví dụ này, tôi chỉ có thể kết hợp cả hai thành một khối duy nhất mà không có phiên nào, nhưng tôi quan tâm đến các chuỗi phức tạp hơn.

Có một :prologuelệnh hoặc một số đối số đặc biệt nào khác để :sessionbuộc các khối đó khởi tạo một lớp vỏ mới trên mỗi lệnh gọi không?

Thử cái này

Buộc phiên org-babel để đặt lại hoặc khởi tạo bằng cách sử dụng câu lệnh có điều kiện elisp để tự động đặt giá trị của tiêu đề : phiên trên khối mã đầu tiên.

ví dụ :session (if (get-buffer "one") (if (kill-buffer "one") (print "one") (print "one")) (print "one"))

Trong đoạn mã trên, get-đệm kiểm tra chức năng nếu đệm tên là một tồn tại. Nếu đúng, các kill-buffer chức năng tiêu diệt các một bộ đệm sau đó trả về một giá trị thoặc nilđược truyền cho iftuyên bố. Trong ví dụ cụ thể này, ifcâu lệnh lồng nhau sẽ luôn trả về giá trị của một . Xin lưu ý, tôi vẫn đang học elisp.

Dưới đây là mã ví dụ cập nhật:

#+BEGIN_SRC sh :session (if (get-buffer "one") (if (kill-buffer "one") (print "one") (print "one")) (print "one")) :results output
  ssh staging
#+END_SRC

#+BEGIN_SRC sh :session one :results output
  hostname
#+END_SRC

Mỗi khi khối mã đầu tiên được thực thi, emacs sẽ yêu cầu hủy một bộ đệm , do đó bạn có thể đặt lại phiên khi bạn muốn.

BIÊN TẬP

Rất tiếc một phần mà bạn luôn muốn bộ đệm bị giết, tức là không có dấu nhắc . Thực hiện khối này trước để tạm thời tắt nhắc nhở để giết bộ đệm.

#+BEGIN_SRC elisp
  (setq kill-buffer-query-functions
    (remq 'process-kill-buffer-query-function
           kill-buffer-query-functions))
#+END_SRC

Hy vọng rằng đã giúp!

Lưu ý: Mã này đã được kiểm tra bằng các phiên bản sau của emacs và chế độ org.

GNU Emacs 24.4.1 (x86_64-apple-darwin14.0.0, NS apple-appkit-1343.14)
Org-mode version 8.2.10 (8.2.10-29-g89a0ac-elpa)

Để kết luận, tôi đã tìm thấy cảm hứng kỹ thuật cho câu trả lời này trên trang web org-scraps và mã ví dụ kill-buffer này trên stackoverflow.

Lấy cảm hứng từ @Melioratus.

Hiện tại, org-babel cung cấp một hook được gọi là org-babel-after-execute-hook. Tôi đã mở rộng các đối số được hỗ trợ của khối src org-babel bằng cách sử dụng nó:

(Tôi đang sử dụng org-babel cho thuốc tiên. Nếu bạn muốn hỗ trợ các ngôn ngữ khác, condhãy tự mình mở rộng .)

(add-hook 'org-babel-after-execute-hook 'semacs/ob-args-ext-session-reset)

(defun semacs/ob-args-ext-session-reset()
  (let* ((src-block-info (org-babel-get-src-block-info 'light))
         (language (nth 0 src-block-info))
         (arguments (nth 2 src-block-info))
         (should-reset (member '(:session-reset . "yes") arguments))
         (session (cdr (assoc :session arguments)))
         (session-process
          (cond ((equal language "elixir") (format "*elixir-%s*" session))
                (t nil))))
    (if (and should-reset (get-process session-process))
        (kill-process session-process))))

Sau khi đánh giá mã trên, bạn có thể viết khối src như thế này:

#+begin_src elixir :session-reset yes
  IO.puts("HELLO WORLD")
#+end_src

Sau khi đánh giá khối src, org-babel sẽ dọn sạch phiên tương ứng.