From 1b1642b1733af1321b6ec390e21bb700a09063af Mon Sep 17 00:00:00 2001 From: Daanturo Date: Sat, 5 Oct 2024 01:36:21 +0700 Subject: [PATCH] org-latex-preview: add org-latex-preview-quiet customization * lisp/org.el (org-latex-preview): define customizable boolean org-latex-preview-quiet. --- lisp/org.el | 29 +++++++++++++++++++---------- 1 file changed, 19 insertions(+), 10 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index df58b47be..bcd30585e 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -16148,6 +16148,15 @@ BEG and END are buffer positions." default-directory) 'overlays nil 'forbuffer org-preview-latex-default-process)))) +(defcustom org-latex-preview-quiet nil + "Non-nil means `org-latex-preview''s `message' calls are suppressed." + :group 'org + :type 'boolean) + +(defun org-latex-preview--message (format-string &rest args) + (unless org-latex-preview-quiet + (apply #'message format-string args))) + (defun org-latex-preview (&optional arg) "Toggle preview of the LaTeX fragment at point. @@ -16175,12 +16184,12 @@ fragments in the buffer." ;; Clear whole buffer. ((equal arg '(64)) (org-clear-latex-preview (point-min) (point-max)) - (message "LaTeX previews removed from buffer")) + (org-latex-preview--message "LaTeX previews removed from buffer")) ;; Preview whole buffer. ((equal arg '(16)) - (message "Creating LaTeX previews in buffer...") + (org-latex-preview--message "Creating LaTeX previews in buffer...") (org--latex-preview-region (point-min) (point-max)) - (message "Creating LaTeX previews in buffer... done.")) + (org-latex-preview--message "Creating LaTeX previews in buffer... done.")) ;; Clear current section. ((equal arg '(4)) (org-clear-latex-preview @@ -16193,19 +16202,19 @@ fragments in the buffer." (region-end) (org-with-limited-levels (org-entry-end-position))))) ((use-region-p) - (message "Creating LaTeX previews in region...") + (org-latex-preview--message "Creating LaTeX previews in region...") (org--latex-preview-region (region-beginning) (region-end)) - (message "Creating LaTeX previews in region... done.")) + (org-latex-preview--message "Creating LaTeX previews in region... done.")) ;; Toggle preview on LaTeX code at point. ((let ((datum (org-element-context))) (and (org-element-type-p datum '(latex-environment latex-fragment)) (let ((beg (org-element-begin datum)) (end (org-element-end datum))) (if (org-clear-latex-preview beg end) - (message "LaTeX preview removed") - (message "Creating LaTeX preview...") + (org-latex-preview--message "LaTeX preview removed") + (org-latex-preview--message "Creating LaTeX preview...") (org--latex-preview-region beg end) - (message "Creating LaTeX preview... done.")) + (org-latex-preview--message "Creating LaTeX preview... done.")) t)))) ;; Preview current section. (t @@ -16213,9 +16222,9 @@ fragments in the buffer." (save-excursion (org-with-limited-levels (org-back-to-heading t) (point))))) (end (org-with-limited-levels (org-entry-end-position)))) - (message "Creating LaTeX previews in section...") + (org-latex-preview--message "Creating LaTeX previews in section...") (org--latex-preview-region beg end) - (message "Creating LaTeX previews in section... done."))))) + (org-latex-preview--message "Creating LaTeX previews in section... done."))))) (defun org-format-latex (prefix &optional beg end dir overlays msg forbuffer processing-type) -- 2.46.2