我想在发布org项目之后直接push到Github,push的脚本放在deploy.sh中。我写了如下函数:
(defun my/org-publish-project (proj)
(interactive "sEnter the project name: ")
(progn
(org-publish proj nil nil)
(shell-command "~/iCloud/blog_site/deploy.sh")
(message "%s deployed successfully!" proj)))
按理说在执行完 org publish
后应执行 shell-command
然后输出message,但是org-publish后就没有再执行下面的代码了。我猜是emacs进程的问题,org-publish会阻塞进程,导致函数不能执行完全。还是什么其他的原因,有没有解决方法?