Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Support middle-click yank in terminal

Browse source 
* eat.el (eat-mouse-yank-primary, eat-mouse-yank-secondary):
New command.
* eat.el (eat--prepare-semi-char-mode-map)
(eat--eshell-prepare-semi-char-mode-map): Remap commands
'mouse-yank-primary' and 'mouse-yank-secondary' to
'eat-mouse-yank-primary' and 'eat-mouse-yank-secondary'
respectively.
This commit is contained in:
Akib Azmain Turja 2023-05-06 17:59:31 +06:00
parent 5a01e09cbb
commit a1c4422f21
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 19 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
eat.el
View file

@ -5103,6 +5103,17 @@ STRING and ARG are passed to `yank-pop', which see."
(yank-from-kill-ring string arg)
(buffer-string))))))
(defun eat-mouse-yank-primary ()
"Send the primary selection to the terminal."
(interactive)
(eat-send-string-as-yank eat--terminal (gui-get-primary-selection)))
(defun eat-mouse-yank-secondary ()
"Send the secondary selection to the terminal."
(interactive)
(eat-send-string-as-yank
eat--terminal (gui-get-selection 'SECONDARY)))
(defun eat-xterm-paste (event)
"Handle paste operation EVENT from XTerm."
(interactive "e")
@ -5143,6 +5154,10 @@ STRING and ARG are passed to `yank-pop', which see."
(define-key map [?\C-c ?\C-c] #'eat-self-input)
(define-key map [?\C-c ?\C-e] #'eat-emacs-mode)
(define-key map [remap insert-char] #'eat-input-char)
(define-key map [remap mouse-yank-primary]
#'eat-mouse-yank-primary)
(define-key map [remap mouse-yank-secondary]
#'eat-mouse-yank-secondary)
(define-key map [xterm-paste] #'eat-xterm-paste)
map))
@ -5822,6 +5837,10 @@ PROGRAM can be a shell command."
(define-key map [?\M-y] #'eat-yank-from-kill-ring)
(define-key map [?\C-c ?\C-e] #'eat-eshell-emacs-mode)
(define-key map [remap insert-char] #'eat-input-char)
(define-key map [remap mouse-yank-primary]
#'eat-mouse-yank-primary)
(define-key map [remap mouse-yank-secondary]
#'eat-mouse-yank-secondary)
(define-key map [xterm-paste] #'eat-xterm-paste)
map))