清冽之泉

怎么使用原生 Android 版本的 Emacs

Revision as of 11:25, 2 October 2025 by Mwroot (talk | contribs) (→‎设置工作目录)

原生安卓版本的 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

设置工作目录

(setq default-directory "/sdcard/Emacs/")

M-x setenv RET HOME RET /sdcard/Emacs

;; ---------------------------
;; Android: 将新建文件的默认目录设为 /storage/sdcard0/Emacs/
;; 直接粘贴到 init.el 并尽早加载（建议放文件头部）
;; ---------------------------


(defvar my-android-emacs-dir "/storage/sdcard0/Emacs/"
  "默认用于新建文件的目录（Android）。")

;; 1) 对未来 buffer 生效
(setq-default default-directory (expand-file-name my-android-emacs-dir))

;; 2) 尝试创建该目录（若权限允许），失败则给出提示
(condition-case err
    (unless (file-directory-p (expand-file-name my-android-emacs-dir))
      (make-directory (expand-file-name my-android-emacs-dir) t)
      (message "Created directory: %s" (expand-file-name my-android-emacs-dir)))
  (error
   (message "无法在 %s 创建目录：%s 。若为权限问题，请运行 M-x android-request-directory-access 并选择该目录，或在系统设置中为 Emacs 打开 All files access。"
            (expand-file-name my-android-emacs-dir) err)))

;; 3) 启动后把已经存在的 buffer 的 default-directory 也改掉（确保 *scratch* 等被覆盖）
(add-hook 'emacs-startup-hook
          (lambda ()
            (let ((d (expand-file-name my-android-emacs-dir)))
              (dolist (buf (buffer-list))
                (with-current-buffer buf
                  (setq default-directory d))))))

;; 4) 确保 minibuffer 在调用 find-file 时也使用该目录
(defun my-android-find-file-minibuffer-setup ()
  "在用 find-file 打开 minibuffer 时把 default-directory 设为 my-android-emacs-dir。"
  (when (memq this-command '(find-file find-file-other-window))
    (setq default-directory (expand-file-name my-android-emacs-dir))))
(add-hook 'minibuffer-setup-hook #'my-android-find-file-minibuffer-setup)

;; 5) 辅助函数：检查访问并提示如何授权
(defun my-android-ensure-emacs-dir-access ()
  "检查 /storage/sdcard0/Emacs/ 是否可访问；若不可访问，提示下一步操作。"
  (interactive)
  (let ((d (expand-file-name my-android-emacs-dir)))
    (cond
     ((file-directory-p d)
      (message "目录可访问：%s" d))
     ((fboundp 'android-request-directory-access)
      (message "目录不可访问：%s。运行 `M-x android-request-directory-access` 并在选择器中选择该目录以授权 Emacs 访问。" d))
     (t
      (message "目录不可访问：%s。请在 系统 → 应用 → 特殊应用访问 → All files access 中为 Emacs 打开权限，并授予「文件与媒体」权限。" d)))))

;; 可选：绑定一个快捷键，方便调用检查
(global-set-key (kbd "C-c e d") #'my-android-ensure-emacs-dir-access)

字体

怎么让原生安卓版本的 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
Retrieved from "https://qingliezhiquan.com/index.php?title=怎么使用原生_Android_版本的_Emacs&oldid=8501"