From 7834e6a85091434c495293f05e0c1abe17416e3d Mon Sep 17 00:00:00 2001 From: TEC Date: Thu, 4 Jan 2024 01:00:34 +0800 Subject: [PATCH] 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. --- lisp/org-latex-preview.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/lisp/org-latex-preview.el b/lisp/org-latex-preview.el index 07d712bd2..e5a6d3d51 100644 --- a/lisp/org-latex-preview.el +++ b/lisp/org-latex-preview.el @@ -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