Update
This commit is contained in:
@@ -229,7 +229,30 @@ the element after the #+HEADER: tag."
|
||||
(remove-hook 'org-latex-preview-overlay-update-functions
|
||||
#'my/org-latex-preview-center)
|
||||
(remove-hook 'org-latex-preview-overlay-open-functions
|
||||
#'my/org-latex-preview-uncenter))))
|
||||
#'my/org-latex-preview-uncenter)))
|
||||
(defun my/text-scale-adjust-latex-previews ()
|
||||
"Adjust the size of latex preview fragments when changing the buffer's text scale."
|
||||
(pcase major-mode
|
||||
('latex-mode
|
||||
(dolist (ov (overlays-in (point-min) (point-max)))
|
||||
(if (eq (overlay-get ov 'category)
|
||||
'preview-overlay)
|
||||
(my/text-scale--resize-fragment ov))))
|
||||
('org-mode
|
||||
(dolist (ov (overlays-in (point-min) (point-max)))
|
||||
(if (eq (overlay-get ov 'org-overlay-type)
|
||||
'org-latex-overlay)
|
||||
(my/text-scale--resize-fragment ov))))))
|
||||
|
||||
(defun my/text-scale--resize-fragment (ov)
|
||||
(overlay-put
|
||||
ov 'display
|
||||
(cons 'image
|
||||
(plist-put
|
||||
(cdr (overlay-get ov 'display))
|
||||
:scale (+ 1.0 (* 0.25 text-scale-mode-amount))))))
|
||||
|
||||
(add-hook 'text-scale-mode-hook #'my/text-scale-adjust-latex-previews))
|
||||
|
||||
(use-package org-roam
|
||||
:ensure t
|
||||
|
||||
Reference in New Issue
Block a user