From eea3ffa73978225b3f8fd0c78440fef0cfcd1718 Mon Sep 17 00:00:00 2001
From: Rutherther <rutherther@proton.me>
Date: Tue, 25 Jun 2024 21:02:22 +0200
Subject: [PATCH] feat: add android setup

---
 init.el               |  1 +
 lisp/android-setup.el | 20 ++++++++++++++++++++
 2 files changed, 21 insertions(+)
 create mode 100644 lisp/android-setup.el

diff --git a/init.el b/init.el
index fccdb75..5b5623e 100644
--- a/init.el
+++ b/init.el
@@ -2,6 +2,7 @@
 ;;; Commentary: Emacs Startup File --- initialization for Emacs
 
 (add-to-list 'load-path (locate-user-emacs-file "lisp/"))
+(require 'android-setup nil t)
 (require 'custom-setup nil t)
 (require 'functions)
 (require 'elpaca-loader)
diff --git a/lisp/android-setup.el b/lisp/android-setup.el
new file mode 100644
index 0000000..0ebf296
--- /dev/null
+++ b/lisp/android-setup.el
@@ -0,0 +1,20 @@
+;; Android early setup
+(when (eq window-system 'android)
+  (setenv "PATH" (format "%s:%s" "/data/data/com.termux/files/usr/bin" (getenv "PATH")))
+
+  (push "/data/data/com.termux/files/usr/bin" exec-path)
+
+  (customize-set-variable 'touch-screen-display-keyboard t)
+
+  (with-eval-after-load 'evil
+    (evil-define-key nil evil-normal-state-map
+      [mouse-1] 'mouse-set-point
+      [down-mouse-1] 'mouse-drag-region
+      [drag-mouse-1] 'mouse-drag-region))
+
+  (set-text-conversion-style nil)
+  (add-hook
+  'after-change-major-mode-hook
+  (lambda () (set-text-conversion-style nil))))
+
+(provide 'android-setup)
-- 
2.48.1