diff options
Diffstat (limited to 'lisp/term/android-win.el')
| -rw-r--r-- | lisp/term/android-win.el | 237 |
1 files changed, 237 insertions, 0 deletions
diff --git a/lisp/term/android-win.el b/lisp/term/android-win.el new file mode 100644 index 00000000000..d425ea401a9 --- /dev/null +++ b/lisp/term/android-win.el @@ -0,0 +1,237 @@ +;;; x-win.el --- parse relevant switches and set up for Android -*- lexical-binding:t -*- + +;; Copyright (C) 2023 Free Software Foundation, Inc. + +;; Author: FSF +;; Keywords: terminals, i18n, android + +;; This file is part of GNU Emacs. + +;; GNU Emacs 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 of the License, or +;; (at your option) any later version. + +;; GNU Emacs 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. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: + +;; This file contains the support for initializing the Lisp side of +;; Android windowing. + +;;; Code: + + +(unless (featurep 'android) + (error "%s: Loading android-win without having Android" + invocation-name)) + +;; Documentation-purposes only: actually loaded in loadup.el. +(require 'frame) +(require 'mouse) +(require 'fontset) +(require 'dnd) +(require 'touch-screen) + +(add-to-list 'display-format-alist '(".*" . android)) + +(declare-function android-get-connection "androidfns.c") + +;; Window system initialization. This is extremely simple because all +;; initialization is done in android_term_init. + +(cl-defmethod window-system-initialization (&context (window-system android) + &optional _ignored) + "Set up the window system. WINDOW-SYSTEM must be ANDROID. +DISPLAY is ignored on Android." + ;; Create the default fontset. + (create-default-fontset) + ;; Just make sure the window system was initialized at startup. + (android-get-connection)) + +(cl-defmethod frame-creation-function (params &context (window-system android)) + (x-create-frame-with-faces params)) + +(cl-defmethod handle-args-function (args &context (window-system android)) + ;; Android has no command line to provide arguments on. + ;; However, call x-handle-args to handle file name args. + (x-handle-args args)) + + +;;; Selection support. + +(declare-function android-clipboard-exists-p "androidselect.c") +(declare-function android-get-clipboard "androidselect.c") +(declare-function android-set-clipboard "androidselect.c") +(declare-function android-clipboard-owner-p "androidselect.c") +(declare-function android-get-clipboard-targets "androidselect.c") +(declare-function android-get-clipboard-data "androidselect.c") + +(defvar android-primary-selection nil + "The last string placed in the primary selection. +Nil if there was no such string. + +Android does not have a primary selection of its own, so Emacs +emulates one inside Lisp.") + +(defun android-get-clipboard-1 (data-type) + "Return the clipboard data. +DATA-TYPE is a selection conversion target. `STRING' means to +return the contents of the clipboard as a string. `TARGETS' +means to return supported data types as a vector. + +Interpret any other symbol as a MIME type, and return its +corresponding data." + (or (and (eq data-type 'STRING) + (android-get-clipboard)) + (and (eq data-type 'TARGETS) + (android-clipboard-exists-p) + (vconcat [TARGETS STRING] + (let ((i nil)) + (dolist (type (android-get-clipboard-targets)) + ;; Don't report plain text as a valid target. + (unless (equal type "text/plain") + (push (intern type) i))) + (nreverse i)))) + (and (symbolp data-type) + (android-get-clipboard-data (symbol-name data-type))))) + +(defun android-get-primary (data-type) + "Return the last string placed in the primary selection, or nil. +Return nil if DATA-TYPE is anything other than STRING or TARGETS." + (when android-primary-selection + (or (and (eq data-type 'STRING) + android-primary-selection) + (and (eq data-type 'TARGETS) + [TARGETS])))) + +(defun android-selection-bounds (value) + "Return bounds of selection value VALUE. +The return value is a list (BEG END BUF) if VALUE is a cons of +two markers or an overlay. Otherwise, it is nil." + (cond ((bufferp value) + (with-current-buffer value + (when (mark t) + (list (mark t) (point) value)))) + ((and (consp value) + (markerp (car value)) + (markerp (cdr value))) + (when (and (marker-buffer (car value)) + (buffer-name (marker-buffer (car value))) + (eq (marker-buffer (car value)) + (marker-buffer (cdr value)))) + (list (marker-position (car value)) + (marker-position (cdr value)) + (marker-buffer (car value))))) + ((overlayp value) + (when (overlay-buffer value) + (list (overlay-start value) + (overlay-end value) + (overlay-buffer value)))))) + +(defun android-encode-select-string (value) + "Turn VALUE into a string suitable for placing in the clipboard. +VALUE should be something suitable for passing to +`gui-set-selection'." + (unless (stringp value) + (when-let ((bounds (android-selection-bounds value))) + (setq value (ignore-errors + (with-current-buffer (nth 2 bounds) + (buffer-substring (nth 0 bounds) + (nth 1 bounds))))))) + value) + +(cl-defmethod gui-backend-get-selection (type data-type + &context (window-system android)) + (cond ((eq type 'CLIPBOARD) + (android-get-clipboard-1 data-type)) + ((eq type 'PRIMARY) + (android-get-primary data-type)))) + +(cl-defmethod gui-backend-selection-exists-p (selection + &context (window-system android)) + (cond ((eq selection 'CLIPBOARD) + (android-clipboard-exists-p)) + ((eq selection 'PRIMARY) + (not (null android-primary-selection))))) + +(cl-defmethod gui-backend-selection-owner-p (selection + &context (window-system android)) + (cond ((eq selection 'CLIPBOARD) + (let ((ownership (android-clipboard-owner-p))) + ;; If ownership is `lambda', then Emacs couldn't determine + ;; whether or not it owns the clipboard. + (and (not (eq ownership 'lambda)) ownership))) + ((eq selection 'PRIMARY) + ;; Emacs always owns its own primary selection as long as it + ;; exists. + (not (null android-primary-selection))))) + +(cl-defmethod gui-backend-set-selection (type value + &context (window-system android)) + ;; First, try to turn value into a string. + ;; Don't set anything if that did not work. + (when-let ((string (android-encode-select-string value))) + (cond ((eq type 'CLIPBOARD) + (android-set-clipboard string)) + ((eq type 'PRIMARY) + (setq android-primary-selection string))))) + +;;; Character composition display. + +(defvar android-preedit-overlay nil + "The overlay currently used to display preedit text from a compose sequence.") + +;; With some input methods, text gets inserted before Emacs is told to +;; remove any preedit text that was displayed, which causes both the +;; preedit overlay and the text to be visible for a brief period of +;; time. This pre-command-hook clears the overlay before any command +;; and should be set whenever a preedit overlay is visible. +(defun android-clear-preedit-text () + "Clear the pre-edit overlay and remove itself from pre-command-hook. +This function should be installed in `pre-command-hook' whenever +preedit text is displayed." + (when android-preedit-overlay + (delete-overlay android-preedit-overlay) + (setq android-preedit-overlay nil)) + (remove-hook 'pre-command-hook #'android-clear-preedit-text)) + +(defun android-preedit-text (event) + "Display preedit text from a compose sequence in EVENT. +EVENT is a preedit-text event." + (interactive "e") + (when android-preedit-overlay + (delete-overlay android-preedit-overlay) + (setq android-preedit-overlay nil) + (remove-hook 'pre-command-hook #'android-clear-preedit-text)) + (when (nth 1 event) + (let ((string (propertize (nth 1 event) 'face '(:underline t)))) + (setq android-preedit-overlay (make-overlay (point) (point))) + (add-hook 'pre-command-hook #'android-clear-preedit-text) + (overlay-put android-preedit-overlay 'window (selected-window)) + (overlay-put android-preedit-overlay 'before-string string)))) + +(define-key special-event-map [preedit-text] 'android-preedit-text) + + +;; Android cursor shapes, named according to the X scheme. +;; Many X cursors are missing. + +(defconst x-pointer-arrow 1000) +(defconst x-pointer-left-ptr 1000) +(defconst x-pointer-left-side 1020) +(defconst x-pointer-sb-h-double-arrow 1014) +(defconst x-pointer-sb-v-double-arrow 1015) +(defconst x-pointer-watch 1004) +(defconst x-pointer-xterm 1008) +(defconst x-pointer-invisible 0) + + +(provide 'android-win) +;; android-win.el ends here. |