tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-latex-preview: Include running command in bufs 

* lisp/org-latex-preview.el (org-latex-preview--image-extract-async,
org-latex-preview--tex-compile-async): Add a comment at the start of the
process output buffers mentioning what the command being run is.
This commit is contained in:
TEC 2024-01-04 01:00:34 +08:00
parent 40d8b3acea
commit 7834e6a850
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/org-latex-preview.el
View File

@ -1687,6 +1687,13 @@ The path of the created LaTeX file is returned."
(user-error "No `org-latex-preview-compiler-command-map' entry found for LaTeX processor %S, it should be a member of `org-latex-compilers' %S"
(plist-get extended-info :latex-processor)
org-latex-compilers))
(with-current-buffer tex-process-buffer
(erase-buffer)
(insert "RUNNING: "
(format-spec tex-compile-command-fmt tex-command-spec)
"\n")
(add-text-properties (point-min) (1- (point))
'(face ((:height 0.8) font-lock-comment-face header-line))))
(list 'org-async-task
tex-formatted-command
:buffer tex-process-buffer
@ -1742,6 +1749,13 @@ The path of the created LaTeX file is returned."
(img-formatted-command
(split-string-shell-command
(format-spec img-extract-command img-command-spec))))
(with-current-buffer org-latex-preview--image-log
(erase-buffer)
(insert "RUNNING: "
(format-spec img-extract-command img-command-spec)
"\n")
(add-text-properties (point-min) (1- (point))
'(face ((:height 0.8) font-lock-comment-face header-line))))
(list 'org-async-task
img-formatted-command
:buffer img-process-buffer