ฉันจะตอบรับคำสั่ง minibuffer จาก elisp ได้อย่างไร

ฉันพบว่าตัวเองใช้ฟังก์ชั่นอินเทอร์แอคทีฟภายในฟังก์ชั่นที่ฉันเขียนเพื่อใช้งานเอง หากฟังก์ชั่นขอข้อมูลบางอย่าง (เช่น "ไฟล์ที่ส่งออก: ~ /") มีวิธีการเพิ่มข้อความทั่วไปใน minibuffer แล้วกด enter เพื่อให้ผู้ใช้ไม่ต้องทำเช่นนั้น?

ตัวอย่างเช่นสมมติว่าฉันต้องการเรียกใช้org-latex-export-to-pdfภายในฟังก์ชัน แต่ฉันไม่ต้องการให้ผู้ใช้ต้องระบุชื่อไฟล์ การวิ่ง(org-latex-export-to-pdf)จะย้ายจุดไปที่มินิบัสเกอร์ แต่การวางบางอย่าง(insert "filename.tex")ในบรรทัดถัดไปดูเหมือนจะไม่ทำงาน

ปัญหาที่น่าสนใจ ดูเหมือนว่าบรรณาธิการทำงานทุกครั้งที่มันเข้ามาใหม่คำสั่งห่วงเช่นpost-command-hook recursive-editแต่เราสามารถเริ่มต้นด้วยminibuffer-setup-hookการทำงานของฟังก์ชั่นหลังจากเข้าสู่ minibuffer ในขณะที่สิ่งนี้ช่วยให้การแทรกของอินพุตมันเร็วเกินไปที่จะออกจาก minibuffer เพราะจับยังไม่ได้ติดตั้ง

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

ที่ของคนเราต้องห่อ 'การขัดแย้งในตัวเอง 'ห่วงคำสั่ง' ของเราซึ่งได้รับการดำเนินการของทุกครั้งที่เราเข้าสู่จุดที่มันปรากฏหนึ่งอาร์กิวเมนต์และพ่นระดับหนึ่งขึ้นผ่านrecursive-editexit-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

ผมเขียนแมโครสำหรับการนี้เรียกว่าwith-simulated-inputซึ่งคุณจะได้รับที่นี่ ช่วยให้คุณสามารถป้อนข้อมูลโดยพลการรวมทั้งดำเนินการรูปแบบเสียงกระเพื่อมตามอำเภอใจเพื่อจำลองการโต้ตอบของผู้ใช้

ตัวอย่างเช่น:

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

จะกลับมา"hello world"พร้อมกับ "สวัสดี" แทรกโดยสตริงแรกที่ "โลก" แทรกผ่านรหัสเสียงกระเพื่อมและในที่สุดก็ "RET" เพื่อเสร็จสิ้นการป้อนข้อมูล

มันมาพร้อมกับชุดทดสอบที่คุณสามารถดูตัวอย่างการใช้งานเพิ่มเติม

ดูเหมือนว่าการใช้run-with-timerด้วยinsertจะทำให้งานเสร็จ

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

คำสั่งinsertเมื่อวางไว้หลังจากนั้นจะมาเร็วเกินไป มันพยายามที่จะแทรกสตริงก่อนที่จะมีสถานที่ที่จะใส่มัน