emacs - 如何同步运行magit

Question

(let ((default-directory "/home/vision/"))
  (magit-pull)
  (magit-fetch "upstream")
  (magit-merge "upstream/master")
  (magit-push))

我得到:

Running git fetch upstream
Git is already running

如何等待获取完成？

Answer 1

Magit 旨在作为 git 的交互式前端，所以像 magit-fetch 这样的东西并不是真的要从你的代码中运行......但是如果你真的坚持，快速浏览一下代码向您展示了 magit-process 是一个变量，它在进程运行时保存它，并在它完成时被清除。因此，您可以将它与等待直到发生的循环一起使用:

(progn
  (magit-fetch "upstream")
  (while magit-process (sleep-for 0.25))
  (magit-fetch "upstream"))

但这确实插入了它——例如，当获取失败时会发生什么？

顺便说一句，您可以做的另一件事是查看源代码，它是 magit-fetch 案例中的单行函数:

(apply 'magit-run-git-async "fetch" remote magit-custom-options)

并编写使用非异步版本的代码:

(progn
  (apply 'magit-run-git "fetch" "upstream" magit-custom-options)
  (apply 'magit-run-git "fetch" "upstream" magit-custom-options))

(并且您可以建议一个补丁来添加一个可选的标志参数，但这对于交互式工具来说似乎是一个不确定的功能......)