diff --git a/evil-collection-pdf.el b/evil-collection-pdf.el index 58c3c63..21b1b71 100644 --- a/evil-collection-pdf.el +++ b/evil-collection-pdf.el @@ -46,6 +46,22 @@ (defvar pdf-outline-buffer-mode-map) (defvar pdf-occur-buffer-mode-map) +(defun evil-collection-pdf-view-next-line-or-next-page (&optional count) + "'evil' wrapper include a count argument to `pdf-view-next-line-or-next-page'" + (interactive "P") + (if count + (dotimes (_ count nil) + (pdf-view-next-line-or-next-page 1)) + (pdf-view-next-line-or-next-page 1))) + +(defun evil-collection-pdf-view-previous-line-or-previous-page (&optional count) + "'evil' wrapper include a count argument to `pdf-view-previous-line-or-previous-page'" + (interactive "P") + (if count + (dotimes (_ count nil) + (pdf-view-previous-line-or-previous-page 1)) + (pdf-view-previous-line-or-previous-page 1))) + (defun evil-collection-pdf-view-goto-page (&optional page) "`evil' wrapper around `pdf-view-last-page'." (interactive "P") @@ -69,8 +85,8 @@ (evil-define-key 'normal pdf-view-mode-map ;; motion (kbd "") 'image-next-line - "j" 'pdf-view-next-line-or-next-page - "k" 'pdf-view-previous-line-or-previous-page + "j" 'evil-collection-pdf-view-next-line-or-next-page + "k" 'evil-collection-pdf-view-previous-line-or-previous-page (kbd "SPC") 'pdf-view-scroll-up-or-next-page (kbd "S-SPC") 'pdf-view-scroll-down-or-previous-page (kbd "") 'pdf-view-scroll-down-or-previous-page @@ -84,8 +100,8 @@ "gk" 'pdf-view-previous-page-command (kbd "") 'forward-page (kbd "") 'backward-page - (kbd "") 'pdf-view-next-line-or-next-page - (kbd "") 'pdf-view-previous-line-or-previous-page + (kbd "") 'evil-collection-pdf-view-next-line-or-next-page + (kbd "") 'evil-collection-pdf-view-previous-line-or-previous-page "gg" 'evil-collection-pdf-view-goto-first-page "G" 'evil-collection-pdf-view-goto-page