Làm thế nào tôi có thể trả lời một dấu nhắc nhỏ từ elisp?

Thỉnh thoảng tôi thấy mình sử dụng các chức năng tương tác bên trong một chức năng mà tôi đang viết cho mục đích sử dụng của riêng tôi. Nếu một hàm yêu cầu một số thông tin (ví dụ: "Tệp xuất: ~ /") thì có một cách chung chung để thêm văn bản vào bộ thu nhỏ và sau đó nhấn enter để người dùng không phải làm như vậy không?

Ví dụ, giả sử rằng tôi muốn chạy org-latex-export-to-pdfbên trong hàm nhưng tôi không muốn người dùng phải chỉ định tên tệp. Chạy (org-latex-export-to-pdf)sẽ di chuyển điểm đến xe buýt nhỏ, nhưng đặt một cái gì đó như (insert "filename.tex")trên dòng tiếp theo dường như không hoạt động.

Vấn đề thú vị. Có vẻ như trình soạn thảo chạy post-command-hookmỗi khi nó vào một vòng lệnh mới, tức là a recursive-edit. Nhưng chúng ta có thể bắt đầu với minibuffer-setup-hook, nó thực thi một chức năng sau khi vào xe buýt nhỏ. Mặc dù điều này cho phép chèn đầu vào, nhưng quá sớm để thoát khỏi bộ thu nhỏ, bởi vì sản phẩm khai thác chưa được thiết lập.

(defmacro with-minibuffer-input (form &rest inputs)
  (declare (indent 1))
  `(minibuffer-with-setup-hook
       (lambda ()
         (minibuffer-input-provider ',inputs))
     ,form))

Đó là chúng ta cần phải bọc 'đối số' trong 'vòng lệnh' của chính chúng ta, được thực thi mỗi khi chúng ta nhập vào recursive-edit, tại đó nó sẽ bật một đối số và ném lên một cấp, thông qua exit-minibuffer.

;; -*- lexical-binding: t -*-
(defun minibuffer-input-provider (inputs)
  (let ((hook (make-symbol "hook")))
    (fset hook (lambda ()
                 (remove-hook 'post-command-hook hook)
                 (when inputs
                   (when (= 0 (minibuffer-depth))
                     (error "Too many inputs"))
                   (when (cdr inputs)
                     (add-hook 'post-command-hook hook))
                   (insert (pop inputs))
                   (exit-minibuffer))))
    (add-hook 'post-command-hook hook)))


(with-minibuffer-input (call-interactively 'find-file)
  "/")

(with-minibuffer-input (call-interactively 'occur)
  "\\(foo\\)\\(bar\\)" "\\1");;C-u C-x C-e

;;foobar

(with-minibuffer-input (call-interactively 'replace-string)
  "foo" "bar")

;; foo

Tôi đã viết một macro cho cái này được gọi with-simulated-input, mà bạn có thể nhận được ở đây . Nó cho phép bạn cung cấp đầu vào tùy ý cũng như thực hiện các hình thức lisp tùy ý để mô phỏng tương tác của người dùng.

Ví dụ:

(with-simulated-input '("hello SPC" (insert "world") "RET")
  (read-string "Enter greeting: "))

sẽ trở lại "hello world", với "xin chào" được chèn bởi chuỗi đầu tiên, "thế giới" được chèn thông qua mã lisp và cuối cùng là "RET" để hoàn tất việc nhập.

Nó đi kèm với một bộ thử nghiệm mà bạn có thể xem xét để biết thêm các ví dụ sử dụng.

Có vẻ như sử dụng run-with-timervới insertsẽ hoàn thành công việc.

(run-with-timer .2 nil 'insert "filename.tex")
(run-with-timer .3 nil 'execute-kbd-macro (kbd "RET"))
(org-latex-export-to-pdf)

Lệnh insertkhi được đặt sau đó sẽ xuất hiện quá nhanh. Nó cố gắng chèn chuỗi trước khi có một nơi để chèn nó.