Config: add lexical-binding: t to all files.

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

init.el

@@ -1,5 +1,9 @@
-;;; init.el
+;;; init.el --- init.el  -*- lexical-binding: t -*-
-;;; -*- 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

lisp/init-completion.el

@@ -1,5 +1,8 @@
-;;; init-completion.el
+;;; init-completion.el --- completion config  -*- lexical-binding: t -*-
-;;; -*- 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

lisp/init-const.el

@@ -1,5 +1,8 @@
-;;; init-const.el
+;;; init-const.el --- constant and system stuff -*- lexical-binding: t -*-
-;;; -*- 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

lisp/init-elpa.el

@@ -1,5 +1,8 @@
-;;; init-elpa.el
+;;; init-elpa.el --- elpa config  -*- lexical-binding: t -*-
-;;; -*- 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

lisp/init-jinx.el

@@ -77,4 +77,5 @@
    :state (consult--jump-state)))
 
 (provide 'init-jinx)
+
 ;;; init-jinx.el ends here

lisp/init-kbd.el

@@ -1,5 +1,8 @@
-;;; init-kbd.el
+;;; init-kbd.el --- keybindings  -*- lexical-binding: t -*-
-;;; -*- 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

lisp/init-org.el

@@ -1,5 +1,8 @@
-;;; init-org.el
+;;; init-org.el --- org-mode config  -*- lexical-binding: t -*-
-;;; -*- 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

lisp/init-package.el

@@ -1,5 +1,8 @@
-;;; init-package.el
+;;; init-package.el --- major packages  -*- lexical-binding: t -*-
-;;; -*- 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

lisp/init-segmentation.el

@@ -1,5 +1,8 @@
-;;; init-segmentation.el
+;;; init-segmentation.el --- Chinese segmentation config -*- lexical-binding: t -*-
-;;; -*- 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

lisp/init-startup.el

@@ -1,5 +1,8 @@
-;;; init-startup.el
+;;; init-startup.el --- startup settings  -*- lexical-binding: t -*-
-;;; -*- 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

lisp/init-ui.el

@@ -1,5 +1,8 @@
-;;; init-ui.el
+;;; init-ui.el --- ui and other style customization cofig -*- lexical-binding: t -*-
-;;; -*- 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

lisp/init-window.el

@@ -1,5 +1,8 @@
-;;; init-window.el
+;;; init-window.el --- windows manage packages -*- lexical-binding: t -*-
-;;; -*- 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