From b84075fa584aee1706db6a1015182181566b4b64 Mon Sep 17 00:00:00 2001
From: Kawin Nikomborirak <concavemail@gmail.com>
Date: Sat, 2 Jun 2018 21:14:29 +0000
Subject: [PATCH] add a count to pdf-tool's next-line-or-next-page

Though `pdf-view-next-line-or-next-page` and the `previous` version
both have number arguments, vi-style number arguments do not seem to
work. Even more strangely, if I remove the `dotimes` and change the
number arguments from `1` to `2` the pdf is still only scrolled
once. In `evil-emacs-state`, `M-2 <down>` works just fine in the
original version.
---
 evil-collection-pdf.el | 24 ++++++++++++++++++++----
 1 file changed, 20 insertions(+), 4 deletions(-)

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 "<return>") '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 "<delete>") 'pdf-view-scroll-down-or-previous-page
@@ -84,8 +100,8 @@
     "gk" 'pdf-view-previous-page-command
     (kbd "<next>") 'forward-page
     (kbd "<prior>") 'backward-page
-    (kbd "<down>") 'pdf-view-next-line-or-next-page
-    (kbd "<up>") 'pdf-view-previous-line-or-previous-page
+    (kbd "<down>") 'evil-collection-pdf-view-next-line-or-next-page
+    (kbd "<up>") 'evil-collection-pdf-view-previous-line-or-previous-page
     "gg" 'evil-collection-pdf-view-goto-first-page
     "G" 'evil-collection-pdf-view-goto-page