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

org-latex-preview: Change hooks to abnormal hooks 

*
lisp/org-latex-preview.el (org-latex-preview-auto--close-previous-overlay,
org-latex-preview-auto--open-this-overlay,
org-latex-preview-close-hook, org-latex-preview-open-hook): Change
`org-latex-preview-open-hook' and `org-latex-preview-close-hook' to
abnormal hooks that accept an overlay as the argument.  This makes it
easier to apply overlay-specific changes -- which is what these hooks
are primarily for -- without having to find the overlay by probing the
buffer first.

Rename:
`org-latex-preview-open-hook' to `org-latex-preview-open-functions'
`org-latex-preview-close-hook' to `org-latex-preview-close-functions'
This commit is contained in:
Karthik Chikmagalur 2023-05-14 17:15:14 -07:00 committed by TEC
parent 0549f0f55f
commit b7a789dbd8
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -277,22 +277,29 @@ overlay that was updated."
:group 'org-latex-preview
:type 'hook)
(defcustom org-latex-preview-close-hook nil
"Hook run after placing a LaTeX preview image.
(defcustom org-latex-preview-close-functions nil
"Abnormal hook run after placing a LaTeX preview image.
This hook typically runs when the cursor is moved out of a LaTeX
fragment or environment with `org-latex-preview-auto-mode'
active, causing the display of text contents to be replaced by
the corresponding preview image."
the corresponding preview image.
Functions in this hook are called with one argument, the overlay
that the cursor moved out of."
:group 'org-latex-preview
:type 'hook)
(defcustom org-latex-preview-open-hook nil
(defcustom org-latex-preview-open-functions nil
"Hook run after hiding a LaTeX preview image.
This hook typically runs when the cursor is moved into a LaTeX
fragment or environment with `org-latex-preview-auto-mode'
active, causing the display of the preview image to be replaced
by the corresponding LaTeX fragment text."
by the corresponding LaTeX fragment text.
Functions in this hook are called with one argument, the overlay
that the cursor moved into."
:group 'org-latex-preview
:type 'hook)
@ -730,7 +737,7 @@ image and display its text."
(overlay-put ov 'face nil))
(org-latex-preview-auto--move-into ov)
(setq org-latex-preview-auto--from-overlay nil)
(run-hooks 'org-latex-preview-open-hook))))
(run-hook-with-args 'org-latex-preview-open-functions ov))))
(defun org-latex-preview-auto--close-previous-overlay ()
"Close Org latex preview image overlays.
@ -754,7 +761,7 @@ image. The preview image is regenerated if necessary."
(overlay-put ov 'face f))
(overlay-put ov 'hidden-face nil))
(overlay-put ov 'display (overlay-get ov 'preview-image)))
(run-hooks 'org-latex-preview-close-hook))))
(run-hook-with-args 'org-latex-preview-close-functions ov))))
(defun org-latex-preview-auto--regenerate-overlay (ov)
"Regenerate the LaTeX fragment under overlay OV."