forked from mirrors/org-mode
org-latex-preview: Reduce verbosity of messaging
* lisp/org-latex-preview.el (org-latex-preview--cleanup-callback, org-latex-preview--create-image-async, org-latex-preview-place, org-latex-preview--auto-aware-toggle, org-latex-preview, org-latex-preview-auto--regenerate-overlay): Do not emit a message when previewing is successful. This reduces how "busy" the echo area is, especially when `org-latex-preview-auto-mode' is on. When previewing fails, display a message as before (behaviour unchanged).
This commit is contained in:
parent
0ee6e1f44d
commit
5802eaa2ac
|
@ -851,7 +851,6 @@ fragments in the buffer."
|
|||
(message "LaTeX previews removed from buffer"))
|
||||
;; Preview whole buffer.
|
||||
((equal arg '(16))
|
||||
(message "Creating LaTeX previews in buffer...")
|
||||
(org-latex-preview--preview-region (point-min) (point-max)))
|
||||
;; Clear current section.
|
||||
((equal arg '(4))
|
||||
|
@ -865,7 +864,6 @@ 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--preview-region (region-beginning) (region-end)))
|
||||
;; Toggle preview on LaTeX code at point.
|
||||
((let ((datum (org-element-context)))
|
||||
|
@ -877,7 +875,6 @@ 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--preview-region beg end)))))
|
||||
|
||||
(defun org-latex-preview--auto-aware-toggle (datum)
|
||||
|
@ -901,7 +898,6 @@ should it be enabled."
|
|||
((or (pred not) (guard (not org-latex-preview-auto-mode)))
|
||||
(if (org-latex-preview-clear-overlays beg end)
|
||||
(message "LaTeX preview removed")
|
||||
(message "Creating LaTeX preview...")
|
||||
(org-latex-preview--preview-region beg end)))
|
||||
;; When on a just written/edited fragment that should be previewed.
|
||||
((and ov (guard (eq (overlay-get ov 'preview-state) 'modified)))
|
||||
|
@ -1111,12 +1107,11 @@ is either the substring between BEG and END or (when provided) VALUE."
|
|||
:key hash)
|
||||
fragment-info))
|
||||
(setq prev-fg fg prev-bg bg))))
|
||||
(if fragment-info
|
||||
(org-latex-preview--create-image-async
|
||||
processing-type
|
||||
(nreverse fragment-info)
|
||||
latex-preamble)
|
||||
(message "Creating LaTeX previews... done."))))
|
||||
(when fragment-info
|
||||
(org-latex-preview--create-image-async
|
||||
processing-type
|
||||
(nreverse fragment-info)
|
||||
latex-preamble))))
|
||||
|
||||
(defun org-latex-preview--colors-at (pos)
|
||||
"Find colors for LaTeX previews to be inserted at POS."
|
||||
|
@ -1302,8 +1297,7 @@ When provided, LATEX-PREAMBLE overrides the default LaTeX preamble."
|
|||
;; ├─ (success)
|
||||
;; │ ├─ Call `org-latex-preview--check-all-fragments-produced',
|
||||
;; │ │ which can rerun the async tree if needed.
|
||||
;; │ ├─ Delete tempfiles (`org-latex-preview--cleanup-callback').
|
||||
;; │ └─ Message "creating latex previews... done.".
|
||||
;; │ └─ Delete tempfiles (`org-latex-preview--cleanup-callback').
|
||||
;; └─ (failure)
|
||||
;; ├─ Run `org-latex-preview--failure-callback' (remove overlays).
|
||||
;; └─ Message "creating latex previews... failed. please see %s for details".
|
||||
|
@ -1314,8 +1308,7 @@ When provided, LATEX-PREAMBLE overrides the default LaTeX preamble."
|
|||
;; ├─ (success)
|
||||
;; │ ├─ Call `org-latex-preview--check-all-fragments-produced',
|
||||
;; │ │ which can rerun the async tree if needed.
|
||||
;; │ ├─ Delete tempfiles (`org-latex-preview--cleanup-callback')
|
||||
;; │ └─ Message "creating latex previews... done."
|
||||
;; │ └─ Delete tempfiles (`org-latex-preview--cleanup-callback')
|
||||
;; └─ (failure)
|
||||
;; ├─ Run `org-latex-preview--failure-callback' (remove overlays).
|
||||
;; └─ Message "creating latex previews... failed. please see %s for details".
|
||||
|
@ -1327,9 +1320,8 @@ When provided, LATEX-PREAMBLE overrides the default LaTeX preamble."
|
|||
;; ├─ (success)
|
||||
;; │ ├─ Call `org-latex-preview--generic-callback'.
|
||||
;; │ ├─ Delete tempfiles (`org-latex-preview--cleanup-callback')
|
||||
;; │ ├─ Call `org-latex-preview--check-all-fragments-produced',
|
||||
;; │ │ which can rerun the async tree if needed.
|
||||
;; │ └─ Message "creating latex previews... done."
|
||||
;; │ └─ Call `org-latex-preview--check-all-fragments-produced',
|
||||
;; │ which can rerun the async tree if needed.
|
||||
;; └─ (failure)
|
||||
;; ├─ Run `org-latex-preview--failure-callback' (remove overlays).
|
||||
;; └─ Message "creating latex previews... failed. please see %s for details".
|
||||
|
@ -1365,8 +1357,7 @@ When provided, LATEX-PREAMBLE overrides the default LaTeX preamble."
|
|||
(plist-put (cddr img-extract-async) :success
|
||||
(list ; The order is important here.
|
||||
#'org-latex-preview--check-all-fragments-produced
|
||||
#'org-latex-preview--cleanup-callback
|
||||
"Creating LaTeX previews... done."))
|
||||
#'org-latex-preview--cleanup-callback))
|
||||
(plist-put (cddr img-extract-async) :failure
|
||||
(list
|
||||
#'org-latex-preview--failure-callback
|
||||
|
@ -1384,8 +1375,7 @@ When provided, LATEX-PREAMBLE overrides the default LaTeX preamble."
|
|||
(list ; The order is important here.
|
||||
#'org-latex-preview--generic-callback
|
||||
#'org-latex-preview--cleanup-callback
|
||||
#'org-latex-preview--check-all-fragments-produced
|
||||
"Creating LaTeX previews... done."))))
|
||||
#'org-latex-preview--check-all-fragments-produced))))
|
||||
(if (and (eq processing-type 'dvipng)
|
||||
(member "--follow" (cadr img-extract-async)))
|
||||
(org-async-call img-extract-async)
|
||||
|
@ -1594,7 +1584,6 @@ The path of the created LaTeX file is returned."
|
|||
|
||||
(defun org-latex-preview--cleanup-callback (_exit-code _stdout extended-info)
|
||||
"Schedule cleanup with EXTENDED-INFO."
|
||||
(message "Scheduling cleanup")
|
||||
(run-with-idle-timer
|
||||
1.0 nil
|
||||
#'org-latex-preview--do-cleanup
|
||||
|
|
Loading…
Reference in New Issue