Emacs org-mode - 如何在不挂起 Emacs 的情况下使用后台进程运行 shell 脚本

Question

将此添加到 emacs .org 文件中:

#+BEGIN_SRC sh :results verbatim
  #!/bin/bash

  exec 2>&1  # <-- Because Emacs treats stderr output as an error and doesn't show it in the RESULT

  echo before 

  # This nohup should just run in the background and continue to exit
  # the script, but emacs hangs and waits on it anyhow:
  nohup sleep 10 &

  # Failed attempts at working around the hang are:
  #   setsid nohup sleep 10 &
  #   nohup sleep 10 </dev/null & 

  # Do see /tmp/ps.out being updated here so the hang is in Emacs:
  ps -ef --forest --cols=10000 >/tmp/ps.out

  echo after 

  exit 0
#+END_SRC

将点(光标)移动到 BEGIN_SRC block 中并使用 C-c C-c (绑定(bind)到 org-ctrl-c-ctrl-c )对其进行评估。

观察会发生什么。 Emacs 坐在那里挂起。我想要它做的是运行该命令( sleep 10 在这个简单的例子中)并继续。

不知何故，Emacs 试图等待脚本创建并卡在那里的所有子进程。我必须按 C-g 才能重新获得控制权。

用例是我想调用一些 GUI 应用程序(xterm 等)并让它在后台运行，但立即将控制权交还给 Emacs。

我怎样才能做到这一点？请参阅上面我失败的尝试。

编辑 :我把这个问题隔离到了最低限度的 Emacs Lisp 代码中。在您的 *scratch* 中评估以下内容(Lisp Interactive)缓冲区并看到它挂起 3 秒:

(let ((shell-file-name "/bin/bash")
      (input-file "/tmp/tmpscript.sh")
      (error-file "/tmp/tmperror")
      (shell-command-switch "-c")
      (command "sh")
      exit-status)
  (with-temp-file input-file
    (insert "#!/bin/bash") (newline)
    (insert "nohup sleep 3 &") (newline)
    (insert "exit 0") (newline))
  (setq exit-status
        (apply 'call-process "/bin/bash"
                      input-file
                      (list t error-file)
                      nil
                      (list "-c" "sh"))))

更改 sleep 3类似于 sleep 3000它会挂起 3000 秒，直到你用 C-g 杀死它。

我的 emacs 版本报告:

GNU Emacs 24.4.50.1 (x86_64-unknown-linux-gnu, GTK+ Version 3.4.2) of 2014-09-14 on hungover

Answer 1

我用 ob-async从 MELPA 启用异步执行。

.emacs:

(require 'ob-async)

.org:

#+BEGIN_SRC sh :async
sleep 10 && echo 'Done!'
#+END_SRC