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

pdf: implement evil yank to registers 

Evil users expect to be able to yank to named registers, but pdf-view
only gives us `pdf-view-kill-ring-save'. So we implement our own version
of evil-yank for pdf-view buffers.
This commit is contained in:
45mg 2024-03-19 22:03:17 +05:30 committed by Youmu
parent 5dad3d25bd
commit 556ca31ce6
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
modes/pdf/evil-collection-pdf.el
View File

@ -42,6 +42,9 @@
(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-view-assert-active-region "pdf-view")
(declare-function pdf-view-active-region-text "pdf-view")
(declare-function pdf-view-deactivate-region "pdf-view")
(declare-function pdf-history-forward "pdf-history")
(declare-function pdf-history-backward "pdf-history")
@ -84,6 +87,17 @@ Consider COUNT."
(interactive "P")
(pdf-history-backward (or count 1)))
(defun evil-collection-pdf-yank ()
"Save the text of the active region into the currently selected register."
(interactive)
(pdf-view-assert-active-region)
(let ((txt (pdf-view-active-region-text))
(reg evil-this-register))
(pdf-view-deactivate-region)
(evil-set-register
(or reg ?\")
(mapconcat #'identity txt nil))))
;;;###autoload
(defun evil-collection-pdf-setup ()
"Set up `evil' bindings for `pdf-view'."
@ -182,7 +196,7 @@ Consider COUNT."
(kbd "C-u") 'pdf-view-scroll-down-or-previous-page))
(evil-collection-define-key 'visual 'pdf-view-mode-map
"y" 'pdf-view-kill-ring-save)
"y" 'evil-collection-pdf-yank)
(evil-collection-inhibit-insert-state 'pdf-history-minor-mode-map)
(evil-set-initial-state 'pdf-history-minor-mode 'normal)