From 9499ebd7047107d2ccb275c332a67896060e7860 Mon Sep 17 00:00:00 2001
From: User <user@example.com>
Date: Mon, 30 Mar 2026 12:35:53 +0800
Subject: [PATCH] Config: add lexical-binding: t to all files.

---
 early-init.el             |  8 ++++++++
 init.el                   | 10 ++++++++--
 lisp/init-completion.el   |  9 +++++++--
 lisp/init-const.el        |  9 +++++++--
 lisp/init-elpa.el         |  9 +++++++--
 lisp/init-jinx.el         |  1 +
 lisp/init-kbd.el          |  9 +++++++--
 lisp/init-org.el          | 14 ++++++++++----
 lisp/init-package.el      | 11 ++++++++---
 lisp/init-segmentation.el |  9 +++++++--
 lisp/init-startup.el      |  9 +++++++--
 lisp/init-ui.el           |  9 +++++++--
 lisp/init-window.el       |  9 +++++++--
 13 files changed, 91 insertions(+), 25 deletions(-)

diff --git a/early-init.el b/early-init.el
index 23b2f6a..898b728 100644
--- a/early-init.el
+++ b/early-init.el
@@ -1,3 +1,9 @@
+;;; early-init.el --- early-init.el -*- lexical-binding: t -*-
+
+;;; Commentary:
+
+;;; Code:
+
 (setq package-enable-at-startup nil)
 
 (setq inhibit-startup-screen t)		; 禁用开始菜单
@@ -14,3 +20,5 @@
 (add-to-list 'initial-frame-alist '(fullscreen . maximized))
 ;; 之后新建的窗口也默认最大化
 (add-to-list 'default-frame-alist '(fullscreen . maximized))
+
+;;; early-init.el ends here
diff --git a/init.el b/init.el
index 3055049..c5409ea 100644
--- a/init.el
+++ b/init.el
@@ -1,5 +1,9 @@
-;;; init.el
-;;; -*- lexical-binding: t -*-
+;;; init.el --- init.el  -*- lexical-binding: t -*-
+
+;;; Commentary:
+;; trogloxene's Emacs
+
+;;; Code:
 
 (add-to-list 'load-path
 	     (expand-file-name (concat user-emacs-directory "lisp")))
