emacs
/
evil-collection
mirror of https://github.com/jojojames/evil-collection.git
1
0
Fork 0
Code Issues Releases Wiki Activity

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.
This commit is contained in:
Kawin Nikomborirak 2018-06-02 21:14:29 +00:00 committed by James N
parent 050af5d78f
commit 63b0feda98
1 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
evil-collection-pdf.el
View File

@ -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