You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
Emacs has some useful integrations with AI services like OpenAI's ChatGPT and GitHub's co-pilot. However, I don't want to enable those services globally. With the following elisp fragment, I can choose to allow AI service-assist in specific git repos by either creating an .allow-ai-service file in the top-level directory of my project, or adding the top-level directory to a list in ~/.allow-ai-service-list.
(defun my/wrap-ai-service (wrapped-fn &rest args)
"Only call WRAPPED-FN when the current project is on the AI
service allow-list."
(if (let ((root-dir (locate-dominating-file "." ".git")))
(when root-dir
(let ((allow-file (expand-file-name ".allow-ai-service" root-dir))
(allow-list-file (with-temp-buffer
(insert-file-contents (expand-file-name "~/.allow-ai-service-list"))
(split-string (buffer-string) "\n" t))))
(or (file-exists-p allow-file)
(member root-dir allow-list-file)))))
(apply wrapped-fn args)))
Now we simply use emacs' advice feature to wrap the functions we want to check. Wrapped functions will only be called if they are explicitly allowed. For instance, if you are using gpt-commit, add:
