pdf: Add binds for `pdf-history-forward/backward`

... and remove duplicate `(defvars ...)`
This commit is contained in:
PRESFIL 2022-08-21 11:43:02 +00:00 committed by Youmu
parent 76d003c0f0
commit 6306aa78a9
1 changed files with 26 additions and 4 deletions

View File

@ -30,8 +30,10 @@
(require 'evil-collection)
(require 'pdf-tools nil t)
(require 'pdf-view nil t)
(require 'pdf-history nil t)
(defconst evil-collection-pdf-maps '(pdf-view-mode-map
pdf-history-minor-mode-map
pdf-outline-buffer-mode-map
pdf-occur-buffer-mode-map))
@ -40,12 +42,11 @@
(declare-function pdf-view-goto-page "pdf-view")
(declare-function pdf-view-previous-line-or-previous-page "pdf-view")
(declare-function pdf-view-next-line-or-next-page "pdf-view")
(declare-function pdf-history-forward "pdf-history")
(declare-function pdf-history-backward "pdf-history")
(defvar pdf-view-mode-map)
(defvar pdf-outline-buffer-mode-map)
(defvar pdf-occur-buffer-mode-map)
(defvar pdf-view-mode-map)
(defvar pdf-history-minor-mode-map)
(defvar pdf-outline-buffer-mode-map)
(defvar pdf-occur-buffer-mode-map)
@ -95,6 +96,20 @@ Consider COUNT."
(image-bob)
(image-set-window-hscroll hscroll))))
(defun evil-collection-pdf-jump-forward (&optional count)
"Wrap `pdf-history-forward' with `evil'.
Consider COUNT."
(interactive "P")
(pdf-history-forward (or count 1)))
(defun evil-collection-pdf-jump-backward (&optional count)
"Wrap `pdf-history-backward' with `evil'.
Consider COUNT."
(interactive "P")
(pdf-history-backward (or count 1)))
;;;###autoload
(defun evil-collection-pdf-setup ()
"Set up `evil' bindings for `pdf-view'."
@ -195,6 +210,13 @@ Consider COUNT."
(evil-collection-define-key 'visual 'pdf-view-mode-map
"y" 'pdf-view-kill-ring-save)
(evil-collection-inhibit-insert-state 'pdf-history-minor-mode-map)
(evil-set-initial-state 'pdf-history-minor-mode 'normal)
(evil-collection-define-key 'normal 'pdf-history-minor-mode-map
;; history forward / backward
(kbd "C-i") 'evil-collection-pdf-jump-forward
(kbd "C-o") 'evil-collection-pdf-jump-backward)
(evil-collection-inhibit-insert-state 'pdf-outline-buffer-mode-map)
(evil-set-initial-state 'pdf-outline-buffer-mode 'normal)
(evil-collection-define-key 'normal 'pdf-outline-buffer-mode-map