Added some code for android gui version

This commit is contained in:
Aleksandr Lebedev 2025-01-30 22:38:19 +01:00
parent c4843c90f7
commit 7a2324a826
4 changed files with 37 additions and 3 deletions

12
.gitignore vendored
View file

@ -1,2 +1,10 @@
eln-cache
config.el
#Ignore all
*
#Allow theese (don't forget to put '!')
!config.org
!early-init.el
!package.nix
!flake.nix
!init.el
!.gitignore
!flake.lock

View file

@ -65,6 +65,7 @@
- [[#tldr][TLDR]]
- [[#transparency][Transparency]]
- [[#which-key][WHICH-KEY]]
- [[#emacs-on-android][Emacs on Android]]
* IMPORTANT PROGRAMS TO LOAD FIRST
** Evil Mode
@ -549,6 +550,8 @@ Install luacheck from your Linux distros repositories for flycheck to work co
* Fonts
Defining the various fonts that Emacs will use.
#+begin_src emacs-lisp
(unless (string-equal system-type "android") ;; I have no idea, how to make GUI emacs see the fonts.
(set-face-attribute 'default nil
:font "JetBrains Mono"
:height 110
@ -575,7 +578,7 @@ Defining the various fonts that Emacs will use.
(add-to-list 'default-frame-alist '(font . "JetBrains Mono-11"))
;; Uncomment the following line if line spacing needs adjusting.
(setq-default line-spacing 0.12)
(setq-default line-spacing 0.12))
#+end_src
** Zooming In/Out
@ -1143,3 +1146,11 @@ With Emacs version 29, true transparency has been added.
which-key-allow-imprecise-window-fit nil
which-key-separator " → " ))
#+end_src
* Emacs on Android
#+begin_src emacs-lisp
(when (string-equal system-type "android")
(setq touch-screen-keyboard-function t)
(setq touch-screen-display-keyboard t)
)
#+end_src

7
early-init.el Normal file
View file

@ -0,0 +1,7 @@
;;; -*- lexical-binding: t; -*-
(when (string-equal system-type "android")
;; Add Termux binaries to PATH environment
(let ((termuxpath "/data/data/com.termux/files/usr/bin"))
(setenv "PATH" (concat (getenv "PATH") ":" termuxpath))
(setq exec-path (append exec-path (list termuxpath)))))

View file

@ -1,4 +1,12 @@
;;; -*- lexical-binding: t; -*-
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
;; Comment/uncomment this line to enable MELPA Stable if desired.
;; See `package-archive-priorities` and `package-pinned-packages`.
;; Most users will not need or want to do this.
;; (add-to-list 'package-archives
;; '("melpa-stable" . "https://stable.melpa.org/packages/") t)
(package-initialize)
(org-babel-load-file
(expand-file-name
"config.org"