怎么使用原生 Android 版本的 Emacs

原生安卓版本的 Emacs，令安卓上的编程出现了很大的想象力。或许未来，在安卓上编程，会成为更方便的事情。以前，大家都绕道，用 Termux 安装 Emacs，终究是隔了一层。现在，gnu 本身发布了原生安卓版本的 Emacs，可以从 FDroid 分流下载。但是安装后，你会发现你遇到了重重难题。

不迷路

怎么让自己不迷路，知道自己在哪里？

# 查看 HOME 环境变量
M-: (getenv "HOME")
# 示例输出："/data/data/org.gnu.emacs/files"

# 查看 ~ 的展开路径
M-: (expand-file-name "~")
# 示例输出："/data/data/org.gnu.emacs/files"

# 查看工作起始目录
M-: default-directory
# 示例输出："~/"

# M-: 运行命令
# 注意 default 别写成 defualt
# 评估变量不用括号
# 调用函数要括号
# 输出就算一样，也是各有所用，并不重复
# 可以单独设置

文件夹

怎么让安卓版本的 Emacs 访问你的安卓里的文件夹呢？

# 授予管理所有文件的权限
M-x android-request-storage-access

# 授予管理某个文件夹的权限
M-x android-request-directory-access

工作目录

可以把工作目录改成 /storage/sdcard0/Emacs，但是每次 Find File 后边有这串地址，太占用屏幕宽度了，所以不改，就用默认的 ~。

字体

怎么让原生安卓版本的 Emacs 识别并正常显示中文字体，而不是 16 进制的字符块呢？

首先，去下载某个字体。

其次，把它复制进原生安卓版本的 Emacs 的工作目录下的 fonts 文件夹。

最后，在 ~/.emacs.d/init.el 里调用该字体。

(prefer-coding-system 'utf-8)
(set-default-coding-systems 'utf-8-unix)
(set-language-environment "UTF-8")

(set-face-attribute 'default nil :height 300)
(set-fontset-font t 'han "Noto Sans SC:pixelsize=50")

私有目录，一般是 /data/data/org.gnu.emacs/files/fonts。

M-x copy-file RET /sdcard/Downloads/NotoSansSC-Regular.ttf RET ~/fonts/NotoSansSC-Regular.ttf RET

Debug

;; 把默认目录改为 /storage/sdcard0/emacs/
(setq-default default-directory "/storage/sdcard0/emacs/")

;; 启动时打开 dired 指向 sdcard 目录
(setq initial-buffer-choice (lambda () (dired "/storage/sdcard0/emacs/")))

;; 把这串长目录改短一些
(setq directory-abbrev-alist
      '(("/storage/sdcard0/Emacs" . "~/emacs")))

M-! ln -s /data/data/org.gnu.emacs/files /storage/sdcard0/Emacs RET

;; 把下面三个变量按需改成你的路径（你已经给出）
(let* ((target "/data/data/org.gnu.emacs/files")   ;; 被指向的真实目录
       (link   "/storage/sdcard0/Emacs"))          ;; 将要创建的符号链接名
  (cond
   ((file-symlink-p link)
    (message "已有符号链接：%s -> %s" link (file-symlink-p link)))
   ((file-exists-p link)
    (message "目标路径已存在且不是符号链接：%s 。请先删除或改名。" link))
   (t
    (condition-case err
        (progn
          ;; make-symbolic-link 参数顺序是 (TARGET NAME ...)
          (make-symbolic-link target link)
          (message "创建成功：%s -> %s" link target))
      (error (message "创建符号链接失败（可能是权限问题）：%s" err))))))

;; 运行后可以检查
;; (file-symlink-p "/storage/sdcard0/Emacs")  ;; 返回 target 或 nil