emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/preview-tailor 302b378c9e 13/16: Update preview-tailor.


From: ELPA Syncer
Subject: [elpa] externals/preview-tailor 302b378c9e 13/16: Update preview-tailor.el
Date: Thu, 6 Jun 2024 04:00:10 -0400 (EDT)

branch: externals/preview-tailor
commit 302b378c9e6e9a4cfc82f9b4cd6e38995ed02259
Author: Paul Nelson <ultrono@gmail.com>
Commit: Paul Nelson <ultrono@gmail.com>

    Update preview-tailor.el
---
 preview-tailor.el | 24 ++----------------------
 1 file changed, 2 insertions(+), 22 deletions(-)

diff --git a/preview-tailor.el b/preview-tailor.el
index 12f1a25b16..ee1efb6d9a 100644
--- a/preview-tailor.el
+++ b/preview-tailor.el
@@ -5,7 +5,7 @@
 ;; Author: Paul D. Nelson <nelson.paul.david@gmail.com>
 ;; Version: 0.0
 ;; URL: https://github.com/ultronozm/preview-tailor.el
-;; Package-Requires: ((emacs "29.1"))
+;; Package-Requires: ((emacs "29.1") (auctex))
 ;; Keywords: tex, multimedia
 
 ;; This program is free software; you can redistribute it and/or modify
@@ -29,6 +29,7 @@
 ;;; Code:
 
 (require 'face-remap)
+(require 'latex)
 (require 'preview)
 
 (defcustom preview-tailor-multipliers
@@ -69,27 +70,6 @@ factor is used."
   :type '(choice (const :tag "None" nil)
                  (function :tag "Function" identity)))
 
-(defun preview-tailor--calculate ()
-  "Calculate the AUCTeX preview scale.
-This calculation is based on four factors:
-
-- Result of `preview-scale-from-face'.
-
-- Current text scale factor (adjusted via `text-scale-adjust').
-
-- Multiplier from `preview-tailor-multipliers' for current
-  monitor.
-
-- Result of `preview-tailor-additional-factor-function', if
-  non-nil."
-  (let* ((face-scale (funcall (preview-scale-from-face)))
-         (text-scale (expt text-scale-mode-step text-scale-mode-amount))
-         (monitor-multiplier (preview-tailor--get-multiplier))
-         (additional-factor (or (and preview-tailor-additional-factor-function
-                                     (funcall 
preview-tailor-additional-factor-function))
-                                1)))
-    (* preview-scale text-scale monitor-multiplier additional-factor)))
-
 (defvar-local preview-tailor-local-multiplier 1.0
   "Local preview scale multiplier.
 Intended for use in buffer-local settings.")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]