mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-06 06:20:55 -08:00
237 lines
8.8 KiB
EmacsLisp
237 lines
8.8 KiB
EmacsLisp
;;; android-win.el --- terminal 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.
|