Wie kann ich eine Minibuffer-Eingabeaufforderung von elisp beantworten?

Gelegentlich verwende ich interaktive Funktionen innerhalb einer Funktion, die ich für meinen eigenen Gebrauch schreibe. Wenn eine Funktion nach Informationen fragt (z. B. "Ausgabedatei: ~ /"), gibt es eine allgemeine Möglichkeit, dem Minibuffer Text hinzuzufügen und dann die Eingabetaste zu drücken, damit der Benutzer dies nicht tun muss?

Angenommen, ich möchte org-latex-export-to-pdfinnerhalb einer Funktion ausgeführt werden, möchte aber nicht, dass der Benutzer einen Dateinamen angeben muss. Beim Laufen (org-latex-export-to-pdf)wird der Punkt in den Minibuffer verschoben, aber das Setzen (insert "filename.tex")in die nächste Zeile scheint nicht zu funktionieren.

Interessantes Problem. Es sieht so aus, als würde der Editor post-command-hookjedes Mal ausgeführt, wenn er in eine neue Befehlsschleife eintritt, dh a recursive-edit. Aber wir können damit beginnen minibuffer-setup-hook, dass eine Funktion nach Eingabe des Minibuffers ausgeführt wird. Dies ermöglicht zwar das Einfügen von Eingaben, es ist jedoch zu früh, um den Minibuffer zu verlassen, da der Fang noch nicht eingerichtet wurde.

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

Dort müssen wir die 'Argumente' in unsere eigene 'Befehlsschleife' einbinden, die jedes Mal ausgeführt wird, wenn wir eine eingeben recursive-edit. An diesem Punkt wird ein Argument eingeblendet und eine Ebene nach oben über geworfen 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

Ich habe dafür ein Makro geschrieben with-simulated-input, das Sie hier bekommen können . Sie können beliebige Eingaben vornehmen und beliebige Lisp-Formulare ausführen, um die Benutzerinteraktion zu simulieren.

Beispielsweise:

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

würde zurückkehren "hello world", wobei das "Hallo" durch die erste Zeichenfolge eingefügt wird, die "Welt" über den Lisp-Code eingefügt wird und schließlich "RET", um die Eingabe zu beenden.

Es wird mit einer Testsuite geliefert, in der Sie weitere Anwendungsbeispiele finden.

Es scheint, dass die Verwendung run-with-timermit insertden Job erledigt.

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

Der Befehl, insertder danach platziert wird, wird zu schnell angezeigt. Es wird versucht, die Zeichenfolge einzufügen, bevor ein Platz zum Einfügen vorhanden ist.