kj/confi-emacs-actual
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

feat(gptel): store plans outside project directory

Browse Source
This commit is contained in:
kj
2026-08-06 15:32:00 -03:00
parent 1e43561320
commit c4a2dff9df
2 changed files with 27 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
configs/init-ai.el
View File

@@ -203,6 +203,15 @@ content do not break gptel-magit."
nil uses the current session's model."
:type '(choice (const :tag "Current session model" nil) string)
:group 'gptel)
(defcustom kj-gptel-plans-dir
(expand-file-name "gptel-plans" user-emacs-directory)
"Directory where gptel-agent plans are stored, outside the project.
Plans are named <hash>--<project>--<name>.md, where <hash> is a
truncated md5 of the project root, so plans never pollute the project
directory and can be mapped back to their project."
:type 'directory
:group 'gptel)
(defun kj-gptel-load-agents-md ()
"Add AGENTS.md rules to the current gptel buffer context.
Loads AGENTS.md from the project root and from `user-emacs-directory',
@@ -406,11 +415,20 @@ Tries `patch -p1' first and falls back to `-p0'."
(car r1) (cdr r1)))))))
(defun kj-gptel-plan-write (filename content)
"Write CONTENT to `.gptel/plans/FILENAME' in the project. Return status."
"Write CONTENT to a plan file for the current project and return status.
Plans are stored in `kj-gptel-plans-dir' (outside the project), named
<md5-prefix>--<project>--<name>.md so that each project keeps its own
plans without adding extra files to the project directory."
(let* ((root (kj-gptel--project-root))
(dir (expand-file-name ".gptel/plans" root))
(file (expand-file-name (file-name-nondirectory filename) dir)))
(make-directory dir t)
(hash (substring (md5 root) 0 12))
(project (replace-regexp-in-string
"[^A-Za-z0-9._-]" "-"
(file-name-nondirectory (directory-file-name root))))
(name (file-name-nondirectory filename))
(file (expand-file-name
(format "%s--%s--%s" hash project name)
kj-gptel-plans-dir)))
(make-directory kj-gptel-plans-dir t)
(with-temp-file file (insert content))
(format "Plan saved to %s" file)))
@@ -584,9 +602,9 @@ Takes a unified diff (git format or --- a/ / +++ b/). It is applied with the pat
(gptel-make-tool
:name "plan_write"
:function #'kj-gptel-plan-write
:description "Save the current plan as a Markdown file in .gptel/plans/ of the project.
:description "Save the current plan as a Markdown file in the Emacs directory, outside the project.
Use it when you have drafted a plan, to persist it to disk and be able to resume it later. Saves the content to .gptel/plans/<name>.md. Does not modify any other file."
Use it when you have drafted a plan, to persist it to disk and be able to resume it later. Plans are stored in `kj-gptel-plans-dir' (inside the Emacs directory) named <hash>--<project>--<name>.md, where <hash> is a truncated md5 of the project root, so each project keeps its own plans without adding files to the project directory. Does not modify any project file."
:args '((:name "filename"
:type string
:description "Name of the plan file (e.g. refactor-auth.md).")