GPTEL项目中的持久化项目设置实现方案

在Emacs生态系统中，GPTEL作为一款优秀的AI辅助写作工具，其灵活性和可定制性一直备受开发者青睐。本文将深入探讨如何在GPTEL中实现类似Aider和Claude的持久化项目设置功能。

核心需求分析

许多开发者希望在项目中保存特定的AI提示词（prompt）配置，这些配置能够自动加载并应用于当前项目。这种需求源于以下场景：

1. 不同项目可能需要不同的AI行为模式
2. 团队协作时需要共享统一的AI交互规范
3. 复杂项目需要维护特定的上下文信息

技术实现方案

GPTEL提供了高度灵活的定制接口，我们可以通过动态系统消息函数来实现这一功能。以下是具体实现步骤：

1. 定义项目配置缓存机制

首先创建一个缓存列表来存储已解析的项目配置：

(defvar gptel-project-conventions-alist nil
  "存储项目路径与对应AI配置的关联列表")

2. 实现配置读取函数

核心是创建一个能够自动查找并读取项目配置的函数：

(defun gptel-project-conventions ()
  "从项目目录读取CONVENTIONS.md或CLAUDE.md作为系统提示"
  (when-let* ((root (project-root (project-current))))
    (with-memoization
        (alist-get root gptel-project-conventions-alist nil nil #'equal)
      (let ((conven (file-name-concat root "CONVENTIONS.md"))
            (claude (file-name-concat root "CLAUDE.md")))
        (cond ((file-readable-p conven)
               (with-temp-buffer
                 (insert-file-contents conven)
                 (buffer-string)))
              ((file-readable-p claude)
               (with-temp-buffer
                 (insert-file-contents claude)
                 (buffer-string)))
              (t "默认系统提示词")))))

3. 设置为默认系统消息

将上述函数注册为GPTEL的默认指令：

(setf (alist-get 'default gptel-directives)
      #'gptel-project-conventions)

高级应用技巧

1. 环境感知提示：可以根据当前编辑模式动态调整提示词
2. 多级回退机制：实现项目组、项目、文件级别的提示词继承
3. 版本控制集成：将提示词文件纳入版本控制，实现团队协作

实际应用示例

以下是一个结合环境感知的增强版实现：

(defun my/gptel-default-directive ()
  (concat
   "你是一个生活在Emacs中的大型语言模型助手。请简洁回应。"
   (when gptel-mode
     (format " 请注意我们当前处于%s主模式，你的回复将以'%s'为前缀。"
             (symbol-name major-mode)
             (cdr (assoc major-mode gptel-response-prefix-alist))))))

注意事项

1. 确保配置文件的路径解析正确
2. 考虑添加文件变更监控，实现配置热更新
3. 对于大型项目，注意性能优化

通过这种机制，GPTEL用户可以实现高度定制化的AI交互体验，同时保持项目间配置的隔离性和持久性。这种设计模式也体现了Emacs"一切皆可定制"的哲学思想。

开发者可以根据实际需求扩展这一基础框架，例如添加JSON/YAML配置文件支持，或者集成更多的环境变量，打造真正智能化的编程助手环境。