From 2c9b72731247620dea2aed96a0a83385472e29cc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=A9bastien=20Miquel?= Date: Wed, 8 Jun 2022 13:11:12 +0200 Subject: [PATCH] org.el (org-latex-preview): With an active region, act on it * lisp/org.el (org-latex-preview): With an active region, display images for all fragments in the region. With universal prefix argument, remove all images in the region. --- lisp/org.el | 19 ++++++++++++++----- 1 file changed, 14 insertions(+), 5 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 95dff27ad..07f481647 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -15307,7 +15307,8 @@ BEG and END are buffer positions." If the cursor is on a LaTeX fragment, create the image and overlay it over the source code, if there is none. Remove it otherwise. If there is no fragment at point, display images for -all fragments in the current section. +all fragments in the current section. With an active region, +display images for all fragments in the region. With a `\\[universal-argument]' prefix argument ARG, clear images \ for all fragments @@ -15335,10 +15336,18 @@ fragments in the buffer." ;; Clear current section. ((equal arg '(4)) (org-clear-latex-preview - (if (org-before-first-heading-p) (point-min) - (save-excursion - (org-with-limited-levels (org-back-to-heading t) (point)))) - (org-with-limited-levels (org-entry-end-position)))) + (if (use-region-p) + (region-beginning) + (if (org-before-first-heading-p) (point-min) + (save-excursion + (org-with-limited-levels (org-back-to-heading t) (point))))) + (if (use-region-p) + (region-end) + (org-with-limited-levels (org-entry-end-position))))) + ((use-region-p) + (message "Creating LaTeX previews in region...") + (org--latex-preview-region (region-beginning) (region-end)) + (message "Creating LaTeX previews in region... done.")) ;; Toggle preview on LaTeX code at point. ((let ((datum (org-element-context))) (and (memq (org-element-type datum) '(latex-environment latex-fragment)) -- 2.36.1