1

任何人都可以帮我完成第一步和第二步之间 start-process步骤 start-process。显示 pdf 文件的第二个 应该运行第一个完成而没有错误。可能可以发现某种类型的成功退出代码,但在这方面我需要一些帮助。start-processonly if start-process

我愿意接受有关如何最好地确定第一个 start-process完成是否没有错误的建议。一种方法是查看output缓冲区以确定最后一行是否等于“处理process完成”。即使没有错误,制作 *.pdf 文件也可能需要几秒钟的时间,如果开始得太早,则第二个文件会失败。 start-process静坐不是最好的选择,因为如果第一个没有正确完成,第二个 start-process应该被中止。生成缓冲区也需要几秒钟,因此检查缓冲区中的最后一行也需要等到第一行 start-processoutput start-process完成。但是,发现成功的退出代码(如果存在这种情况)比在输出缓冲区中搜索字符串 equals 更好。. . .

仅供参考: .latexmkrc$pdflatex代码行将 *.pdf 的副本放回工作目录, .latexmkrc$out_dir代码行将所有辅助文件放入/tmp文件夹。这是必需的,因为 OSX 的 Tex-Live 不支持$aux_dir. 结果是一个干净的工作目录,其中仅包含 *.tex 和 *.pdf 文件。

(defun latexmk ()
  ".latexmkrc should contain the following entries -- without the backslashes:
  $pdflatex .= ' && (cp \"%D\" \"%R.pdf\")';
  $force_mode = 1;
  $pdf_mode = 1;
  $out_dir = '/tmp';"
(interactive)
  (let* (
    (process (file-name-nondirectory buffer-file-name))
    (output (concat "*" (file-name-nondirectory buffer-file-name) "*") )
    (latexmk "/usr/local/texlive/2012/texmf-dist/scripts/latexmk/latexmk.pl")
    (arg-1 "-interaction=nonstopmode")
    (arg-2 "-file-line-error")
    (arg-3 "-synctex=1")
    (arg-4 "-r")
    (arg-5 "/Users/HOME/.0.data/.0.emacs/.latexmkrc")
    (pdf-file (concat "/tmp/" (car (split-string
      (file-name-nondirectory buffer-file-name) "\\.")) ".pdf"))
    (line (format "%d" (line-number-at-pos)))
    (skim "/Applications/Skim.app/Contents/SharedSupport/displayline") )
  (if (buffer-modified-p)
    (save-buffer))
  (start-process process output latexmk arg-1 arg-2 arg-3 arg-4 arg-5 buffer-file-name)
  ;;  (if (last line of output buffer is "Process 'process' finished")
      (start-process "displayline" nil skim "-b" line pdf-file buffer-file-name)
    (switch-to-buffer output)
  ;;  )
    ))

编辑:基于 Francesco 在以下答案中概述的概念的工作解决方案可在相关线程中找到: https ://tex.stackexchange.com/a/156617/26911

4

1 回答 1

6

这个答案提供了一种链接异步命令的方法,使用哨兵在运行以下命令之前等待每个命令终止。

您需要调整哨兵以使用process-exit-status. 对您来说,一个最小的工作示例应该是:

(defun run-latexmk ()
  "Asynchronously run `latexmk' and attach a sentinel to it"
  (let ((process (start-process "latexmk" "*output*"
                                "/bin/sh" "-c" "echo KO; false")))
    (set-process-sentinel process 'latexmk-sentinel)))

(defun latexmk-sentinel (p e)
  "Display the pdf if `latexmk' was successful"
  (when (= 0 (process-exit-status p))
    (start-process "displaypdf" "*output*"
                   "/bin/echo" "DISPLAY PDF")))

;; Example use
(with-current-buffer (get-buffer-create "*output*") (erase-buffer))
(run-latexmk)
于 2013-09-09T21:17:56.563 回答