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

Allow pasting from parent XTerm to Eat terminal

Browse source 
* eat.el (eat-xterm-paste): New command.
* eat.el (eat-mode-map, eat-eshell-emacs-mode-map): Bind
<xterm-paste> to 'ignore'.
* eat.el (eat-semi-char-mode-map, eat-char-mode-map)
(eat-eshell-semi-char-mode-map, eat-eshell-char-mode-map): Bind
<xterm-paste> to 'eat-xterm-paste'.
This commit is contained in:
Akib Azmain Turja 2023-01-15 22:22:13 +06:00
parent 135a562a20
commit 344cc075d2
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
eat.el
View file

@ -4793,6 +4793,20 @@ STRING and ARG are passed to `yank-pop', which see."
(yank-from-kill-ring string arg)
(buffer-string))))))
(defun eat-xterm-paste (event)
"Handle paste operation EVENT from XTerm."
(interactive "e")
(unless (eq (car-safe event) 'xterm-paste)
(error "xterm-paste must be found to xterm-paste event"))
(let ((pasted-text (nth 1 event)))
(if (bound-and-true-p xterm-store-paste-on-kill-ring)
;; Put the text onto the kill ring and then insert it into the
;; buffer.
(let ((interprogram-paste-function (lambda () pasted-text)))
(eat-yank))
;; Insert the text without putting it onto the kill ring.
(eat-send-string-as-yank eat--terminal pasted-text))))
;; When changing these keymaps, be sure to update the manual, README
;; and commentary.
(defvar eat-mode-map
@ -4802,6 +4816,7 @@ STRING and ARG are passed to `yank-pop', which see."
(define-key map [?\C-c ?\C-k] #'eat-kill-process)
(define-key map [?\C-c ?\C-p] #'eat-previous-shell-prompt)
(define-key map [?\C-c ?\C-n] #'eat-next-shell-prompt)
(define-key map [xterm-paste] #'ignore)
map)
"Keymap for Eat mode.")
@ -4818,6 +4833,7 @@ 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 [xterm-paste] #'eat-xterm-paste)
map)
"Keymap for Eat semi-char mode.")
@ -4827,6 +4843,7 @@ STRING and ARG are passed to `yank-pop', which see."
'(:ascii :arrow :navigation :function)
'([?\e ?\C-m]))))
(define-key map [?\C-\M-m] #'eat-semi-char-mode)
(define-key map [xterm-paste] #'eat-xterm-paste)
map)
"Keymap for Eat char mode.")
@ -5440,6 +5457,7 @@ PROGRAM can be a shell command."
(define-key map [remap eshell-toggle-direct-send] ; C-c M-d
#'eat-eshell-char-mode)
(define-key map [remap undo] #'undefined) ; Disable `undo'.
(define-key map [xterm-paste] #'ignore)
map)
"Keymap for Eat Eshell \"emacs\" mode.")
@ -5455,6 +5473,7 @@ 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 [xterm-paste] #'eat-xterm-paste)
map)
"Keymap for Eat Eshell semi-char mode.")
@ -5464,6 +5483,7 @@ PROGRAM can be a shell command."
'(:ascii :arrow :navigation :function)
'([?\e ?\C-m]))))
(define-key map [?\C-\M-m] #'eat-eshell-semi-char-mode)
(define-key map [xterm-paste] #'eat-xterm-paste)
map)
"Keymap for Eat Eshell char mode.")