Emacs 从零开始写配置 - Revision history

Mwroot: /* 平台 */

2026-03-19T07:07:58Z

平台

← Older revision		Revision as of 15:07, 19 March 2026
Line 39:		Line 39:

	== 平台 ==		== 平台 ==
			根据不同系统平同，自动加载配置。
			<syntaxhighlight lang="elisp" line>
			;;; init-qlzq-platforms.el --- detect platform and load per-platform file

			(defvar my-platform nil
			"自定义变量.")

			(defun my-detect-platform ()
			"自定义函数."
			(cond
			((eq system-type 'windows-nt) 'windows)
			((eq system-type 'darwin) 'macos)
			((and (eq system-type 'gnu/linux) (display-graphic-p)) 'linux-gui)
			((and (eq system-type 'gnu/linux) (not (display-graphic-p))) 'linux-headless)
			(t 'unknown)))

			(setq my-platform (or (getenv "EMACS_PLATFORM") ; allow override env var
			(my-detect-platform)))

			(let ((dir (expand-file-name "~/.emacs.d/qlzq-emacs-config/platforms")))
			(unless (file-exists-p dir)
			(make-directory dir t)))

			;; 指定配置文件
			(let* ((dir (expand-file-name "qlzq-emacs-config/platforms/" user-emacs-directory))
			(file (pcase my-platform
			('windows (expand-file-name "windows.el" dir))
			('linux-gui (expand-file-name "debian-xfce.el" dir))
			('linux-headless (expand-file-name "debian-server.el" dir))
			(_ (expand-file-name "default.el" dir)))))
			(when (file-exists-p file)
			(load-file file)))

			;; Make this callable for frames (important for daemon mode)
			(defun my-apply-platform-settings-to-frame (frame)
			"Apply frame-local settings when FRAME is created."
			(with-selected-frame frame
			;; call a hook so each platform file can add handlers
			(run-hooks 'my-platform-frame-hook)))

			(add-hook 'after-make-frame-functions #'my-apply-platform-settings-to-frame)

			;; Also run for initial frame (or when starting in graphical)
			(when (or (display-graphic-p) (daemonp))
			(my-apply-platform-settings-to-frame (selected-frame)))

			(provide 'init-qlzq-platforms)
			</syntaxhighlight>

Mwroot at 07:07, 19 March 2026

2026-03-19T07:07:05Z

← Older revision		Revision as of 15:07, 19 March 2026
Line 9:		Line 9:
	7 Emacs 完全启动		7 Emacs 完全启动
	</pre>		</pre>

	~~== 平台 ==~~

	== load-path ==		== load-path ==
Line 39:		Line 37:
	(add-to-list 'load-path sub t)))		(add-to-list 'load-path sub t)))
	</syntaxhighlight>		</syntaxhighlight>

			== 平台 ==

Mwroot: /* load-path */

2026-03-17T08:27:18Z

load-path

← Older revision		Revision as of 16:27, 17 March 2026
Line 29:		Line 29:
	(make-directory qlzq-personal-dir t))		(make-directory qlzq-personal-dir t))

	;; ~~把根目录加入（append，不覆盖 ELPA）~~		;; 把根目录加入 load-path
	(add-to-list 'load-path qlzq-personal-dir t)		(add-to-list 'load-path qlzq-personal-dir t)

Mwroot: /* load-path */

2026-03-17T08:26:43Z

load-path

← Older revision		Revision as of 16:26, 17 March 2026
Line 20:		Line 20:
	# provide 'name 及 require 'name		# provide 'name 及 require 'name
	# 试用调整，满意就留，不满意就删该插件目录		# 试用调整，满意就留，不满意就删该插件目录

			<syntaxhighlight lang="elisp" line>
			;; 个人自留地，根目录
			(defvar qlzq-personal-dir (expand-file-name "qlzq-emacs-config/" user-emacs-directory))

			;; 确保存在
			(unless (file-directory-p qlzq-personal-dir)
			(make-directory qlzq-personal-dir t))

			;; 把根目录加入（append，不覆盖 ELPA）
			(add-to-list 'load-path qlzq-personal-dir t)

			;; 把每个一级子目录加入 load-path（只加入含 .el/.elc 的目录）
			(dolist (sub (directory-files qlzq-personal-dir t "^[^.]" t))
			(when (and (file-directory-p sub)
			(cl-some (lambda (f) (string-match-p "\\.el\\(c\\)?\\'" f))
			(directory-files sub)))
			(add-to-list 'load-path sub t)))
			</syntaxhighlight>

Mwroot: /* load-path */

2026-03-17T08:22:46Z

load-path

← Older revision		Revision as of 16:22, 17 March 2026
Line 13:		Line 13:

	== load-path ==		== load-path ==
	~~设想的插件管理方式：自动扫描插件目录，在插件出问题时可以全删干净，不影响早期有效配置。~~		设想的插件管理方式：自动追加插件目录，在插件出问题时可以全删干净，不影响早期有效配置。
	# 新建一个目录，当自留地		# 新建一个目录，当自留地
	# 把自留地加入 load-path，追加而不抢先		# 把自留地加入 load-path，追加而不抢先

Mwroot: /* load-path */

2026-03-17T08:22:29Z

load-path

← Older revision		Revision as of 16:22, 17 March 2026
Line 13:		Line 13:

	== load-path ==		== load-path ==
	好的 load-~~path 方式为，自动扫描插件目录，在插件出问题时可以全删干净，不影响早期有效配置。~~		设想的插件管理方式：自动扫描插件目录，在插件出问题时可以全删干净，不影响早期有效配置。
	# ~~创建一个大目录当自留地，若自留地不存在则新建把，把大目录追加到 load-path（默认 append，避免覆盖 ELPA）。~~		# 新建一个目录，当自留地
	# ~~试用插件时为每个插件建一个子目录，并把该子目录加入~~ load-~~path（一级，不递归）。~~		# 把自留地加入 load-path，追加而不抢先
	# ~~插件主文件写 (~~provide 'name~~)，然后 (~~require 'name~~)（或用下面的 helper）。~~		# 试用插件时，在自留地里，创建插件目录
	# ~~试用调整，满意就留，不满意就删该子目录即可恢复。~~		# 插件目录也加入 load-path，追加而不抢先。一级，不递归
			# provide 'name 及 require 'name
			# 试用调整，满意就留，不满意就删该插件目录

Mwroot: /* load-path */

2026-03-17T08:18:09Z

load-path

@@ Line 14: / Line 14: @@
 == load-path ==
 好的 load-path 方式为，自动扫描插件目录，在插件出问题时可以全删干净，不影响早期有效配置。
-<syntaxhighlight lang="elisp" line>
+# 创建一个大目录当自留地，若自留地不存在则新建把，把大目录追加到 load-path（默认 append，避免覆盖 ELPA）。
-;; 1 设置插件目录
+# 试用插件时为每个插件建一个子目录，并把该子目录加入 load-path（一级，不递归）。
-(add-to-list 'load-path (expand-file-name "lisp/" user-emacs-directory))
+# 插件主文件写 (provide 'name)，然后 (require 'name)（或用下面的 helper）。
+# 试用调整，满意就留，不满意就删该子目录即可恢复。

Mwroot: /* load-path */

2026-03-17T07:36:03Z

load-path

← Older revision		Revision as of 15:36, 17 March 2026
Line 14:		Line 14:
	== load-path ==		== load-path ==
	好的 load-path 方式为，自动扫描插件目录，在插件出问题时可以全删干净，不影响早期有效配置。		好的 load-path 方式为，自动扫描插件目录，在插件出问题时可以全删干净，不影响早期有效配置。
			<syntaxhighlight lang="elisp" line>
			;; 1 设置插件目录
			(add-to-list 'load-path (expand-file-name "lisp/" user-emacs-directory))

			;; 2 遍历插件子目录
			(dolist (dir (directory-files (expand-file-name "lisp/" user-emacs-directory) t "^[^.]" t))
			(when (file-directory-p dir)
			(add-to-list 'load-path dir)))

			;; 3 按功能加载配置
			(require 'ui)
			(require 'editing)
			(require 'completion)
			(require 'keybindings)

			;; 4 加载主题（可选）
			(add-to-list 'custom-theme-load-path (expand-file-name "themes/doom-one" user-emacs-directory))
			(load-theme 'doom-one t)
			</syntaxhighlight>

Mwroot at 07:33, 17 March 2026

2026-03-17T07:33:55Z

← Older revision		Revision as of 15:33, 17 March 2026
Line 9:		Line 9:
	7 Emacs 完全启动		7 Emacs 完全启动
	</pre>		</pre>

			== 平台 ==

	== load-path ==		== load-path ==
	~~一个自动化较高的 Emacs 配置，第一步就是自动处理 load-path。好的~~ load-path 方式为，自动扫描插件目录，在插件出问题时可以全删干净，不影响早期有效配置。		好的 load-path 方式为，自动扫描插件目录，在插件出问题时可以全删干净，不影响早期有效配置。

Mwroot at 07:33, 17 March 2026

2026-03-17T07:33:31Z

← Older revision		Revision as of 15:33, 17 March 2026
Line 10:		Line 10:
	</pre>		</pre>

	~~所以，一个自动化较高的~~ Emacs 配置，第一步就是自动处理 load-path。好的 load-path 方式为，自动扫描插件目录，在插件出问题时可以全删干净，不影响早期有效配置。		== load-path ==
			一个自动化较高的 Emacs 配置，第一步就是自动处理 load-path。好的 load-path 方式为，自动扫描插件目录，在插件出问题时可以全删干净，不影响早期有效配置。