@@ -19,3 +23,5 @@
 (require 'init-kbd)
 (require 'init-ui)
 (require 'init-segmentation)
+
+;;; init.el ends here
diff --git a/lisp/init-completion.el b/lisp/init-completion.el
index 3b0cf8d..cb287eb 100644
--- a/lisp/init-completion.el
+++ b/lisp/init-completion.el
@@ -1,5 +1,8 @@
-;;; init-completion.el
-;;; -*- lexical-binding: t -*-
+;;; init-completion.el --- completion config  -*- lexical-binding: t -*-
+
+;;; Commentary:
+
+;;; Code:
 
 ;; eglot
 (use-package eglot
@@ -68,3 +71,5 @@
   (setq treesit-font-lock-level 4))
 
 (provide 'init-completion)
+
+;;; init-completion.el ends here
diff --git a/lisp/init-const.el b/lisp/init-const.el
index de2a5d5..cb5c451 100644
--- a/lisp/init-const.el
+++ b/lisp/init-const.el
@@ -1,5 +1,8 @@
-;;; init-const.el
-;;; -*- lexical-binding: t -*-
+;;; init-const.el --- constant and system stuff -*- lexical-binding: t -*-
+
+;;; Commentary:
+
+;;; Code:
 
 ;; 识别操作系统
 (defconst *is-mac* (eq system-type 'darwin))
@@ -33,3 +36,5 @@
   (setq w32-system-coding-system 'utf-8))
 
 (provide 'init-const)
+
+;;; init-const.el ends here
diff --git a/lisp/init-elpa.el b/lisp/init-elpa.el
index 74c4614..120166d 100644
--- a/lisp/init-elpa.el
+++ b/lisp/init-elpa.el
@@ -1,5 +1,8 @@
-;;; init-elpa.el
-;;; -*- lexical-binding: t -*-
+;;; init-elpa.el --- elpa config  -*- lexical-binding: t -*-
+
+;;; Commentary:
+
+;;; Code:
 
 ;; Clash 代理配置
 (setq url-proxy-services
@@ -47,3 +50,5 @@
             :hook (after-init . benchmark-init/deactivate))
 
 (provide 'init-elpa)
+
+;;; init-elpa.el ends here
diff --git a/lisp/init-jinx.el b/lisp/init-jinx.el
index ab89107..e6c5e5e 100644
--- a/lisp/init-jinx.el
+++ b/lisp/init-jinx.el
@@ -77,4 +77,5 @@
    :state (consult--jump-state)))
 
 (provide 'init-jinx)
+
 ;;; init-jinx.el ends here
diff --git a/lisp/init-kbd.el b/lisp/init-kbd.el
index 49378e6..e438bcc 100644
--- a/lisp/init-kbd.el
+++ b/lisp/init-kbd.el
@@ -1,5 +1,8 @@
-;;; init-kbd.el
-;;; -*- lexical-binding: t -*-
+;;; init-kbd.el --- keybindings  -*- lexical-binding: t -*-
+
+;;; Commentary:
+
+;;; Code:
 
 ;; 修改mac键位
 (when *is-mac*
@@ -337,3 +340,5 @@ Disable jinx-mode if it's enable and global-jinx-mode is disable , otherwise tog
 
 
 (provide 'init-kbd)
+
+;;; init-kbd.el ends here
diff --git a/lisp/init-org.el b/lisp/init-org.el
index c5f71e5..f5678e0 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -1,5 +1,8 @@
-;;; init-org.el
-;;; -*- lexical-binding: t -*-
+;;; init-org.el --- org-mode config  -*- lexical-binding: t -*-
+
+;;; Commentary:
+
+;;; Code:
 
 (use-package org)
 
@@ -263,7 +266,7 @@ See `org-capture-templates' for more information."
 
 ;; 快速部署
 (defun my-blog-publish ()
-  "publish blog , git add/commit/push , generate commit message"
+  "Publish blog , git add/commit/push , generate commit message."
   (interactive)
   (let* ((blog-dir "d:/emacs/hugo/this-is-my-blog/")
          (timestamp (format-time-string "%Y-%m-%d %H:%M:%S"))
@@ -291,11 +294,12 @@ See `org-capture-templates' for more information."
 
 ;; 预览博客
 (defun my-blog-preview ()
+  "Save and preview blog."
   (interactive)
   (save-buffer)
   (let ((default-directory "d:/emacs/hugo/this-is-my-blog/"))
     ;; 启动 Hugo server
-    (start-process "hugo-server" "*hugo-server*" 
+    (start-process "hugo-server" "*hugo-server*"
                    "hugo" "server" "-D" "--bind" "0.0.0.0" "--port" "1313")
     ;; 等待服务器启动
     (sleep-for 2)
@@ -305,3 +309,5 @@ See `org-capture-templates' for more information."
 (global-set-key (kbd "C-c o v") 'my-blog-preview)
 
 (provide 'init-org)
+
+;;; init-org.el ends here
diff --git a/lisp/init-package.el b/lisp/init-package.el
index 460aed2..4de2840 100644
--- a/lisp/init-package.el
+++ b/lisp/init-package.el
@@ -1,5 +1,8 @@
-;;; init-package.el
-;;; -*- lexical-binding: t -*-
+;;; init-package.el --- major packages  -*- lexical-binding: t -*-
+
+;;; Commentary:
+
+;;; Code:
 
 (setopt use-package-enable-imenu-support t)
 
@@ -207,7 +210,7 @@
   ;; 模式行设置
   (require 'emms-mode-line)
   (emms-mode-line-mode 1)
-  (emms-mode-line-blank)  ; 初始为空 
+  (emms-mode-line-blank)  ; 初始为空
   
   ;; 自定义模式行格式
   (setq emms-mode-line-format "  [%s] ")
@@ -307,3 +310,5 @@
   (use-package vterm))
 
 (provide 'init-package)
+
+;;; init-package.el ends here
diff --git a/lisp/init-segmentation.el b/lisp/init-segmentation.el
index ffc7edc..f8fd67b 100644
--- a/lisp/init-segmentation.el
+++ b/lisp/init-segmentation.el
@@ -1,5 +1,8 @@
-;;; init-segmentation.el
-;;; -*- lexical-binding: t -*-
+;;; init-segmentation.el --- Chinese segmentation config -*- lexical-binding: t -*-
+
+;;; Commentary:
+
+;;; Code:
 
 ;; emacs-chinese-word-segmentation 配置
 (when *is-windows*
@@ -40,3 +43,5 @@
     (define-key cns-mode-map (kbd "C-<backspace>") nil))
 
 (provide 'init-segmentation)
+
+;;; init-segmentation.el ends here
diff --git a/lisp/init-startup.el b/lisp/init-startup.el
index 2f7c3e1..cad7f8d 100644
--- a/lisp/init-startup.el
+++ b/lisp/init-startup.el
@@ -1,5 +1,8 @@
-;;; init-startup.el
-;;; -*- lexical-binding: t -*-
+;;; init-startup.el --- startup settings  -*- lexical-binding: t -*-
+
+;;; Commentary:
+
+;;; Code:
 
 ;; mac自动全屏
 (when *is-mac*
@@ -66,3 +69,5 @@
 (add-hook 'org-mode-hook 'electric-pair-mode)
 
 (provide 'init-startup)
+
+;;; init-startup.el ends here
diff --git a/lisp/init-ui.el b/lisp/init-ui.el
index 11ed576..f8aa73e 100644
--- a/lisp/init-ui.el
+++ b/lisp/init-ui.el
@@ -1,5 +1,8 @@
-;;; init-ui.el
-;;; -*- lexical-binding: t -*-
+;;; init-ui.el --- ui and other style customization cofig -*- lexical-binding: t -*-
+
+;;; Commentary:
+
+;;; Code:
 
 ;; 设置系统编码
 (when (fboundp 'set-charset-priority)
@@ -120,3 +123,5 @@
   (cnfonts--select-profile "profile1"))
 
 (provide 'init-ui)
+
+;;; init-ui.el ends here
diff --git a/lisp/init-window.el b/lisp/init-window.el
index 612bde3..7a6123b 100644
--- a/lisp/init-window.el
+++ b/lisp/init-window.el
@@ -1,5 +1,8 @@
-;;; init-window.el
-;;; -*- lexical-binding: t -*-
+;;; init-window.el --- windows manage packages -*- lexical-binding: t -*-
+
+;;; Commentary:
+
+;;; Code:
 
 (use-package popper
   :defines popper-echo-dispatch-actions
@@ -102,3 +105,5 @@
 (use-package es-windows)
 
 (provide 'init-window)
+
+;;; init-window.el ends here