[nongnu] elpa/eat 468fe893cf 1/6: * term/eat.el: New file.

[ELPA Syncer]

branch: elpa/eat
commit 468fe893cf6a36fde611135012ffe8cfd624b230
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    * term/eat.el: New file.
---
 term/eat.el | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)

diff --git a/term/eat.el b/term/eat.el
new file mode 100644
index 0000000000..bb2e8e5624
--- /dev/null
+++ b/term/eat.el
@@ -0,0 +1,50 @@
+;;; eat.el --- Terminal initialization for Eat  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2022 Akib Azmain Turja.
+
+;; Author: Akib Azmain Turja <akib@disroot.org>
+;; Created: 2022-12-04
+
+;; This file is not part of GNU Emacs.
+
+;; This file is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; For a full copy of the GNU General Public License
+;; see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Extra support for the Eat terminal emulator.
+
+;;; Code:
+
+(require 'term/xterm)
+
+(defcustom xterm-eat-extra-capabilities
+  '(modifyOtherKeys reportBackground getSelection setSelection)
+  "List of extra capabilities supported in Eat.
+
+Each element of the list enables a feature.  The elements can be:
+
+`modifyOtherKeys'  More key bindings work (e.g., \"\\C-,\")
+`reportBackground' Eat reports the terminal background color.
+`getSelection'     Eat yanks text from parent Emacs `kill-ring'.
+`setSelection'     Eat saves killed text to parent Emacs `kill-ring'."
+  :type xterm--extra-capabilities-type
+  :group 'eat)
+
+(defun terminal-init-eat ()
+  "Terminal initialization function for Eat."
+  (let ((xterm-extra-capabilities xterm-eat-extra-capabilities))
+    (tty-run-terminal-initialization (selected-frame) "xterm")))
+
+(provide 'term/eat)
+;;; eat.el ends here