我正在尝试使用 Emacs 中的文档视图来阅读 PDF，但我不知道如何使它的行为类似于许多 PDF 阅读器的“适合宽度”命令。有没有内部方法可以做到这一点？
问问题
2695 次
4 回答
5
以下代码段定义了一个新的 minor-mode doc-view-autofit-mode，我在下面使用doc-view-mode-hook. 它适用于我在 Ubuntu 14.04 上的 Emacs 24.3 上，甚至可以在我调整窗口大小时调整缩放大小！
（由于 ，通常会有短暂的调整大小延迟doc-view-autofit-timer-start，但我很高兴能忍受这一点。）
我不相信这个解决方案；我在 emacs-devel 邮件列表中找到了这段代码。
(require 'cl)
;;;; Automatic fitting minor mode
(defcustom doc-view-autofit-timer-start 1.0
"Initial value (seconds) for the timer that delays the fitting when
`doc-view-autofit-fit' is called (Which is when a window
configuration change occurs and a document needs to be fitted)."
:type 'number
:group 'doc-view)
(defcustom doc-view-autofit-timer-inc 0.02
"Value to increase (seconds) the timer (see `doc-view-autofit-timer-start')
by, if there is another window configuration change occuring, before
it runs out."
:type 'number
:group 'doc-view)
(defcustom doc-view-autofit-default-fit 'width
"The fitting type initially used when mode is enabled.
Valid values are: width, height, page."
:type 'symbol
:group 'doc-view)
(defvar doc-view-autofit-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "C-c W") 'doc-view-autofit-width)
(define-key map (kbd "C-c H") 'doc-view-autofit-height)
(define-key map (kbd "C-c P") 'doc-view-autofit-page)
map)
"Keymap used by `doc-view-autofit-mode'.")
(defun doc-view-autofit-set (type)
"Set autofitting to TYPE for current buffer."
(when doc-view-autofit-mode
(setq doc-view-autofit-type type)
(doc-view-autofit-fit)))
(defun doc-view-autofit-width ()
"Set autofitting to width for current buffer."
(interactive) (doc-view-autofit-set 'width))
(defun doc-view-autofit-height ()
"Set autofitting to height for current buffer."
(interactive) (doc-view-autofit-set 'height))
(defun doc-view-autofit-page ()
"Set autofitting to page for current buffer."
(interactive) (doc-view-autofit-set 'page))
(defun doc-view-autofit-fit ()
"Fits the document in the selected window's buffer
delayed with a timer, so multiple calls in succession
don't cause as much overhead."
(lexical-let
((window (selected-window)))
(if (equal doc-view-autofit-timer nil)
(setq doc-view-autofit-timer
(run-with-timer
doc-view-autofit-timer-start nil
(lambda ()
(if (window-live-p window)
(save-selected-window
(select-window window)
(cancel-timer doc-view-autofit-timer)
(setq doc-view-autofit-timer nil)
(cond
((equal 'width doc-view-autofit-type)
(doc-view-fit-width-to-window))
((equal 'height doc-view-autofit-type)
(doc-view-fit-height-to-window))
((equal 'page doc-view-autofit-type)
(doc-view-fit-page-to-window))))))))
(timer-inc-time doc-view-autofit-timer doc-view-autofit-timer-inc))))
(define-minor-mode doc-view-autofit-mode
"Minor mode for automatic (timer based) fitting in DocView."
:lighter " AFit" :keymap doc-view-autofit-mode-map :group 'doc-view
(when doc-view-autofit-mode
(set (make-local-variable 'doc-view-autofit-type)
doc-view-autofit-default-fit)
(set (make-local-variable 'doc-view-autofit-timer) nil)
(add-hook 'window-configuration-change-hook
'doc-view-autofit-fit nil t)
(doc-view-autofit-fit))
(when (not doc-view-autofit-mode)
(remove-hook 'window-configuration-change-hook
'doc-view-autofit-fit t)
(when doc-view-autofit-timer
(cancel-timer doc-view-autofit-timer)
(setq doc-view-autofit-timer nil))
(setq doc-view-autofit-type nil)))
(add-hook 'doc-view-mode-hook 'doc-view-autofit-mode)
于 2014-04-28T17:12:26.227 回答
1
这个对我有用：
(add-hook 'doc-view-mode-hook 'doc-view-fit-width-to-window)
更新：如果转换（到 png 或其他东西）仍在进行中（首先打开文档），它不能正常工作。还有另一种更可靠的方法来处理这种特殊情况（它根本不使用钩子，而是使用建议）：
(defadvice doc-view-display (after fit-width activate)
(doc-view-fit-width-to-window))
于 2014-04-26T12:25:49.013 回答
1
以下是 Chris 对答案的轻微修改——它提供了与以下功能的兼容性find-file-other-window——例如，当 与selected-window显示*.pdf文件的不同时。
(defvar last-displayed-doc-view-buffer nil)
(defun get-last-displayed-doc-view-buffer ()
(setq last-displayed-doc-view-buffer (current-buffer)))
(add-hook 'doc-view-mode-hook 'get-last-displayed-doc-view-buffer)
(defun doc-view-autofit-fit ()
"Fits the document in the selected window's buffer
delayed with a timer, so multiple calls in succession
don't cause as much overhead."
(if (null doc-view-autofit-timer)
(setq doc-view-autofit-timer
(run-with-timer doc-view-autofit-timer-start nil (lambda ()
(let* (
(selected-window
(cond
((eq major-mode 'doc-view-mode)
(selected-window))
(t
(get-buffer-window last-displayed-doc-view-buffer))))
(current-buffer
(cond
((eq major-mode 'doc-view-mode)
(current-buffer))
(t
(get-buffer last-displayed-doc-view-buffer))))
(selected-fit
(when (buffer-live-p (get-buffer current-buffer))
(with-current-buffer (get-buffer current-buffer)
doc-view-autofit-type))) )
(when (window-live-p selected-window)
(with-selected-window selected-window
(when doc-view-autofit-timer (cancel-timer doc-view-autofit-timer))
(setq doc-view-autofit-timer nil)
(cond
((eq 'width selected-fit)
(doc-view-fit-width-to-window))
((eq 'height selected-fit)
(doc-view-fit-height-to-window))
((eq 'page selected-fit)
(doc-view-fit-page-to-window)))))))))
(timer-inc-time doc-view-autofit-timer doc-view-autofit-timer-inc)))
而且，正如我之前对克里斯回答的评论中所指出的，以下变量需要定义：
(defvar doc-view-autofit-timer nil)
(defvar doc-view-autofit-type nil)
因为上面的修改增加了一个新的函数来doc-view-mode-hook获取current-buffer函数所需要的函数doc-view-autofit-fit，所以需要保证后面的函数附加到函数的末尾doc-view-mode-hook。所以更改看起来像这样——即，我们t为append参数添加一个：
(add-hook 'doc-view-mode-hook 'doc-view-autofit-mode t)
克里斯的回答中没有被上述修改取代的所有其他内容仍然有效。
要做：
- 创建一个测试以在滚动时检查每个页面，以确保视图与
autofit-type. 目前，在处理长*.pdf文件时，页面大小会出现错误。
于 2014-11-12T07:55:39.177 回答
1
请注意： (require 'cl) 已过时。由于 emacs-24.3 它应该是
(require ‘cl-lib)
于 2015-06-15T13:53:42.967 回答