Comment puis-je répondre à une invite de mini-tampons d'elisp?

Je me retrouve parfois à utiliser des fonctions interactives à l'intérieur d'une fonction que j'écris pour mon propre usage. Si une fonction demande des informations (par exemple, "Fichier de sortie: ~ /"), existe-t-il une manière générale et simple d'ajouter du texte au mini-tampon, puis d'appuyer sur Entrée pour que l'utilisateur n'ait pas à le faire?

Par exemple, supposons que je souhaite exécuter à l' org-latex-export-to-pdfintérieur d'une fonction mais je ne veux pas que l'utilisateur doive spécifier un nom de fichier. Courir (org-latex-export-to-pdf)déplacera le point vers le mini-tampon, mais mettre quelque chose comme (insert "filename.tex")sur la ligne suivante ne semble pas fonctionner.

Problème intéressant. On dirait que l'éditeur s'exécute à post-command-hookchaque fois qu'il entre dans une nouvelle boucle de commande, c'est-à-dire a recursive-edit. Mais nous pouvons commencer par minibuffer-setup-hook, qui exécute une fonction après avoir entré le mini-tampon. Bien que cela permette l'insertion d'une entrée, il est trop tôt pour quitter le mini-tampon, car la capture n'a pas encore été configurée.

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

C'est là que nous devons encapsuler les `` arguments '' dans notre propre `` boucle de commande '', qui est exécutée chaque fois que nous entrons dans a recursive-edit, auquel cas il affiche un argument et lève un niveau, via 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

J'ai écrit une macro pour cela appelé with-simulated-input, que vous pouvez obtenir ici . Il vous permet de fournir des entrées arbitraires ainsi que d'exécuter des formulaires lisp arbitraires afin de simuler l'interaction de l'utilisateur.

Par exemple:

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

retournerait "hello world", avec le "bonjour" inséré par la première chaîne, le "monde" inséré via le code lisp, et enfin "RET" pour terminer l'entrée.

Il est livré avec une suite de tests que vous pouvez consulter pour plus d'exemples d'utilisation.

Il semble que l'utilisation de run-with-timeravec insertfera le travail.

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

La commande, insertplacée après, arrive trop rapidement. Il essaie d'insérer la chaîne avant qu'il n'y ait un endroit pour l'insérer.