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

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:
Karthik Chikmagalur 2023-02-06 01:40:16 -08:00 committed by TEC
parent ba4e542fc1
commit 9724e205e7
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
1 changed files with 11 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -850,7 +850,6 @@ fragments in the buffer."
(message "LaTeX previews removed from buffer")) (message "LaTeX previews removed from buffer"))
;; Preview whole buffer. ;; Preview whole buffer.
((equal arg '(16)) ((equal arg '(16))
(message "Creating LaTeX previews in buffer...")
(org-latex-preview--preview-region (point-min) (point-max))) (org-latex-preview--preview-region (point-min) (point-max)))
;; Clear current section. ;; Clear current section.
((equal arg '(4)) ((equal arg '(4))
@ -864,7 +863,6 @@ fragments in the buffer."
(region-end) (region-end)
(org-with-limited-levels (org-entry-end-position))))) (org-with-limited-levels (org-entry-end-position)))))
((use-region-p) ((use-region-p)
(message "Creating LaTeX previews in region...")
(org-latex-preview--preview-region (region-beginning) (region-end))) (org-latex-preview--preview-region (region-beginning) (region-end)))
;; Toggle preview on LaTeX code at point. ;; Toggle preview on LaTeX code at point.
((let ((datum (org-element-context))) ((let ((datum (org-element-context)))
@ -876,7 +874,6 @@ fragments in the buffer."
(save-excursion (save-excursion
(org-with-limited-levels (org-back-to-heading t) (point))))) (org-with-limited-levels (org-back-to-heading t) (point)))))
(end (org-with-limited-levels (org-entry-end-position)))) (end (org-with-limited-levels (org-entry-end-position))))
(message "Creating LaTeX previews in section...")
(org-latex-preview--preview-region beg end))))) (org-latex-preview--preview-region beg end)))))
(defun org-latex-preview--auto-aware-toggle (datum) (defun org-latex-preview--auto-aware-toggle (datum)
@ -900,7 +897,6 @@ should it be enabled."
((or (pred not) (guard (not org-latex-preview-auto-mode))) ((or (pred not) (guard (not org-latex-preview-auto-mode)))
(if (org-latex-preview-clear-overlays beg end) (if (org-latex-preview-clear-overlays beg end)
(message "LaTeX preview removed") (message "LaTeX preview removed")
(message "Creating LaTeX preview...")
(org-latex-preview--preview-region beg end))) (org-latex-preview--preview-region beg end)))
;; When on a just written/edited fragment that should be previewed. ;; When on a just written/edited fragment that should be previewed.
((and ov (guard (eq (overlay-get ov 'preview-state) 'modified))) ((and ov (guard (eq (overlay-get ov 'preview-state) 'modified)))
@ -1110,12 +1106,11 @@ is either the substring between BEG and END or (when provided) VALUE."
:key hash) :key hash)
fragment-info)) fragment-info))
(setq prev-fg fg prev-bg bg)))) (setq prev-fg fg prev-bg bg))))
(if fragment-info (when fragment-info
(org-latex-preview--create-image-async (org-latex-preview--create-image-async
processing-type processing-type
(nreverse fragment-info) (nreverse fragment-info)
latex-preamble) latex-preamble))))
(message "Creating LaTeX previews... done."))))
(defun org-latex-preview--colors-at (pos) (defun org-latex-preview--colors-at (pos)
"Find colors for LaTeX previews to be inserted at POS." "Find colors for LaTeX previews to be inserted at POS."
@ -1301,8 +1296,7 @@ When provided, LATEX-PREAMBLE overrides the default LaTeX preamble."
;; ├─ (success) ;; ├─ (success)
;; │ ├─ Call `org-latex-preview--check-all-fragments-produced', ;; │ ├─ Call `org-latex-preview--check-all-fragments-produced',
;; │ │ which can rerun the async tree if needed. ;; │ │ which can rerun the async tree if needed.
;; │ ├─ Delete tempfiles (`org-latex-preview--cleanup-callback'). ;; │ └─ Delete tempfiles (`org-latex-preview--cleanup-callback').
;; │ └─ Message "creating latex previews... done.".
;; └─ (failure) ;; └─ (failure)
;; ├─ Run `org-latex-preview--failure-callback' (remove overlays). ;; ├─ Run `org-latex-preview--failure-callback' (remove overlays).
;; └─ Message "creating latex previews... failed. please see %s for details". ;; └─ Message "creating latex previews... failed. please see %s for details".
@ -1313,8 +1307,7 @@ When provided, LATEX-PREAMBLE overrides the default LaTeX preamble."
;; ├─ (success) ;; ├─ (success)
;; │ ├─ Call `org-latex-preview--check-all-fragments-produced', ;; │ ├─ Call `org-latex-preview--check-all-fragments-produced',
;; │ │ which can rerun the async tree if needed. ;; │ │ which can rerun the async tree if needed.
;; │ ├─ Delete tempfiles (`org-latex-preview--cleanup-callback') ;; │ └─ Delete tempfiles (`org-latex-preview--cleanup-callback')
;; │ └─ Message "creating latex previews... done."
;; └─ (failure) ;; └─ (failure)
;; ├─ Run `org-latex-preview--failure-callback' (remove overlays). ;; ├─ Run `org-latex-preview--failure-callback' (remove overlays).
;; └─ Message "creating latex previews... failed. please see %s for details". ;; └─ Message "creating latex previews... failed. please see %s for details".
@ -1326,9 +1319,8 @@ When provided, LATEX-PREAMBLE overrides the default LaTeX preamble."
;; ├─ (success) ;; ├─ (success)
;; │ ├─ Call `org-latex-preview--generic-callback'. ;; │ ├─ Call `org-latex-preview--generic-callback'.
;; │ ├─ Delete tempfiles (`org-latex-preview--cleanup-callback') ;; │ ├─ Delete tempfiles (`org-latex-preview--cleanup-callback')
;; │ ├─ Call `org-latex-preview--check-all-fragments-produced', ;; │ └─ Call `org-latex-preview--check-all-fragments-produced',
;; │ │ which can rerun the async tree if needed. ;; │ which can rerun the async tree if needed.
;; │ └─ Message "creating latex previews... done."
;; └─ (failure) ;; └─ (failure)
;; ├─ Run `org-latex-preview--failure-callback' (remove overlays). ;; ├─ Run `org-latex-preview--failure-callback' (remove overlays).
;; └─ Message "creating latex previews... failed. please see %s for details". ;; └─ Message "creating latex previews... failed. please see %s for details".
@ -1364,8 +1356,7 @@ When provided, LATEX-PREAMBLE overrides the default LaTeX preamble."
(plist-put (cddr img-extract-async) :success (plist-put (cddr img-extract-async) :success
(list ; The order is important here. (list ; The order is important here.
#'org-latex-preview--check-all-fragments-produced #'org-latex-preview--check-all-fragments-produced
#'org-latex-preview--cleanup-callback #'org-latex-preview--cleanup-callback))
"Creating LaTeX previews... done."))
(plist-put (cddr img-extract-async) :failure (plist-put (cddr img-extract-async) :failure
(list (list
#'org-latex-preview--failure-callback #'org-latex-preview--failure-callback
@ -1383,8 +1374,7 @@ When provided, LATEX-PREAMBLE overrides the default LaTeX preamble."
(list ; The order is important here. (list ; The order is important here.
#'org-latex-preview--generic-callback #'org-latex-preview--generic-callback
#'org-latex-preview--cleanup-callback #'org-latex-preview--cleanup-callback
#'org-latex-preview--check-all-fragments-produced #'org-latex-preview--check-all-fragments-produced))))
"Creating LaTeX previews... done."))))
(if (and (eq processing-type 'dvipng) (if (and (eq processing-type 'dvipng)
(member "--follow" (cadr img-extract-async))) (member "--follow" (cadr img-extract-async)))
(org-async-call img-extract-async) (org-async-call img-extract-async)
@ -1593,7 +1583,6 @@ The path of the created LaTeX file is returned."
(defun org-latex-preview--cleanup-callback (_exit-code _stdout extended-info) (defun org-latex-preview--cleanup-callback (_exit-code _stdout extended-info)
"Schedule cleanup with EXTENDED-INFO." "Schedule cleanup with EXTENDED-INFO."
(message "Scheduling cleanup")
(run-with-idle-timer (run-with-idle-timer
1.0 nil 1.0 nil
#'org-latex-preview--do-cleanup #'org-latex-preview--do-cleanup